下面简单介绍一下如何在工程中添加Microsoft SQL Server 2000 Desktop Engine (MSDE)的自动安装合并模块MSM:
这时,在没有SQL环境的机器上运行你的安装包,在程序安装完后,会自动安装MSDE的MyServer实例,并在重起机器后,自动启动Sql Server的实例。
=======================================================================
前一篇中介绍了如何连同Sql Server的桌面版本一同打包到安装程序的简单步骤,这里还想就自己对于:发布程序到已经有SQL环境的计算机时,自动使用SQL的Osql来恢复指定的数据库到你的SQL Server的Date中。
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 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”, “C:/TempDB”)
Return True
Catch
Return False
End Try
End Function
Private Sub CopyFile(ByVal SourceDirName As String, ByVal DestDirName As String)
‘copy指定的文件夹的所有文件到目标文件夹(单层)。
Dim dir As System.IO.Directory
Dim File As System.IO.File
Dim sPath, oPath As String
Dim I As Integer
For I = 0 To dir.GetFiles(SourceDirName).Length – 1
sPath = dir.GetFiles(SourceDirName).GetValue(i).ToString
oPath = Microsoft.VisualBasic.Right(sPath, Len(sPath) – Len(SourceDirName))
File.Copy(sPath, DestDirName + oPath, True)
Next
End Sub
Private Function InstallDB(ByVal path As String) As Boolean
‘安装数据库,调用自动批处理。
'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
Try
Shell(“c:/TempDB/Restore.bat”, AppWinStyle.Hide, True)
Catch
End Try
End Function
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
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 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”, “C:/TempDB”)
Return True
Catch
Return False
End Try
End Function
Private Sub CopyFile(ByVal SourceDirName As String, ByVal DestDirName As String)
‘copy指定的文件夹的所有文件到目标文件夹(单层)。
Dim dir As System.IO.Directory
Dim File As System.IO.File
Dim sPath, oPath As String
Dim I As Integer
For I = 0 To dir.GetFiles(SourceDirName).Length – 1
sPath = dir.GetFiles(SourceDirName).GetValue(i).ToString
oPath = Microsoft.VisualBasic.Right(sPath, Len(sPath) – Len(SourceDirName))
File.Copy(sPath, DestDirName + oPath, True)
Next
End Sub
Private Function InstallDB(ByVal path As String) As Boolean
‘安装数据库,调用自动批处理。
'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
Try
Shell(“c:/TempDB/Restore.bat”, AppWinStyle.Hide, True)
Catch
End Try
End Function
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