打包并自动安装sql数据库
打包，并自动安装SQL数据库
应一位网友的需求，并修正了MVP李洪根".NET平台下WEB应用程序的部署(安装数据库和自动配置)"中的osql用法错误，已测试通过。 一).创建部署项目
1. 在“文件”菜单上指向“添加项目”，然后选择“新建项目”。
2. 在“添加新项目”对话框中，选择“项目类型”窗格中的“安装和部署项目”，然后选择“模板”窗格中的“安装项目”。在“名称”框中键入 setup1。
3. 单击“确定”关闭对话框。
4. 项目被添加到解决方案资源管理器中，并且文件系统编辑器打开。
5. 在“属性”窗口中，选择 ProductName 属性，并键入 信息管理系统 。
二).将 主程序 项目的输出添加到部署项目中
1. 在“文件系统编辑器”中，选择“应用程序文件夹”。在“操作”菜单上，指向“添加”，然后选择“项目输出”。
2. 在“添加项目输出组”对话框中，选择“项目”下拉列表中的“你的程序”。
3. 单击“确定”关闭对话框。
4. 从列表中选择“主输出”和“内容文件”组，然后单击“确定”。
三).创建安装程序类
1. 在“文件”菜单上指向“新建”，然后选择“项目”。
2. 在“新建项目”对话框中，选择“项目类型”窗格中的“Visual Basic 项目”，然后选择“模板”窗格中的“类库”。在“名称”框中键入 installDB。
3. 单击“打开”关闭对话框。
4. 从“项目”菜单中选择“添加新项”。
5. 在“添加新项”对话框中选择“安装程序类”。在“名称”框中键入 installDB。
6. 单击“确定”关闭对话框。
7. 详细代码附后。
四).创建自定义安装对话框
1. 在解决方案资源管理器中选择“setup1”项目。在“视图”菜单上指向“编辑器”，然后选择“用户界面”。
2. 在用户界面编辑器中，选择“安装”下的“启动”节点。在“操作”菜单上，选择“添加对话框”。
3. 在“添加对话框”对话框中，选择“许可协议”对话框，然后单击“确定”关闭对话框。
4. 在“添加对话框”对话框中，选择“文本框 (A)”对话框，然后单击“确定”关闭对话框。
5. 在“操作”菜单上，选择“上移”。重复此步骤，直到“文本框 (A)”对话框位于“安装文件夹”节点之上。
6. 在“属性”窗口中，选择 BannerText 属性并键入：安装数据库.
7. 选择 BodyText 属性并键入：安装程序将在目标机器上安装数据库
8. 选择 Edit1Label 属性并键入：数据库名称:
9. 选择 Edit1Property 属性并键入 CUSTOMTEXTA1
10. 选择 Edit1Value 属性并键入：dbservers
11. 选择 Edit2Label 属性并键入：服务器名:
12. 选择 Edit2Property 属性并键入 CUSTOMTEXTA2
13. 选择 Edit2Value 属性并键入：(local)
14. 选择 Edit3Label 属性并键入：用户名:
15. 选择 Edit3Value 属性并键入：sa
16. 选择 Edit3Property 属性并键入 CUSTOMTEXTA3
17. 选择 Edit4Label 属性并键入：密码:
18. 选择 Edit4Property 属性并键入 CUSTOMTEXTA4
19. 选择 Edit2Visible、Edit3Visible 和 Edit4Visible 属性，并将它们设置为 true
五).创建自定义操作
1. 在解决方案资源管理器中选择“setup1”项目。在“视图”菜单上指向“编辑器”，然后选择“自定义操作”。
2. 在自定义操作编辑器中选择“安装”节点。在“操作”菜单上，选择“添加自定义操作”。
3. 在“选择项目中的项”对话框中，双击“应用程序文件夹”。
4. 选择“主输出来自 installDB（活动）”项，然后单击“确定”关闭对话框。
5. 在“属性”窗口中，选择 CustomActionData 属性并键入“/dbname=[CUSTOMTEXTA1] /server=[CUSTOMTEXTA2] /user=[CUSTOMTEXTA3] /pwd=[CUSTOMTEXTA4] /targetdir="[TARGETDIR]\"”。
附:/targetdir="[TARGETDIR]\"是安装后的目标路径，为了在installDB类中获得安装后的路径，我们设置此参数。
六).添加文件
1. 将SQL Server备份成文件DB.dat添加到“setup1”项目(在企业管理器中右击数据库->所有工作->备份数据库,备份成一个文件，取名为DB.dat)
2. 将安装文件LisenceFile.rtf添加到“setup1”项目
3. 在用户界面编辑器中，选择许可协议，设置LisenceFile属性为LisenceFile.rtf文件
4.一般会自动将依赖项添加到“检测到的依赖项”，如果没有，那么我们要手动将其加入步骤5） Crystal_Managed2003.msm （如果有水晶报表） dotnetfxredist_x86.msm （.net一定是必须的） ... （如果有引用其他的dll） 5.如果使用了水晶报表，手动加入要包含的文件：项目-->添加-->合并模块（添加你的程序文件） (包括dotNetFramework和MDAC27)，位于：C:\Program Files\Common Files\Merge Modules\ 下，*为必要的
具体功能如下： （托管组件 MSM 处理所有托管组件的分发，其中包括 Windows 窗体查看器、Web 窗体查看器和所有 Crystal Decisions 命名空间） * Crystal_Managed2003.msm Crystal_Managed2003_chs.msm
（对于使报表运行所需的所有其他文件，由数据库访问 MSM 处理其分发。其中包括数据库、导出和图表驱动程序。） * Crystal_Database_access2003.msm Crystal_Database_access2003_chs.msm
（KeyCode MSM 处理 Crystal Decisions 密钥号码的安装,注意是添加合并模块，否则没有“MergeMouduleProperties”属性） * Crystal_regwiz2003.msm
（如果报表文件使用了 ADO.NET 的 dataset 数据集对象，那么 VC_User_CRT71_RTL_X86_---.msm 和 VC_User_STL71_RTL_X86_---.msm 模块也必须包含在安装工程中。而且这两个模块的文件安装属性的"Module Retargetable Folder"项必须修改成为系统目录） VC_User_CRT71_RTL_X86_---.msm VC_User_STL71_RTL_X86_---.msm (很多人经常出现查询错误，不妨加上这个)
5.打开解决方案-->右键点击Crystal_regwiz2003.msm的属性，在“MergeMouduleProperties”里的“License Key”填入：AAP5GKS0000GDE100DS（这个是你生成Crystal Report是用到的注册号的密码！）
七).打包時加入卸载功能：
方法一: 1.在打包項目中添加文件msiexec.exe(一般可在c:\windows\system32\下找到) 2.在文件系統視圖中選擇應用程序文件夾,在msiexec.exe上按右鍵,選擇創建快捷方式,重命名快捷方式為"卸载". 3.更改此快捷方式的Arguments 为"/x {產品id}",產品id的值為打包項目的ProductCode屬性值.
方法二:(推荐) 1.先生成安装包，记下ProductCode(选择解决方案资源管理器根目录如setup1,再查看属性标签,不是右键中的属性),下面要用到 2.用VS.net建立一个新的控制台程序uninst.exe文件 'power by: landlordh 'for 2000,xp,2003 Module uninstall Sub Main() Dim myProcess As Process = New Process If System.Environment.OSVersion.ToString.IndexOf("NT 5") Then myProcess.Start("msiexec", "/X{2B65D4A9-C146-4808-AB4B-321FB0779559}") '改为自己的ProductCode End If myProcess.Close() End Sub End Module 3.将控制台程序BIN目录的exe文件加入到打包程序文件中,在程序组创建uninst.exe的快捷方式
附：installdb.vb类,要添加引用 system.configuration.install.dll :
1: Imports System.ComponentModel
2: Imports System.Configuration.Install
3:
4: <RunInstaller(True)> Public Class Installer1
5: Inherits System.Configuration.Install.Installer
6:
7: #Region " 组件设计器生成的代码 "
8:
9: Public Sub New()
10: MyBase.New()
11:
12: '该调用是组件设计器所必需的。
13: InitializeComponent()
14:
15: '在 InitializeComponent() 调用之后添加任何初始化
16:
17: End Sub
18:
19: 'Installer 重写 dispose 以清理组件列表。
20: Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
21: If disposing Then
22: If Not (components Is Nothing) Then
23: components.Dispose()
24: End If
25: End If
26: MyBase.Dispose(disposing)
27: End Sub
28:
29: '组件设计器所必需的
30: Private components As System.ComponentModel.IContainer
31:
32: '注意: 以下过程是组件设计器所必需的
33: '可以使用组件设计器来修改此过程。
34: '不要使用代码编辑器来修改它。
35: <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
36: components = New System.ComponentModel.Container
37: End Sub
38:
39: #End Region
40:
41: Public Overrides Sub Install(ByVal stateSaver As System.Collections.IDictionary)
42: MyBase.Install(stateSaver)
43: If Not InstallDB() Then
44: '失败，反安装
45: Me.Uninstall(stateSaver)
46: Exit Sub
47: End If
48: DeleteFile(String.Format("{0}DB.dat", Me.Context.Parameters.Item("targetdir")))
49: End Sub
50:
51: Public Overrides Sub Uninstall(ByVal stateSaver As System.Collections.IDictionary)
52: '执行反安装
53: MyBase.Uninstall(stateSaver)
54: DeleteFile(String.Format("{0}DB.dat", Me.Context.Parameters.Item("targetdir")))
55: End Sub
56:
57: Private Sub DeleteFile(ByVal paths As String)
58: '删除指定的文件
59: Try
60: Dim delFile As New System.IO.FileInfo(paths)
61: If delFile.Exists Then
62: delFile.Delete()
63: End If
64: Catch ex As Exception
65: End Try
66: End Sub
67:
68: Private Sub CreateSql(ByVal paths As String)
69: Dim File As System.IO.StreamWriter
70: Dim db As String = String.Format("{0}", Me.Context.Parameters.Item("dbname"))
71: Dim path As String = String.Format("{0}", Me.Context.Parameters.Item("targetdir"))
72: Try
73: Dim s As New System.Text.StringBuilder
74: s.Append("use master" & vbCrLf)
75: s.Append("" & vbCrLf)
76: s.Append("if not exists (select * from sysdatabases where name='" & db & "')" & vbCrLf)
77: s.Append(" BEGIN" & vbCrLf)
78: s.Append(" create database " & db & vbCrLf)
79: s.Append(" END" & vbCrLf)
80: s.Append("" & vbCrLf)
81: s.Append("if exists (select * from sysdevices where name='DBdisk')" & vbCrLf)
82: s.Append(" BEGIN" & vbCrLf)
83: s.Append(" EXEC sp_dropdevice 'DBdisk'" & vbCrLf)
84: s.Append(" END" & vbCrLf)
85: s.Append("Else" & vbCrLf)
86: s.Append(" BEGIN" & vbCrLf)
87: s.Append(" EXEC sp_addumpdevice 'disk','DBdisk', '" & path & "DB.dat'" & vbCrLf)
88: s.Append(" END" & vbCrLf)
89: s.Append("" & vbCrLf)
90: s.Append("restore database " & db & vbCrLf)
91: s.Append("from disk='" & path & "DB.dat'" & vbCrLf)
92: s.Append("with replace")
93: File = New System.IO.StreamWriter(paths)
94: File.Write(s.ToString)
95: Catch ex As Exception
96: Finally
97: File.Close()
98: End Try
99: End Sub
100:
101: Private Function InstallDB() As Boolean
102: '安装数据库，调用自动批处理。
103: Try
104: '创建临时脚本
105: CreateSql(String.Format("{0}Mydb2000tp.sql", Me.Context.Parameters.Item("targetdir")))
106: '调用osql执行脚本
107: Dim sqlProcess As New System.Diagnostics.Process
108: sqlProcess.StartInfo.FileName = "osql.exe"
109: sqlProcess.StartInfo.Arguments = String.Format(" -U {0} -P {1} -S {2} -i {3}Mydb2000tp.sql", Me.Context.Parameters.Item("user"), Me.Context.Parameters.Item("pwd"), Me.Context.Parameters.Item("server"), Me.Context.Parameters.Item("targetdir"))
110: sqlProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
111: sqlProcess.Start()
112: sqlProcess.WaitForExit() '等待执行
113: sqlProcess.Close()
114: '删除脚本文件
115: DeleteFile(String.Format("{0}Mydb2000tp.sql", Me.Context.Parameters.Item("targetdir")))
116: Return True
117: Catch ex As Exception
118: Return False
119: End Try
120: End Function
121:
122: End Class
123: sql数据库自动安装,sql 打包安装,sql数据库打包,.net打包自动安装,sql数据库安装,如何安装sql数据库,sql2000数据库安装,sql数据库安装盘,安装本地sql数据库,sql自动安装