打包，并自动安装SQL数据库
点击次数：21 次 发布日期：2008-11-27 00:20:39 作者：源代码网
|
源代码网推荐 源代码网推荐一).创建部署项目 源代码网推荐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 FilesCommon FilesMerge 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:windowssystem32下找到) 源代码网推荐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 : 源代码网推荐 源代码网推荐Imports System.ComponentModel 源代码网推荐Imports System.Configuration.Install 源代码网推荐 源代码网推荐<RunInstaller(True)> Public Class Installer1 源代码网推荐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 (components Is Nothing) Then 源代码网推荐components.Dispose() 源代码网推荐End If 源代码网推荐End If 源代码网推荐MyBase.Dispose(disposing) 源代码网推荐End Sub 源代码网推荐 源代码网推荐"组件设计器所必需的 源代码网推荐Private components As System.ComponentModel.IContainer 源代码网推荐 源代码网推荐"注意: 以下过程是组件设计器所必需的 源代码网推荐"可以使用组件设计器来修改此过程。 源代码网推荐"不要使用代码编辑器来修改它。 源代码网推荐<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() 源代码网推荐components = 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("{0}DB.dat", Me.Context.Parameters.Item("targetdir"))) 源代码网推荐End Sub 源代码网推荐 源代码网推荐Public Overrides Sub Uninstall(ByVal stateSaver As System.Collections.IDictionary) 源代码网推荐"执行反安装 源代码网推荐MyBase.Uninstall(stateSaver) 源代码网推荐DeleteFile(String.Format("{0}DB.dat", Me.Context.Parameters.Item("targetdir"))) 源代码网推荐End Sub 源代码网推荐 源代码网推荐Private Sub DeleteFile(ByVal paths As String) 源代码网推荐"删除指定的文件 源代码网推荐Try 源代码网推荐Dim delFile As New System.IO.FileInfo(paths) 源代码网推荐If delFile.Exists Then 源代码网推荐delFile.Delete() 源代码网推荐End If 源代码网推荐Catch ex As Exception 源代码网推荐End Try 源代码网推荐End Sub 源代码网推荐 源代码网推荐Private Sub CreateSql(ByVal paths As String) 源代码网推荐Dim File As System.IO.StreamWriter 源代码网推荐Dim db As String = String.Format("{0}", Me.Context.Parameters.Item("dbname")) 源代码网推荐Dim path As String = String.Format("{0}", Me.Context.Parameters.Item("targetdir")) 源代码网推荐Try 源代码网推荐Dim s As New System.Text.StringBuilder 源代码网推荐s.Append("use master" & vbCrLf) 源代码网推荐s.Append("" & vbCrLf) 源代码网推荐s.Append("if not exists (select * from sysdatabases where name="" & db & "")" & vbCrLf) 源代码网推荐s.Append(" BEGIN" & vbCrLf) 源代码网推荐s.Append(" create database " & db & vbCrLf) 源代码网推荐s.Append(" END" & vbCrLf) 源代码网推荐s.Append("" & vbCrLf) 源代码网推荐s.Append("if exists (select * from sysdevices where name="DBdisk")" & vbCrLf) 源代码网推荐s.Append(" BEGIN" & vbCrLf) 源代码网推荐s.Append(" EXEC sp_dropdevice "DBdisk"" & vbCrLf) 源代码网推荐s.Append(" END" & vbCrLf) 源代码网推荐s.Append("Else" & vbCrLf) 源代码网推荐s.Append(" BEGIN" & vbCrLf) 源代码网推荐s.Append(" EXEC sp_addumpdevice "disk","DBdisk", "" & path & "DB.dat"" & vbCrLf) 源代码网推荐s.Append(" END" & vbCrLf) 源代码网推荐s.Append("" & vbCrLf) 源代码网推荐s.Append("restore database " & db & vbCrLf) 源代码网推荐s.Append("from disk="" & path & "DB.dat"" & vbCrLf) 源代码网推荐s.Append("with replace") 源代码网推荐File = New System.IO.StreamWriter(paths) 源代码网推荐File.Write(s.ToString) 源代码网推荐Catch ex As Exception 源代码网推荐Finally 源代码网推荐File.Close() 源代码网推荐End Try 源代码网推荐End Sub 源代码网推荐 源代码网推荐Private Function InstallDB() As Boolean 源代码网推荐"安装数据库，调用自动批处理。 源代码网推荐Try 源代码网推荐"创建临时脚本 源代码网推荐CreateSql(String.Format("{0}Mydb2000tp.sql", Me.Context.Parameters.Item("targetdir"))) 源代码网推荐"调用osql执行脚本 源代码网推荐Dim sqlProcess As New System.Diagnostics.Process 源代码网推荐sqlProcess.StartInfo.FileName = "osql.exe" 源代码网推荐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")) 源代码网推荐sqlProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden 源代码网推荐sqlProcess.Start() 源代码网推荐sqlProcess.WaitForExit() "等待执行 源代码网推荐sqlProcess.Close() 源代码网推荐"删除脚本文件 源代码网推荐DeleteFile(String.Format("{0}Mydb2000tp.sql", Me.Context.Parameters.Item("targetdir"))) 源代码网推荐Return True 源代码网推荐Catch ex As Exception 源代码网推荐Return False 源代码网推荐End Try 源代码网推荐End Function 源代码网推荐 源代码网推荐End Class 源代码网推荐 源代码网供稿. |
