打包过程:
一).创建部署项目
① 在"文件"菜单上指向"添加项目",然后选择"新建项目".
二).将 主程序 项目的输出添加到部署项目中
三).创建安装程序类
① 在"文件"菜单上指向"新建",然后选择"项目".
四).创建自定义安装对话框
①.0. 选择 Edit1Value 属性并键入:dbservers
五).创建自定义操作
附:/targetdir="[TARGETDIR]\"是安装后的目标路径,为了在installDB类中获得安装后的路径,我们设置此参数.
六).添加文件
① 将SQL Server备份成文件DB.dat添加到"setup1"项目(在企业管理器中右击数据库-所有工作-备份数据库,备份成一个文件,取名为DB.dat)
... (如果有引用其他的dll)
具体功能如下:
(托管组件 MSM 处理所有托管组件的分发,其中包括 Windows 窗体查看器、Web 窗体查看器和所有 Crystal Decisions 命名空间)
(对于使报表运行所需的所有其他文件,由数据库访问 MSM 处理其分发.其中包括数据库、导出和图表驱动程序.)
(KeyCode MSM 处理 Crystal Decisions 密钥号码的安装,注意是添加合并模块,否则没有"MergeMouduleProperties"属性)
(很多人经常出现查询错误,不妨加上这个)
七).打包时加入卸载功能:
方法一:
方法二:(推荐)
①先生成安装包,记下ProductCode(选择解决方案资源管理器根目录如setup1,再查看属性标签,不是右键中的属性),下面要用到
'power by: landlordh
Module uninstall
Sub Main()
Dim myProcess As Process = New Process
End If
myProcess.Close()
End Sub
End Module
八).打包时加入.net环境和MDAC功能:
把MS的PluginInstaller.msi插件装上后,用vb.net的自带的打包工具打包,就会自动把
.net framework环境打进去,再下面的步骤进行设置,就可以把MDAC也打包.
使用 Setup 项目安装 MDAC
①确保 Visual Studio .NET 框架引导程序插件已安装.
从 View 菜单指向 Editor,并选择 Launch Conditions(启动条件).
从 Action 菜单,选择 Add Registry Launch Condition(添加注册表搜索).
选择 RegKey 属性,并键入 Software\Microsoft\DataAccess.
①.0.将 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() 调用之后添加任何初始化
'Installer 重写 dispose 以清理组件列表.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
MyBase.Dispose(disposing)
'组件设计器所必需的
Private components As System.ComponentModel.IContainer
'注意: 以下过程是组件设计器所必需的
'可以使用组件设计器来修改此过程.
System.Diagnostics.DebuggerStepThrough() Private Sub InitializeComponent()
components = New System.ComponentModel.Container
#End Region
Public Overrides Sub Install(ByVal stateSaver As System.Collections.IDictionary)
MyBase.Install(stateSaver)
If Not InstallDB() Then
'失败,反安装
Me.Uninstall(stateSaver)
Exit Sub
DeleteFile(String.Format("{0}DB.dat", Me.Context.Parameters.Item("targetdir")))
Public Overrides Sub Uninstall(ByVal stateSaver As System.Collections.IDictionary)
'执行反安装
MyBase.Uninstall(stateSaver)
Private Sub DeleteFile(ByVal paths As String)
'删除指定的文件
Try
Dim delFile As New System.IO.FileInfo(paths)
If delFile.Exists Then
delFile.Delete()
Catch ex As Exception
End Try
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"))
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("if exists (select * from sysdevices where name='DBdisk')" vbCrLf)
s.Append(" EXEC sp_dropdevice 'DBdisk'" vbCrLf)
s.Append("Else" vbCrLf)
s.Append(" EXEC sp_addumpdevice 'disk','DBdisk', '" path "DB.dat'" 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)
Finally
File.Close()
Private Function InstallDB() As Boolean
'安装数据库,调用自动批处理.
'创建临时脚本
'调用osql执行脚本
Dim sqlProcess As New System.Diagnostics.Process
sqlProcess.StartInfo.FileName = "osql.exe"
sqlProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
sqlProcess.Start()
sqlProcess.WaitForExit() '等待执行
sqlProcess.Close()
'删除脚本文件
Return True
Return False
End Function
End Class
网上的另外一种installdb.vb类
using System;
using System.Collections;
using System.ComponentModel;
using System.Configuration.Install;
using System.Reflection;
using System.IO;
using System.Data;
using System.Data.SqlClient;
namespace install
{
/// summary
/// Installer1 的摘要说明.
/// /summary
[RunInstaller(true)]
public class Installer1 : System.Configuration.Install.Installer
/// 必需的设计器变量.
private System.ComponentModel.Container components = null;
public Installer1()
// 该调用是设计器所必需的.
InitializeComponent();
// TODO: 在 InitializeComponent 调用后添加任何初始化
}
/// 清理所有正在使用的资源.
protected override void Dispose( bool disposing )
if( disposing )
if(components != null)
components.Dispose();
base.Dispose( disposing );
#region 组件设计器生成的代码
/// 此方法的内容.
private void InitializeComponent()
components = new System.ComponentModel.Container();
#endregion
private string GetSql(string Name)
// //调用osql执行脚本
//
// System.Diagnostics.Process sqlProcess = new System.Diagnostics.Process();
// sqlProcess.StartInfo.FileName = "osql.exe";
// sqlProcess.StartInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden;
// sqlProcess.Start();
// sqlProcess.WaitForExit() ;//等待执行
// sqlProcess.Close();
try
// Assembly Asm = Assembly.GetExecutingAssembly();
// System.IO.FileInfo FileInfo = new System.IO.FileInfo(Asm.Location);
// string path=FileInfo.DirectoryName+@"\"+Name;
string path=this.Context.Parameters["targetdir"]+Name;
FileStream fs=new FileStream(path,FileMode.Open,FileAccess.Read,FileShare.Read);
StreamReader reader = new StreamReader(fs,System.Text.Encoding.Default);
//System.Text.Encoding.ASCII;
return reader.ReadToEnd();
catch (Exception ex)
Console.Write("In GetSql:"+ex.Message);
throw ex;
private void ExecuteSql(string DataBaseName,string Sql)
SqlConnection sqlConnection1=new SqlConnection();
System.Data.SqlClient.SqlCommand Command = new System.Data.SqlClient.SqlCommand(Sql,sqlConnection1);
Command.Connection.Open();
Command.Connection.ChangeDatabase(DataBaseName);
Command.ExecuteNonQuery();
catch(Exception ex)
Console.Write("In exception handler :"+ex.Message);
finally
Command.Connection.Close();
protected void AddDBTable(string strDBName)
ExecuteSql("master","Create DATABASE "+ strDBName);
ExecuteSql(strDBName,GetSql("sql.txt"));
ExecuteSql("master","exec sp_addlogin 'myoamaster','myoamaster','"+strDBName+"',Null,Null");
ExecuteSql(strDBName,"EXEC sp_grantdbaccess 'myoamaster', 'myoamaster'");
ExecuteSql(strDBName,"exec sp_addrolemember 'db_owner','myoamaster'");
public override void Install(System.Collections.IDictionary stateSaver)
base.Install(stateSaver);
AddDBTable(this.Context.Parameters["dbname"]);
这里有个sql.txt是数据库的sql脚本,当然可以调用osql来执行sql脚本,其实是一样的.
打包的时候必须把sql.txt文件加进来,否则不会执行.
如果你想附加数据库的mdf文件和ldf文件,用下面这段程序:
private void CreateDataBase(string strSql,string DataName,string strMdf,string strLdf)
String str;
SqlConnection myConn = new SqlConnection (strSql);
SqlCommand myCommand = new SqlCommand(str, myConn);
myConn.Open();
myCommand.ExecuteNonQuery();
myConn.Close();
当然打包的时候也要把这两个数据库文件也加进来.
在电脑中其他位置新建一个文件夹,单击下一步,点"完成",点"关闭".
以上为个人看法,手打很辛苦,希望采纳,谢谢您的支持.
谢谢您的支持,有任何疑问欢迎您再次通过此渠道提问,让大家共同解决,共同进步!
以上回答仅为"百度规则",没有任何违法行为,请楼主采纳,谢谢!
可以直接使用vs中的安装部署工具,具体先打开工程,新建选择安装部署,顺着执行就可以了也可以使用外部工具如installshield等工具打包
在生成菜单下,
有发布应用程序
选好目录
然后下一步
选CD
下一步
完成
文件夹下有setup安装程序
完成,请选为采纳答案,谢谢