《2022年数据库部署推荐 .pdf》由会员分享,可在线阅读,更多相关《2022年数据库部署推荐 .pdf(4页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、一).创建部署项目1.打开 VS.NET2011。2在“File”菜单上指向“New Project”。3.在“New Project”对话框中,选择“Installed Templates”窗格中的”Other Project Types”中的“Setup and Deployment”,然后选择“Visual Studio Installer”窗格中的“Setup Project”。在“Name”框中键入MySetup。4.单击“OK”关闭对话框。5.项目被添加到解决方案资源管理器中,并且文件系统编辑器打开。6.在“Property”窗口中,选择ProductName 属性,并键入数据库打
2、包安装。二).将主程序项目的输出添加到部署项目中1.在“File System”中,选择“Application Folder”。右击指向“Add”,然后选择“File”。2.在“Add File”对话框中,选择你程序的dll 及 exe 文件.3.单击“打开”关闭对话框.三).创建安装程序类1.在“Solution Explorer”中的“Solution MySetup”上右键选择“Add”后选择“New Project”。2.在“New Project”对话框中,选择“Other Languages”窗格中的“Visual Basic“,然后选择“Class Library”。在“Nam
3、e”框中键入 InstallDB。3.单击“OK”关闭对话框。4.从“InstallDB”类库下右键选择Add”中的“New Item”。5.在“New Item”对 话 框 中 选 择“General”后 选 择“Installer Class”。在“Name”框 中 键 入InstallDB。6.单击“Add”关闭对话框。7.“InstallDB”安装程序类详细代码附后。四).创建自定义安装对话框1.在解决方案资源管理器中选择“MySetup”项目。右键然后在“View”菜单上选择“User Interface”。2.在用户界面编辑器中,选择“Install”下的“Start”节点选择“A
4、dd Dialog”。3 在“Add Dialog”对话框中,选择“Textboxs(A)”对话框,然后单击“OK”关闭对话框。4.在“Textboxs(A)”右键菜单上,选择“Move up”。重复此步骤,直到“Textboxs(A)”对话框位于“Installation Folder”节点之上。5 在“Textboxs(A)”的“Property”窗口中,选择BannerText 属性并键入:安装数据库。6.选择 BodyText属性并键入:安装程序将在目标机器上安装数据库。7.选择Edit1Label 属性并键入:数据库名称:8.选择Edit1Property 属性并键入DBNAME 9
5、.选择Edit1Value 属性并键入:budgetSysDB 10.选择Edit2Label 属性并键入:服务器名:11.选择Edit2Property 属性并键入SERVER 12.选择Edit2Value 属性并键入:(local)13.选择Edit3Label 属性并键入:用户名:13.选择Edit3Value 属性并键入:sa 15.选择Edit3Property 属性并键入USER 16.选择Edit4Label 属性并键入:密码:名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页,共 4 页 -18.选择Edit4Property 属性并键入PWD 19.选择 Edit2V
6、isible 属性,设置为false;选择 Edit2Visible、Edit3Visible 和 Edit4Visible 属性,并将它们设置为true 五).创建自定义操作1.在解决方案资源管理器中选择“MySetup”项目,右键在“View”菜单上选择“Custom Actions”。2.在自定义操作编辑器中选择“Install”节点。右键选择“Add Custom Action”。3.在“Select Item in Project”对话框中,双击“Application Folder”。4.单击”Add output”按钮选择”Project”中的”InstallDB”,在下面框中选
7、择”Primary Output”(此项一般为默认),然后单击“OK”关闭对话框。5.在”Primary Output from InstallDB(Active)的属性窗口中,选择CustomActionData 属性并键入:/dbname=DBNAME/server=SERVER/user=USER/pwd=PWD/targetdir=TARGETDIR/。附:/targetdir=TARGETDIR/是安装后的目标路径,为了在 installDB 类中获得安装后的路径,我们设置此参数。六).添加数据库文件:1.在解决方案资源管理器中选择“MySetup”项目,右键在“Add”选择“fil
8、e”。2.把数据文件”BookManage_Data.MDF”BookManage_Log.LDF”添加到”MySetup”。七).”InstallDB”安装程序类代码()Imports System.ComponentModel Imports System.Configuration.Install Imports System.Collections.Generic Imports System Imports System.Data Imports System.Data.SqlClient Namespace InstallDB Partial Public Class Instal
9、lerDB Inherits Installer 必须的设计器变量 2011-4-27 10:20 by dan Private components As System.ComponentModel.IContainer=Nothing 构造函数 2011-4-27 10:20 by dan Public Sub New()MyBase.New()This call is required by the Component Designer.InitializeComponent()Dim state As System.Collections.IDictionary=New Hashtab
10、le Add initialization code after the call to InitializeComponent 名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页,共 4 页 -End Sub 清理所有正在使用的资源 2011-4-27 10:20 by dan Protected Overrides Sub Dispose(ByVal disposing As Boolean)If disposing Then If Not IsNothing(components)Then components.Dispose()End If End If MyBase.Dispo
11、se(disposing)End Sub#Region 组件设计器生成的代码 设计器支持所需的方法不要使用代码编辑器修改此方法的内容 Private Sub InitializeComponent()components=New System.ComponentModel.Container End Sub#End Region#Region 数据库文件为mdf 和 ldf 文件 附加数据库的mdf 文件和 ldf 文件 sql 语句 数据名 mdf文件名 ldf文件名 2011-4-27 15:57 by dan Private Sub CreateDataBase(ByValstrSql
12、As String,ByValDataName As String,ByValstrMdf As String,ByValstrLdf As String,ByVal path As String)附加数据库Dim str As String Dim myConn As SqlConnection=New SqlConnection(strSql)str=EXEC sp_attach_db dbname=&DataName&,filename1=&strMdf&,filename2=&strLdf&Dim myCommand As SqlCommand=New SqlCommand(str,m
13、yConn)myConn.Open()myCommand.ExecuteNonQuery()myConn.Close()End Sub 名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页,共 4 页 -重写安装代码 2011-5-7 18:46 by dan Public Overrides Sub Install(ByValstateSaver As System.Collections.IDictionary)MyBase.Install(stateSaver)Dim server As String=Me.Context.Parameters(server)Dim uid As S
14、tring=Me.Context.Parameters(user)Dim pwd As String=Me.Context.Parameters(pwd)Dim path As String=Me.Context.Parameters(targetdir)连接 sql Dim strSql As String=server=&server&;uid=&uid&;pwd=&pwd&;database=master Dim DataNameAs String=BookManage Dim strMdf As String=path&/BookManage_Data.mdf Dim strLdf A
15、s String=path&/BookManage_Log.ldf Me.CreateDataBase(strSql,DataName,strMdf,strLdf,path)End Sub#End Region End Class End Namespace 八).打包時加入卸载功能:1.在打包項目中添加文件msiexec.exe(一般可在c:/windows/system32/下找到)2.在 File System 中选择 Application Folder,在 msiexec.exe 上按右鍵,选择”Create Shortcut to msiexec.exe”,重命名快捷方式为卸载.3.更改此快捷方式的Arguments 为/x 產品 id,产品 id 的值为打包項目的ProductCode 属性值.名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页,共 4 页 -