网站首页 > 文章中心 > 其它

vb.net怎么打包

作者:小编 更新时间:2023-10-05 08:57:18 浏览量:387人看过

VB.NET 2008 怎么给软件打包?能不能做成一个exe文件?

打包过程:

一).创建部署项目

① 在"文件"菜单上指向"添加项目",然后选择"新建项目".

二).将 主程序 项目的输出添加到部署项目中

三).创建安装程序类

① 在"文件"菜单上指向"新建",然后选择"项目".

四).创建自定义安装对话框

①.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();

当然打包的时候也要把这两个数据库文件也加进来.

VB程序怎么打包

在电脑中其他位置新建一个文件夹,单击下一步,点"完成",点"关闭".

以上为个人看法,手打很辛苦,希望采纳,谢谢您的支持.

谢谢您的支持,有任何疑问欢迎您再次通过此渠道提问,让大家共同解决,共同进步!

以上回答仅为"百度规则",没有任何违法行为,请楼主采纳,谢谢!

如何将VB.NET的程序打包

vb.net中怎么把做好的系统打包?

可以直接使用vs中的安装部署工具,具体先打开工程,新建选择安装部署,顺着执行就可以了也可以使用外部工具如installshield等工具打包

VB.net平台做出来的程序怎么打包成.exe文件?

VB.net怎样打包呀,我用的是2010版,谢谢了

在生成菜单下,

有发布应用程序

选好目录

然后下一步

选CD

下一步

完成

文件夹下有setup安装程序

完成,请选为采纳答案,谢谢

版权声明:倡导尊重与保护知识产权。未经许可,任何人不得复制、转载、或以其他方式使用本站《原创》内容,违者将追究其法律责任。本站文章内容,部分图片来源于网络,如有侵权,请联系我们修改或者删除处理。

编辑推荐

热门文章