打包并自动安装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自动安装

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏王磊的博客

带你玩转七牛云存储——高级篇

69030
来自专栏Golang语言社区

使goroutine同步的方法总结

在前面并发性能对比的文章中,我们可以看到Golang处理大并发的能力十分强劲,而且开发也特别方便,只需要用go关键字即可开启一个新的协程。

13030
来自专栏Golang语言社区

剖析Go编写的Socket服务器模块解耦及基础模块的设计

Server的解耦—通过Router+Controller实现逻辑分发 在实际的系统项目工程中中,我们在写代码的时候要尽量避免不必要的耦合,否则你以后在更新和维...

37560
来自专栏挖掘大数据

Cobub无码埋点关键技术实现流程(附图)

随着大数据时代的到来,数据采集也已经变的越来越重要。前端埋点作为一个比较成熟的数据接入手段被广泛应用着。目前埋点分为两种方式,有码与无码埋点。有码埋点比较容易理...

27160
来自专栏林德熙的博客

win10 uwp 如何创建修改保存位图 创建保存图片在 Image 控件使用WriteableBitmap 转换通过读写像素转换 CanvasBitmap

在 UWP 使用底层的图像渲染就是使用 Softwarebitmap ,这个类提供直接数据修改,可以使用这个类进行软渲染。实际上 Softwarebitmap ...

42110
来自专栏分享达人秀

AnalogClock、DigitalClock和TextClock时钟组件

在前面一期,我们学习了DatePicker和TimePicker,在实际开发中其不能完全满足我们对时间和日期的处理。 如果只是想要显示时间,而不...

31170
来自专栏Golang语言社区

剖析Go编写的Socket服务器模块解耦及基础模块的设计

Server的解耦—通过Router+Controller实现逻辑分发 在实际的系统项目工程中中,我们在写代码的时候要尽量避免不必要的耦合,否则你以后在更新和维...

37870
来自专栏Golang语言社区

剖析Go编写的Socket服务器模块解耦及基础模块的设计

Server的解耦—通过Router+Controller实现逻辑分发 在实际的系统项目工程中中,我们在写代码的时候要尽量避免不必要的耦合,否则你以后在更新和维...

38380
来自专栏c#开发者

Asp.net dynamic Data web Site 之二创建第一个Web Site

Asp.net dynamic Data web Site 之二创建第一个Web Site 本专题介绍一个ASP.NET动态数据的网站的布局,其中包括这些文件...

45860
来自专栏java架构师

Web开发中的文件上传组件uploadify的使用

在Web开发中,有很多可以上传的组件模块,利用HTML的File控件的上传也是一种办法,不过这种方式,需要处理的细节比较多,而且只能支持单文件的操作。在目前We...

30050

扫码关注云+社区

领取腾讯云代金券