应一位网友的需求并修正了MVP李洪根NET平台下WEB应用程序的部署(安装数据库和自动配置)中的osql用法错误已测试通过
一)创建部署项目
在文件菜单上指向添加项目然后选择新建项目
在添加新项目对话框中选择项目类型窗格中的安装和部署项目然后选择模板窗格中的安装项目在名称框中键入 setup
单击确定关闭对话框
项目被添加到解决方案资源管理器中并且文件系统编辑器打开
在属性窗口中选择 ProductName 属性并键入 信息管理系统
二)将 主程序 项目的输出添加到部署项目中
在文件系统编辑器中选择应用程序文件夹在操作菜单上指向添加然后选择项目输出
在添加项目输出组对话框中选择项目下拉列表中的你的程序
单击确定关闭对话框
从列表中选择主输出和内容文件组然后单击确定
三)创建安装程序类
在文件菜单上指向新建然后选择项目
在新建项目对话框中选择项目类型窗格中的Visual Basic 项目然后选择模板窗格中的类库在名称框中键入 installDB
单击打开关闭对话框
从项目菜单中选择添加新项
在添加新项对话框中选择安装程序类在名称框中键入 installDB
单击确定关闭对话框
详细代码附后
四)创建自定义安装对话框
在解决方案资源管理器中选择setup项目在视图菜单上指向编辑器然后选择用户界面
在用户界面编辑器中选择安装下的启动节点在操作菜单上选择添加对话框
在添加对话框对话框中选择许可协议对话框然后单击确定关闭对话框
在添加对话框对话框中选择文本框 (A)对话框然后单击确定关闭对话框
在操作菜单上选择上移重复此步骤直到文本框 (A)对话框位于安装文件夹节点之上
在属性窗口中选择 BannerText 属性并键入安装数据库
选择 BodyText 属性并键入安装程序将在目标机器上安装数据库
选择 EditLabel 属性并键入数据库名称:
选择 EditProperty 属性并键入 CUSTOMTEXTA
选择 EditValue 属性并键入dbservers
选择 EditLabel 属性并键入服务器名:
选择 EditProperty 属性并键入 CUSTOMTEXTA
选择 EditValue 属性并键入(local)
选择 EditLabel 属性并键入用户名:
选择 EditValue 属性并键入sa
选择 EditProperty 属性并键入 CUSTOMTEXTA
选择 EditLabel 属性并键入密码:
选择 EditProperty 属性并键入 CUSTOMTEXTA
选择 EditVisibleEditVisible 和 EditVisible 属性并将它们设置为 true
五)创建自定义操作
在解决方案资源管理器中选择setup项目在视图菜单上指向编辑器然后选择自定义操作
在自定义操作编辑器中选择安装节点在操作菜单上选择添加自定义操作
在选择项目中的项对话框中双击应用程序文件夹
选择主输出来自 installDB（活动）项然后单击确定关闭对话框
在属性窗口中选择 CustomActionData 属性并键入/dbname=[CUSTOMTEXTA] /server=[CUSTOMTEXTA] /user=[CUSTOMTEXTA] /pwd=[CUSTOMTEXTA] /targetdir=[TARGETDIR]\
附:/targetdir=[TARGETDIR]\是安装后的目标路径为了在installDB类中获得安装后的路径我们设置此参数
六)添加文件
将SQL Server备份成文件DBdat添加到setup项目(在企业管理器中右击数据库>所有工作>备份数据库备份成一个文件取名为DBdat)
将安装文件LisenceFilertf添加到setup项目
在用户界面编辑器中选择许可协议设置LisenceFile属性为LisenceFilertf文件
一般会自动将依赖项添加到检测到的依赖项如果没有那么我们要手动将其加入步骤）
Crystal_Managedmsm （如果有水晶报表）
dotnetfxredist_xmsm 一定是必须的）
（如果有引用其他的dll）
如果使用了水晶报表手动加入要包含的文件项目>添加>合并模块（添加你的程序文件） (包括dotNetFramework和MDAC)位于C:\Program Files\Common Files\Merge Modules\ 下*为必要的
具体功能如下
（托管组件 MSM 处理所有托管组件的分发其中包括 Windows 窗体查看器Web 窗体查看器和所有 Crystal Decisions 命名空间）
* Crystal_Managedmsm
Crystal_Managed_chsmsm
（对于使报表运行所需的所有其他文件由数据库访问 MSM 处理其分发其中包括数据库导出和图表驱动程序）
* Crystal_Database_accessmsm
Crystal_Database_access_chsmsm
（KeyCode MSM 处理 Crystal Decisions 密钥号码的安装注意是添加合并模块否则没有MergeMouduleProperties属性）
* Crystal_regwizmsm
（如果报表文件使用了 ADONET 的 dataset 数据集对象那么 VC_User_CRT_RTL_X_msm 和 VC_User_STL_RTL_X_msm 模块也必须包含在安装工程中而且这两个模块的文件安装属性的Module Retargetable Folder项必须修改成为系统目录）
VC_User_CRT_RTL_X_msm
VC_User_STL_RTL_X_msm
(很多人经常出现查询错误不妨加上这个)
打开解决方案>右键点击Crystal_regwizmsm的属性在MergeMouduleProperties里的License Key填入AAPGKSGDEDS（这个是你生成Crystal Report是用到的注册号的密码！）
七)打包时加入卸载功能
方法一:
在打包项目中添加文件msiexecexe(一般可在c:\windows\system\下找到)
在文件系统视图中选择应用程序文件夹在msiexecexe上按右键选择创建快捷方式重命名快捷方式为卸载
更改此快捷方式的Arguments 为/x {产品id}产品id的值为打包项目的ProductCode属性值
方法二:(推荐)
先生成安装包记下ProductCode(选择解决方案资源管理器根目录如setup再查看属性标签不是右键中的属性)下面要用到
用建立一个新的控制台程序uninstexe文件
power by: landlordh
for xp
Module uninstall
Sub Main()
Dim myProcess As Process = New Process
If SystemEnvironmentOSVersionToStringIndexOf(NT ) Then
myProcessStart(msiexec /X{BDACABBFB}) 改为自己的ProductCode
End If
myProcessClose()
End Sub
End Module
将控制台程序BIN目录的exe文件加入到打包程序文件中在程序组创建uninstexe的快捷方式
附
installdbvb类要添加引用 nfigurationinstalldll :
Imports SystemComponentModel
Imports SystemConfigurationInstall
Public Class Installer
Inherits SystemConfigurationInstallInstaller
#Region 组件设
计器生成的代码
Public Sub New()
MyBaseNew()
该调用是组件设计器所必需的
InitializeComponent()
在 InitializeComponent() 调用之后添加任何初始化
End Sub
Installer 重写 dispose 以清理组件列表
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
componentsDispose()
End If
End If
MyBaseDispose(disposing)
End Sub
组件设计器所必需的
Private components As SystemComponentModelIContainer
注意: 以下过程是组件设计器所必需的
可以使用组件设计器来修改此过程
不要使用代码编辑器来修改它
Private Sub InitializeComponent()
components = New SystemComponentModelContainer
End Sub
#End Region
Public Overrides Sub Install(ByVal stateSaver As SystemCollectionsIDictionary)
MyBaseInstall(stateSaver)
If Not InstallDB() Then
失败反安装
MeUninstall(stateSaver)
Exit Sub
End If
DeleteFile(StringFormat({}DBdat MeContextParametersItem(targetdir)))
End Sub
Public Overrides Sub Uninstall(ByVal stateSaver As SystemCollectionsIDictionary)
