实现自动安装SQL Server数据库

下面简单介绍一下如何在工程中添加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 master　歼培激　if 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

应一位网友的需求 并修正了MVP李洪根 NET平台下WEB应用程序的部署(安装数据库和自动配置) 中的osql用法错误 已测试通过

一) 创建部署项目 在 文件 菜单上指向 添加项目 然后选择 新建项目 在 添加新项目 对话框中 选择 项目类型 窗格中的 安装和部署项目 然后选择 模板 窗格中的 安装项目 在 名称 框中键入 setup 单击 确定 关闭对话框 项目被添加到解决方案资源管槐册理器中 并且文件系统编辑器打开 在 属性 窗口中 选择 ProductName 属性 并键入 信息管理系统

二) 将 主程序 项目的输出添加到部署项目中 在 文件系统编辑器 中 选择 应用程序文件夹 在 *** 作 菜单上 指向 添加 然后选择 项目输出 在 添加项目输出组 对话框中 选择 项目 下拉列表中的 你的程序 单击 确定 关闭对话框 从列表中选择 主输出 和 内容文件 组 然后单铅猛宏击 确定

三) 创建安装程序类 在 文件 菜单上指向 新建 然后选择 项目 在 新建项目 对话框中 选择 项目类型 窗格中的 Visual Basic 项目 然后选择 模板 窗格中的 类库 在 名称 框中键入 installDB 单击 打开 关闭对话框 从 项目 菜单中选择 添加新项 在 添加新项 对话框中选择 安装程序类 在 名称 框中键入 installDB 单击 确定 关闭对话框 详细代码附后

四) 创建自定义安装对话框 在解决方案资源管理器中选择 setup 项目 在 视图 菜单上指向 编辑器 然后选择 用户界面 在用户界面编辑器中 选择 安装 下的 启动 节点 在 *** 作 菜单上 选择 添加对话框 在 添加对话框 对话框中 选择 许可协议 对话框 然后单击 确定 关闭对话框 在 添加对话框 对话框中 选择 文本框 (A) 对话框 然后单击 确定 关闭对话框 在 *** 作 菜单上 选择 上移 重复此步骤 直到 文本框 (A) 对话框位于 安装文件夹 节点之上 在 属性 窗口中 选择 BannerText 属性并键入 安装数据库 选择 BodyText 属性并键入 安装程序将在目标机器上安装数据库 选择 Edit Label 属性并键入 数据库名称: 选择 Edit Property 属性并键入 CUSTOMTEXTA 选择 Edit Value 属性并键入 dbservers 选择 Edit Label 属性并键入 服务器名: 选择 Edit Property 属性并键入 CUSTOMTEXTA 选择 Edit Value 属性并键入 (local) 选择 Edit Label 属性并键入 用户名: 选择 Edit Value 属性并键入 sa 选择 Edit Property 属性并键入 CUSTOMTEXTA 选择 Edit Label 属性并键入 密码: 选择 Edit Property 属性并键入 CUSTOMTEXTA 选择 Edit Visible Edit Visible 和 Edit Visible 属性 并将它们设置为 true

五) 创建自定义 *** 作 在解决方案资源管理器中选择 setup 项目 在 视图 菜单上指向 编辑器 然后选择 自定义 *** 作 在自定义 *** 作编辑器中选择 安装 节点 在 *** 作 菜单上 选择 添加自定义 *** 作 在 选择项目中的项 对话框中 双击 应用程序文件夹 选择 主输出来自 installDB（活动） 项 然后单击 确定 关闭对话框 在 属性 窗口中 选择 CustomActionData 属性并键入 /dbname=[CUSTOMTEXTA ] /server=[CUSTOMTEXTA ] /user=[CUSTOMTEXTA ] /pwd=[CUSTOMTEXTA ] /targetdir= [TARGETDIR]\

　知迹　附:/targetdir= [TARGETDIR]\ 是安装后的目标路径 为了在installDB类中获得安装后的路径 我们设置此参数

