下面简单介绍一下如何在工程中添加 Microsoft SQL Server 2000 Desktop Engine (MSDE)的自动安装合并模块MSM:
1. 首先你需要下载 MSDE2000的sp3安装包。可以从下面的链接去下载,URL: http://www.microsoft.com/sql/downloads/2000/sp3.asp
2. 下载完成,你可以安装或者用 ZIP解压到本地硬盘,将可以看到:Msi、MSM、Setup这3个目录和setup等文件,其中的MSM文件夹中的东东就是本文要介绍的MSDE2000合并模块。
3. 在你的工程中添加一个安装工程(假设为 MySetup1,路径为c:\MySetup1),按照正常的步骤添加工程输出(Project Output),选择输出文件(primary output)和内容文件(content files)两项。
4. 添加合并模块( Merge Moudle),选择浏览,指定到你的MSDE的MSM文件夹,选则MSM和msm\1033下的所有的文件(REPL.MSM、REPL_RES.MSM、 DMO_RES.MSM和DMO.MSM可以不选),打开。
5. 设置安装工程的属性( Properties)中的SearchPath,指定为你的MSM所在路径(这时需要添加两个:path\MSM和path\MSM\1033)。
6. 设置关于安装程序的其他属性咱们暂且不提,这是可以对你的安装工程进行编译了,当编译通过后,你可以在 c:\MySetup1\Debug\看到你的打包工程MySetup.msi。
7. 这是工程打包告一段落,下面我们需要修改打好的安装包,使它可以在安装完程序后自动安装 MSDE的一个实例(假设实例名为:MyServer)。现在我们需要用到MS的一个工具ORCA,下载地址: http://support.microsoft.com/default.aspx?scid=kb;EN-US;255905安装了orca后就可以利用这个工具对我们的MySetup1.msi 进行修改了。
8. 用 ORCA打开安装包文件MySetup.msi,找到Property这个table,ADD Row 在Propetry中填入SqlInstanceName,value中填入实例名MyServer。其他的参数请参见: http://support.microsoft.com/?id=810826和http://support.microsoft.com/default.aspx?scid=kb;en-us;281983
9. 所有的参数中有关密码的属性,我没有成功,就是 SqlSaPwd ,这个参数是 和 SqlSecurityMode一起使用的,但是我一直没有设置成功,密码总是为空的,不知何故!
10. 选择 InstallExecuteSequence这个table,找到SetPropSQLMSDEInstalled这个Action,修改206为102;找到RemoveExistingProducts,修改1525为6601。保存,退出!
这时,在没有 SQL环境的机器上运行你的安装包,在程序安装完后,会自动安装MSDE的MyServer实例,并在重起机器后,自动启动Sql Server的实例。
=======================================================================
前一篇中介绍了如何连同 Sql Server 的桌面版本一同打包到安装程序的简单步骤,这里还想就自己对于:发布程序到已经有 SQL 环境的计算机时,自动使用 SQL 的 Osql 来恢复指定的数据库到你的 SQL Server 的 Date 中。
首先,在 c:\ 创建一个临时目录,例如 c:\TempBD ,拷贝 Osql.exe 到目录下,拷贝你的数据库备份( TruckDB )到目录下;在目录下分别创建 Restore.bat 和 Restore.txt 文件,内容如下:
1. Restore.bat 文件内容:
osql -E -S -i C:\TempDB\Restore.txt
2. Restore.txt 文件内容:
use master
if exists (select * from sysdevices where name='TruckDB')
EXEC sp_dropdevice 'TruckDB'
Else
EXEC sp_addumpdevice 'disk','TruckDB', 'C:\Program Files\Microsoft SQL Server\MSSQL\Data\TruckDB.mdf'
restore database TruckDB
from disk='c:\TempDB\TruckDB'
with replace
其次,在你的工程中添加一个 Installer Class :选中 Project 主工程,添加 Installer Class ,名称假定为 installer1 。选择 instller1 的代码页,添加下面的代码:
Public Overrides Sub Install( ByVal stateSaver As System.Collections.IDictionary)
'重写install方法
Dim file As System.IO.File
If file.Exists("C:\Program Files\Microsoft SQL Server\MSSQL\Data\TruckDB_data.mdf") = True Then Exit Sub
MyBase .Install(stateSaver)
Dim CheckedDir As System.IO.Directory
If CheckedDir.Exists("C:\Program Files\Microsoft SQL Server\MSSQL\Data") = False Then
CheckedDir.CreateDirectory("C:\Program Files\Microsoft SQL Server\MSSQL\Data")
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 Files\Microsoft SQL Server\MSSQL\Data\TruckDB_data.mdf") = True Then Exit Sub
MyBase .Install(stateSaver)
Dim CheckedDir As System.IO.Directory
If CheckedDir.Exists("C:\Program Files\Microsoft SQL Server\MSSQL\Data") = False Then
CheckedDir.CreateDirectory("C:\Program Files\Microsoft SQL Server\MSSQL\Data")
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(""), Len(strTemp) - strTemp.LastIndexOf(""))
'Copy DateBase to computer.
If CreatDIR(strTemp) = False Then
'失败,反安装
Me .Uninstall(stateSaver)
Exit Sub
Else
End If
If InstallDB(strTemp) = False Then
‘ 失败,反安装
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( “ \ ” ), 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, 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 ” , “ <span lang="EN-US" style="FONT-SIZE: