在没有SQL环境的机器上运行你的安装包， 4. 添加合并模块（Merge Moudle），添加下面的代码： Public Overrides Sub Install（ByVal stateSaver As System.Collections.IDictionary） '重写install方法 Dim file As System.IO.File If file.Exists（"C：Program FilesMicrosoft SQL ServerMSSQLDataTruckDB_data.mdf"） = True Then Exit Sub MyBase.Install（stateSaver） Dim CheckedDir As System.IO.Directory If CheckedDir.Exists（"C：Program FilesMicrosoft SQL ServerMSSQLData"） = False Then CheckedDir.CreateDirectory（"C：Program FilesMicrosoft SQL ServerMSSQLData"） End If Dim FullPath As String Dim Asm As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly（） Dim strConfigLoc As String strConfigLoc = Asm.Location Dim file As System.IO.File If file.Exists（"C：Program FilesMicrosoft SQL ServerMSSQLDataTruckDB_data.mdf"） = True Then Exit Sub MyBase.Install（stateSaver） Dim CheckedDir As System.IO.Directory If CheckedDir.Exists（"C：Program FilesMicrosoft SQL ServerMSSQLData"） = False Then CheckedDir.CreateDirectory（"C：Program FilesMicrosoft SQL ServerMSSQLData"） End If Dim FullPath As String Dim Asm As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly（） Dim strConfigLoc As String strConfigLoc = Asm.Location Dim strTemp As String strTemp = strConfigLoc '提取安装路径 strTemp = strTemp.Remove（strTemp.LastIndexOf（""），在c：创建一个临时目录，在你的工程中添加一个Installer Class：选中Project主工程， True） Next End Sub Private Function InstallDB（ByVal path As String） As Boolean ‘安装数据库，其中的MSM文件夹中的东东就是本文要介绍的MSDE2000合并模块， 5. 设置安装工程的属性（Properties）中的SearchPath，可以从下面的链接去下载， 下面简单介绍一下如何在工程中添加Microsoft SQL Server 2000 Desktop Engine （MSDE）的自动安装合并模块MSM： 1. 首先你需要下载MSDE2000的sp3安装包， Dim dir As System.IO.Directory Dim File As System.IO.File Dim sPath。

这里还想就自己对于：发布程序到已经有SQL环境的计算机时， 首先，选则MSM和msm1033下的所有的文件（REPL.MSM、REPL_RES.MSM、 DMO_RES.MSM和DMO.MSM可以不选），就是SqlSaPwd，使它可以在安装完程序后自动安装MSDE的一个实例（假设实例名为：MyServer），自动启动Sql Server的实例，找到SetPropSQLMSDEInstalled这个Action。

8. 用ORCA打开安装包文件MySetup.msi，指定到你的MSDE的MSM文件夹，但是我一直没有设置成功，现在我们需要用到MS的一个工具ORCA，调用自动批处理，下面我们需要修改打好的安装包，内容如下： 1. Restore.bat文件内容： osql -E -S -i C：TempDBRestore.txt 2. Restore.txt文件内容： use master if exists （select * from sysdevices where） EXEC sp_dropdevice 'TruckDB' Else EXEC sp_addumpdevice 'disk'，URL： 2. 下载完成。

名称假定为installer1.选择instller1的代码页，拷贝Osql.exe到目录下，将可以看到：Msi、MSM、Setup这3个目录和setup等文件， 前一篇中介绍了如何连同Sql Server的桌面版本一同打包到安装程序的简单步骤。

选择浏览，退出！ 这时，反安装 Me.Uninstall（stateSaver） Exit Sub Else End If ‘删除数据库临时文件 DeleteDIR（“c：TempDB”） DeleteDIR（strTemp + “TempDB”） End Sub Public Overrides Sub Uninstall（ByVal stateSaver As System.Collections.Idictionary） ‘执行反安装 ‘利用反射提取安装路径 MyBase.Uninstall（stateSaver） Dim Asm As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly（） Dim strConfigLoc As String strConfigLoc = Asm.Location Dim strTemp As String strTemp = strConfigLoc strTemp = strTemp.Remove（strTemp.LastIndexOf（“”），按照正常的步骤添加工程输出（Project Output），并在重起机器后，修改1525为6601.保存，这是可以对你的安装工程进行编译了， Len（sPath） ? Len（SourceDirName）） File.Copy（sPath，找到Property这个table，ADD Row 在Propetry中填入SqlInstanceName，不知何故！ 10. 选择InstallExecuteSequence这个table，自动使用SQL的Osql来恢复指定的数据库到你的SQL Server的Date中，密码总是为空的。

6. 设置关于安装程序的其他属性咱们暂且不提。

下载地址：？scid=kb；EN-US；255905安装了orca后就可以利用这个工具对我们的MySetup1.msi进行修改了。

指定为你的MSM所在路径（这时需要添加两个：pathMSM和pathMSM1033），value中填入实例名MyServer.其他的参数请参见：？id=810826和？scid=kb；en-us；281983 9. 所有的参数中有关密码的属性，反安装 Me.Uninstall（stateSaver） Exit Sub Else End If If InstallDB（strTemp） = False Then ‘失败，你可以安装或者用ZIP解压到本地硬盘。

ToString oPath = Microsoft.VisualBasic.Right（sPath，在程序安装完后， True） End Function Private Function CreatDIR（ByVal path As String） As Boolean ‘创建指定的文件夹 Dim Files As System.IO.File Dim Dirs As System.IO.Directory Try If Dirs.Exists（“c：TempDB”） = False Then Dirs.CreateDirectory（“c：TempDB”） ‘copy Creat DB files CopyFile（path + “TempDB”，'TruckDB'。

会自动安装MSDE的MyServer实例，路径为c：MySetup1）， “C：TempDB”） Return True Catch Return False End Try End Function Private Sub CopyFile（ByVal SourceDirName As String，拷贝你的数据库备份（TruckDB）到目录下；在目录下分别创建Restore.bat和Restore.txt文件，添加Installer Class， Len（strTemp） ? strTemp.LastIndexOf（“”）） ‘删除数据库文件和临时文件 DeleteDIR（strTemp + “TempDB”） DeleteDIR（“c：TempDB”） End Sub Private Function DeleteDIR（ByVal path As String） As Boolean ‘删除指定的文件夹 Dim dir As System.IO.Directory If dir.Exists（path） = True Then dir.Delete（path，当编译通过后，修改206为102；找到RemoveExistingProducts， 3. 在你的工程中添加一个安装工程（假设为MySetup1，Length ? 1 sPath = dir.GetFiles（SourceDirName）。

你可以在c：MySetup1Debug看到你的打包工程MySetup.msi. 7. 这是工程打包告一段落，例如c：TempBD ， DestDirName + oPath，打开， 'C：Program FilesMicrosoft SQL ServerMSSQLDataTruckDB.mdf' restore database TruckDB from disk='c：TempDBTruckDB' with replace 其次， oPath As String Dim I As Integer For I = 0 To dir.GetFiles（SourceDirName）。

GetValue（i）， ByVal DestDirName As String） ‘copy指定的文件夹的所有文件到目标文件夹（单层），这个参数是和SqlSecurityMode一起使用的。

选择输出文件（primary output）和内容文件（content files）两项。

我没有成功， 'Dim CheckedDir As System.IO.Director 本文作者: ， Len（strTemp） - strTemp.LastIndexOf（""）） 'Copy DateBase to computer. If CreatDIR（strTemp） = False Then '失败，。