VB.NET 打包
一).创建部署项目 七).打包時加入卸载功能: 方法一: 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的快捷方式 八).打包時加入.net环境和MDAC功能: 把MS的PluginInstaller.msi插件装上后,用vb.net的自带的打包工具打包,就会自动把 .net framework环境打进去,再下面的步骤进行设置,就可以把MDAC也打包. 使用 Setup 项目安装 MDAC 1.确保 Visual Studio .NET 框架引导程序插件已安装。 2.在 Solution Explorer 中选择 Setup 项目。 从 View 菜单指向 Editor,并选择 Launch Conditions(启动条件)。 3.选择 Requirements on Target Machine(搜索目标计算机) 节点。 从 Action 菜单,选择 Add Registry Launch Condition(添加注册表搜索)。 4.选择 Search for RegistryEntry1 节点。在 Properties 窗口中, 选择 RegKey 属性,并键入 Software/Microsoft/DataAccess。 5.选择 Root 属性,并选择 vsdrrHKLM。 6.选择 Value 属性,并键入 FullInstallVer。 7.选择 Property 属性,并键入 MDACSEARCH。 8.在 Launch Conditions Editor(启动条件) 中,添加Condition1 节点。 选择 Condition1 节点,在 Properties 窗口中,选择 Condition 属性,并选择 MDACSEARCH> = "2.6 "。 9.在 Solution Explorer 中选择 Setup 项目。在 Project 菜单上,选择 Properties。 10.将 Bootstrapper 属性设置为 Windows Installer Bootstrapper(Windows 安装引导程序)。 附: 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 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |