下面简单介绍一下如何在工程中添加Microsoft SQL Server Desktop Engine (MSDE)的自动安装合并模块MSM 首先你需要下载MSDE 的sp 安装包 可以从下面的链接去下载 URL 下载完成 你可以安装或者用ZIP解压到本地硬盘 将可以看到 Msi MSM Setup这 个目录和setup等文件 其中的MSM文件夹中的东东就是本文要介绍的MSDE 合并模块 在你的工程中添加一个安装工程(假设为MySetup 路径为c \MySetup ) 按照正常的步骤添加工程输出(Project Output) 选择输出文件(primary output)和内容文件(content files)两项 添加合并模块(Merge Moudle) 选择浏览 指定到你的MSDE的MSM文件夹 选则MSM和m \ 下的所有的文件(REPL MSM REPL_RES MSM DMO_RES MSM和DMO MSM可以不选) 打开 设置安装工程的属性(Properties)中的SearchPath 指定为你的MSM所在路径(这时需要添加两个 path\MSM和path\MSM\ ) 设置关于安装程序的其他属性咱们暂且不提 这是可以对你的安装工程进行编译了 当编译通过后 你可以在c \MySetup \Debug\看到你的打包工程MySetup msi 这是工程打包告一段落 下面我们需要修改打好的安装包 使它可以在安装完程序后自动安装MSDE的一个实例(假设实例名为 MyServer) 现在我们需要用到MS的一个工具ORCA 下载地址 x?scid=kb EN US 安装了orca后就可以利用这个工具对我们的MySetup msi进行修改了 用ORCA打开安装包文件MySetup msi 找到Property这个table ADD Row 在Propetry中填入SqlInstanceName value中填入实例名MyServer 其他的参数请参见 ?id= 和x?scid=kb en us 所有的参数中有关密码的属性 我没有成功 就是SqlSaPwd 这个参数是和SqlSecurityMode一起使用的 但是我一直没有设置成功 密码总是为空的 不知何故! 选择InstallExecuteSequence这个table 找到SetPropSQLMSDEInstalled这个Action 修改 为 找到RemoveExistingProducts 修改 为 保存 退出!这时 在没有SQL环境的机器上运行你的安装包 在程序安装完后 会自动安装MSDE的MyServer实例 并在重起机器后 自动启动Sql Server的实例 前一篇中介绍了如何连同Sql Server的桌面版本一同打包到安装程序的简单步骤 这里还想就自己对于 发布程序到已经有SQL环境的计算机时 自动使用SQL的Osql来恢复指定的数据库到你的SQL Server的Date中 首先 在c \创建一个临时目录 例如c \TempBD 拷贝Osql exe到目录下 拷贝你的数据库备份(TruckDB)到目录下 在目录下分别创建Restore bat和Restore txt文件 内容如下 Restore bat文件内容 osql E S i C \TempDB\Restore txt Restore txt文件内容 use masterif exists (select from sysdevices where name= TruckDB )EXEC sp_dropdevice TruckDB ElseEXEC sp_addumpdevice disk TruckDB C \Program Files\Microsoft SQL Server\MSSQL\Data\TruckDB mdf restore database TruckDBfrom disk= c \TempDB\TruckDB with replace其次 在你的工程中添加一个Installer Class 选中Project主工程 添加Installer Class 名称假定为installer 选择instller 的代码页 添加下面的代码 Public Overrides Sub Install(ByVal stateSaver As System Collections IDictionary) 重写install方法Dim file As System IO FileIf file Exists( C \Program Files\Microsoft SQL Server\MSSQL\Data\TruckDB_data mdf ) = True Then Exit SubMyBase Install(stateSaver)Dim CheckedDir As System IO DirectoryIf CheckedDir Exists( C \Program Files\Microsoft SQL Server\MSSQL\Data ) = False ThenCheckedDir CreateDirectory( C \Program Files\Microsoft SQL Server\MSSQL\Data )End IfDim FullPath As StringDim A As System Reflection Assembly = System Reflection Assembly GetExecutingAssembly()Dim strConfigLoc As StringstrConfigLoc = A LocationDim file As System IO FileIf file Exists( C \Program Files\Microsoft SQL Server\MSSQL\Data\TruckDB_data mdf ) = True Then Exit SubMyBase Install(stateSaver)Dim CheckedDir As System IO DirectoryIf CheckedDir Exists( C \Program Files\Microsoft SQL Server\MSSQL\Data ) = False ThenCheckedDir CreateDirectory( C \Program Files\Microsoft SQL Server\MSSQL\Data )End IfDim FullPath As StringDim A As System Reflection Assembly = System Reflection Assembly GetExecutingAssembly()Dim strConfigLoc As StringstrConfigLoc = A LocationDim strTemp As StringstrTemp = strConfigLoc 提取安装路径strTemp = strTemp Remove(strTemp LastIndexOf( \ ) Len(strTemp) strTemp LastIndexOf( \ )) Copy DateBase to puter If CreatDIR(strTemp) = False Then 失败 反安装Me Uninstall(stateSaver)Exit SubElseEnd IfIf InstallDB(strTemp) = False Then 失败 反安装Me Uninstall(stateSaver)Exit SubElseEnd If 删除数据库临时文件DeleteDIR( c \TempDB )DeleteDIR(strTemp + \TempDB )End SubPublic Overrides Sub Uninstall(ByVal stateSaver As System Collections Idictionary) 执行反安装 利用反射提取安装路径MyBase Uninstall(stateSaver)Dim A As System Reflection Assembly = System Reflection Assembly GetExecutingAssembly()Dim strConfigLoc As StringstrConfigLoc = A LocationDim strTemp As StringstrTemp = strConfigLocstrTemp = strTemp Remove(strTemp LastIndexOf( \ ) Len(strTemp) – strTemp LastIndexOf( \ )) 删除数据库文件和临时文件DeleteDIR(strTemp + \TempDB )DeleteDIR( c \TempDB )End SubPrivate Function DeleteDIR(ByVal path As String) As Boolean 删除指定的文件夹Dim dir As System IO DirectoryIf dir Exists(path) = True Then dir Delete(path True)End FunctionPrivate Function CreatDIR(ByVal path As String) As Boolean 创建指定的文件夹Dim Files As System IO FileDim Dirs As System IO DirectoryTryIf Dirs Exists( c \TempDB ) = False Then Dirs CreateDirectory( c \TempDB ) copy Creat DB filesCopyFile(path + \TempDB C \TempDB )Return TrueCatchReturn FalseEnd TryEnd FunctionPrivate Sub CopyFile(ByVal SourceDirName As String ByVal DestDirName As String) copy指定的文件夹的所有文件到目标文件夹(单层) Dim dir As System IO DirectoryDim File As System IO FileDim sPath oPath As StringDim I As IntegerFor I = To dir GetFiles(SourceDirName) Length – sPath = dir GetFiles(SourceDirName) GetValue(i) ToStringoPath = Microsoft VisualBasic Right(sPath Len(sPath) – Len(SourceDirName))File Copy(sPath DestDirName + oPath True)NextEnd SubPrivate Function InstallDB(ByVal path As String) As Boolean 安装数据库 调用自动批处理 Dim CheckedDir As System IO Director lishixinzhi/Article/program/SQLServer/201311/11234
以上就是关于实现自动安装SQL Server数据库全部的内容,包括:实现自动安装SQL Server数据库、、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)