六) 添加文件 将SQL Server备份成文件DB dat添加到 setup 项目(在企业管理器中右击数据库 >所有工作 >备份数据库 备份成一个文件 取名为DB dat) 将安装文件LisenceFile rtf添加到 setup 项目 在用户界面编辑器中 选择许可协议 设置LisenceFile属性为LisenceFile rtf文件 一般会自动将依赖项添加到 检测到的依赖项 如果没有 那么我们要手动将其加入步骤 ） Crystal_Managed m *** （如果有水晶报表） dotnetfxredist_x m *** 一定是必须的） （如果有引用其他的dll） 如果使用了水晶报表 手动加入要包含的文件 项目 >添加 >合并模块（添加你的程序文件） (包括dotNetFramework和MDAC ) 位于 C:\Program Files\Common Files\Merge Modules\ 下 *为必要的 具体功能如下 （托管组件 MSM 处理所有托管组件的分发 其中包括 Windows 窗体查看器 Web 窗体查看器和所有 Crystal Decisions 命名空间） * Crystal_Managed m *** Crystal_Managed _chs m *** （对于使报表运行所需的所有其他文件 由数据库访问 MSM 处理其分发 其中包括数据库 导出和图表驱动程序 ） * Crystal_Database_access m *** Crystal_Database_access _chs m *** （KeyCode MSM 处理 Crystal Decisions 密钥号码的安装 注意是添加合并模块 否则没有 MergeMouduleProperties 属性） * Crystal_regwiz m *** （如果报表文件使用了 ADO NET 的 dataset 数据集对象 那么 VC_User_CRT _RTL_X _ m *** 和 VC_User_STL _RTL_X _ m *** 模块也必须包含在安装工程中 而且这两个模块的文件安装属性的 Module Retargetable Folder 项必须修改成为系统目录） VC_User_CRT _RTL_X _ m *** VC_User_STL _RTL_X _ m *** (很多人经常出现查询错误 不妨加上这个) 打开解决方案 >右键点击Crystal_regwiz m *** 的属性 在 MergeMouduleProperties 里的 License Key 填入 AAP GKS GDE DS（这个是你生成Crystal Report是用到的注册号的密码！）

七) 打包时加入卸载功能 方法一: 在打包项目中添加文件msiexec exe(一般可在c:\windows\system \下找到) 在文件系统视图中选择应用程序文件夹 在msiexec exe上按右键 选择创建快捷方式 重命名快捷方式为 卸载 更改此快捷方式的Arguments 为 /x {产品id} 产品id的值为打包项目的ProductCode属性值 方法二:(推荐) 先生成安装包 记下ProductCode(选择解决方案资源管理器根目录如setup 再查看属性标签 不是右键中的属性) 下面要用到 用建立一个新的控制台程序uninst exe文件 power by: landlordh for xp Module uninstall Sub Main() Dim myProcess As Process = New Process If System Environment OSVersion ToString IndexOf( NT ) Then myProcess Start( msiexec /X{ B D A C AB B FB } ) 改为自己的ProductCode End If myProcess Close() End Sub End Module 将控制台程序BIN目录的exe文件加入到打包程序文件中 在程序组创建uninst exe的快捷方式

附 installdb vb类 要添加引用 nfiguration install dll :

Imports System ComponentModel Imports System Configuration Install

Public Class Installer Inherits System Configuration Install Installer

#Region 组件设

计器生成的代码

Public Sub New() MyBase New()

该调用是组件设计器所必需的 InitializeComponent()

在 InitializeComponent() 调用之后添加任何初始化

End Sub

Installer 重写 dispose 以清理组件列表 Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (ponents Is Nothing) Then ponents Dispose() End If End If MyBase Dispose(disposing) End Sub

组件设计器所必需的 Private ponents As System ComponentModel IContainer

注意: 以下过程是组件设计器所必需的 可以使用组件设计器来修改此过程 不要使用代码编辑器来修改它 Private Sub InitializeComponent() ponents = New System ComponentModel Container End Sub

#End Region

Public Overrides Sub Install(ByVal stateSaver As System Collections IDictionary) MyBase Install(stateSaver) If Not InstallDB() Then 失败 反安装 Me Uninstall(stateSaver) Exit Sub End If DeleteFile(String Format( { }DB dat Me Context Parameters Item( targetdir ))) End Sub

lishixinzhi/Article/program/net/201311/13045

---