vb.net安装ace vbnet anchor

VB.NET怎么安装

VB.NET安装部署一).创建部署项目

1. 在“文件”菜单上指向“添加项目”，然后选择“新建项目”。

2. 在“添加新项目”对话框中，选择“项目类型”窗格中的“安装和部署项目”，然后选择“模板”窗格中的“安装项目”。在“名称”框中键入 setup1。

3. 单击“确定”关闭对话框。

4. 项目被添加到解决方案资源管理器中，并且文件系统编辑器打开。

5. 在“属性”窗口中，选择 ProductName 属性，并键入 信息管理系统 。

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

1. 在“文件系统编辑器”中，选择“应用程序文件夹”。在“操作”菜单上，指向“添加”，然后选择“项目输出”。

2. 在“添加项目输出组”对话框中，选择“项目”下拉列表中的“vb.net安装ace你的程序”。

3. 单击“确定”关闭对话框。

4. 从列表中选择“主输出”和“内容文件”组，然后单击“确定”。

VB.NET安装部署三).创建安装程序类

1. 在“文件”菜单上指向“新建”，然后选择“项目”。

2. 在“新建项目”对话框中，选择“项目类型”窗格中的“Visual Basic 项目”，然后选择“模板”窗格中的“类库”。在“名称”框中键入 installDB。

3. 单击“打开”关闭对话框。

4. 从“项目”菜单中选择“添加新项”。

5. 在“添加新项”对话框中选择“安装程序类”。在“名称”框中键入 installDB。

6. 单击“确定”关闭对话框。

7. 详细代码附后。

VB.NET安装部署四).创建自定义安装对话框

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

VB.NET安装部署五).创建自定义操作

1. 在解决方案资源管理器中选择“setup1”项目。在“视图”菜单上指向“编辑器”，然后选择“自定义操作”。

2. 在自定义操作编辑器中选择“安装”节点。在“操作”菜单上，选择“添加自定义操作”。

3. 在“选择项目中的项”对话框中，双击“应用程序文件夹”。

4. 选择“主输出来自 installDB（活动）”项，然后单击“确定”关闭对话框。

5. 在“属性”窗口中，选择 CustomActionData 属性并键入“/dbname=[CUSTOMTEXTA1] /server=[CUSTOMTEXTA2] /user=[CUSTOMTEXTA3] /pwd=[CUSTOMTEXTA4] /targetdir="[TARGETDIR]/"”。

附:/targetdir="[TARGETDIR]/"是安装后的目标路径，为vb.net安装ace了在installDB类中获得安装后的路径，我们设置此参数。

VB.NET安装部署六).添加文件

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

(很多人经常出现查询错误，不妨加上这个)

6.打开解决方案--右键点击Crystal_regwiz2003.msm的属性，在“MergeMouduleProperties”里的“License Key”填入：AAP5GKS0000GDE100DS（这个是你生成Crystal Report是用到的注册号的密码vb.net安装ace！）

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-321F

B0779559}") '改为自己的ProductCode

End If

myProcess.Close()

End Sub

End Module

3.将控制台程序BIN目录的exe文件加入到打包程序文件中,在程序组创建uninst.exe的快捷方式

VB.NET安装部署八).打包时加入.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 安装引导程序）。

vb.net数据库操作

参考一下下面这段代码就可以了。

Imports System.Data

'引入数据库操作类命名空间

Imports System.Data.OleDb

'引入ADO.NET操作命名空间

Public Class FrmModifystInfo

Inherits System.Windows.Forms.Form

Public ADOcmd As OleDbDataAdapter

Public ds As DataSet = New DataSet()

'建立DataSet对象

Public mytable As Data.DataTable

'建立表单对象

Public myrow As Data.DataRow

'建立数据行对象

Public rownumber As Integer

'定义一个整型变量来存放当前行数

Public SearchSQL As String

Public cmd As OleDbCommandBuilder

'======================================================

#Region " Windows 窗体设计器生成的代码 "

#End Region

'======================================================

Private Sub FrmModifystInfo_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

'窗体的载入

TxtSID.Enabled = False

TxtName.Enabled = False

ComboSex.Enabled = False

TxtBornDate.Enabled = False

TxtClassno.Enabled = False

TxtRuDate.Enabled = False

TxtTel.Enabled = False

TxtAddress.Enabled = False

TxtComment.Enabled = False '设置信息为只读

Dim tablename As String = "student_Info "

SearchSQL = "select * from student_Info "

ExecuteSQL(SearchSQL, tablename) '打开数据库

ShowData() '显示记录

End Sub

Private Sub ShowData()

'在窗口中的textbox中显示数据

myrow = mytable.Rows.Item(rownumber)

TxtSID.Text = myrow.Item(0).ToString

TxtName.Text = myrow.Item(1).ToString

ComboSex.Text = myrow.Item(2).ToString

TxtBornDate.Text = Format(myrow.Item(3), "yyyy-MM-dd ")

TxtClassno.Text = myrow.Item(4).ToString

TxtTel.Text = myrow.Item(5).ToString

TxtRuDate.Text = Format(CDate(myrow.Item(6)), "yyyy-MM-dd ")

TxtAddress.Text = myrow.Item(7).ToString

TxtComment.Text = myrow.Item(8).ToString

End Sub

Private Sub BtFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtFirst.Click

'指向第一条数据

rownumber = 0

ShowData()

End Sub

Private Sub BtPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtPrev.Click

'指向上一条数据

BtNext.Enabled = True

rownumber = rownumber - 1

If rownumber 0 Then

rownumber = 0 '如果到达记录的首部，行号设为零

BtPrev.Enabled = False

End If

ShowData()

End Sub

Private Sub BtNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtNext.Click

'指向上一条数据

BtPrev.Enabled = True

rownumber = rownumber + 1

If rownumber mytable.Rows.Count - 1 Then

rownumber = mytable.Rows.Count - 1 '判断是否到达最后一条数据

BtNext.Enabled = False

End If

ShowData()

End Sub

Private Sub BtLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtLast.Click

'指向最后一条数据

rownumber = mytable.Rows.Count - 1

ShowData()

End Sub

Private Sub BtDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtDelete.Click

mytable.Rows.Item(rownumber).Delete() '删除记录

If MsgBox( "确定要删除改记录吗？ ", MsgBoxStyle.OKCancel + vbExclamation, "警告 ") = MsgBoxResult.OK Then

cmd = New OleDbCommandBuilder(ADOcmd)

'使用自动生成的SQL语句

ADOcmd.Update(ds, "student_Info ")

BtNext.PerformClick()

End If

End Sub

Private Sub BtModify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtModify.Click

TxtSID.Enabled = False '关键字段只读

TxtName.Enabled = True '可读写

ComboSex.Enabled = True

TxtBornDate.Enabled = True

TxtClassno.Enabled = True

TxtRuDate.Enabled = True

TxtTel.Enabled = True

TxtAddress.Enabled = True

TxtComment.Enabled = True

End Sub

Private Sub BtUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtUpdate.Click

If Not Testtxt(TxtName.Text) Then

MsgBox( "请输入姓名！ ", vbOKOnly + vbExclamation, "警告 ")

TxtName.Focus()

Exit Sub

End If

If Not Testtxt(ComboSex.Text) Then

MsgBox( "请选择性别！ ", vbOKOnly + vbExclamation, "警告 ")

ComboSex.Focus()

Exit Sub

End If

If Not Testtxt(TxtClassno.Text) Then

MsgBox( "请选择班号！ ", vbOKOnly + vbExclamation, "警告 ")

TxtClassno.Focus()

Exit Sub

End If

If Not Testtxt(TxtTel.Text) Then

MsgBox( "请输入联系电话！ ", vbOKOnly + vbExclamation, "警告 ")

TxtTel.Focus()

Exit Sub

End If

If Not Testtxt(TxtAddress.Text) Then

MsgBox( "请输入家庭住址！ ", vbOKOnly + vbExclamation, "警告 ")

TxtAddress.Focus()

Exit Sub

End If

If Not IsNumeric(Trim(TxtSID.Text)) Then

MsgBox( "请输入数字学号！ ", vbOKOnly + vbExclamation, "警告 ")

Exit Sub

TxtSID.Focus()

End If

If Not IsDate(TxtBornDate.Text) Then

MsgBox( "出生时间应输入日期格式（yyyy-mm-dd）！ ", vbOKOnly + vbExclamation, "警告 ")

Exit Sub

TxtBornDate.Focus()

End If

If Not IsDate(TxtRuDate.Text) Then

MsgBox( "入校时间应输入日期格式（yyyy-mm-dd）！ ", vbOKOnly + vbExclamation, "警告 ")

TxtRuDate.Focus()

Exit Sub

End If

myrow.Item(0) = Trim(TxtSID.Text)

myrow.Item(1) = Trim(TxtName.Text)

myrow.Item(2) = Trim(ComboSex.Text)

myrow.Item(3) = Trim(TxtBornDate.Text)

myrow.Item(4) = Trim(TxtClassno.Text)

myrow.Item(5) = Trim(TxtTel.Text)

myrow.Item(6) = Trim(TxtRuDate.Text)

myrow.Item(7) = Trim(TxtAddress.Text)

myrow.Item(8) = Trim(TxtComment.Text)

mytable.GetChanges()

cmd = New OleDbCommandBuilder(ADOcmd)

'使用自动生成的SQL语句

ADOcmd.Update(ds, "student_Info ")

'对数据库进行更新

MsgBox( "修改学籍信息成功！ ", vbOKOnly + vbExclamation, "警告 ")

TxtName.Enabled = False

ComboSex.Enabled = False

TxtBornDate.Enabled = False

TxtClassno.Enabled = False

TxtRuDate.Enabled = False

TxtTel.Enabled = False

TxtAddress.Enabled = False

TxtComment.Enabled = False '重新设置信息为只读

End Sub

Private Sub BtCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtCancel.Click

TxtSID.Enabled = False

TxtName.Enabled = False

ComboSex.Enabled = False

TxtBornDate.Enabled = False

TxtClassno.Enabled = False

TxtRuDate.Enabled = False

TxtTel.Enabled = False

TxtAddress.Enabled = False

TxtComment.Enabled = False

End Sub

Public Function ExecuteSQL(ByVal SQL As String, ByVal table As String)

Try

'建立ADODataSetCommand对象

'数据库查询函数

ADOcmd = New OleDbDataAdapter(SQL, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\student.mdb ")

'建立ADODataSetCommand对象

ADOcmd.Fill(ds, table) '取得表单

mytable = ds.Tables.Item(0) '取得名为table的表

rownumber = 0 '设置为第一行

myrow = mytable.Rows.Item(rownumber)

'取得第一行数据

Catch

MsgBox(Err.Description)

End Try

End Function

End Class

VB.NET连接accdb数据库的疑问

那是你的路径写错了，没有指定数据库的完整路径，在当前目录下的数据库要取当前的路径来指定数据库。

以下帮你改好的路径名：

Conn.ConnectionString ="provider=Microsoft.ACE.OLEDB.12.0;Data source=" Application.StartupPath "\dbRNA.accdb"

vb.net怎样制作安装包

打包过程：

1、打开自己已经创建好vb.net安装ace的VB.NET项目（一般一开始创建项目的时候创建的是Windows窗体应用程序）。

2、点“文件”--“新建项目”--“其vb.net安装ace他项目类型”--“安装部署”--“Visual Studio Installer”--“安装项目”vb.net安装ace，输入项目名称（此处命名为setup1）并点击“确定”。

3、执行完上一步vb.net安装ace，在解决方案下面会出现setup1项目。右击setup1项目--“添加”--“项目输出”。

4、在“添加项目输出组”中，选择“主输出”，然后单击“确定”。将自动添加所有依赖项。

5、在解决方案资源管理器中，右击安装项目---“添加”---“合并模块”。  把相关模块添加进来。

6、在文件系统选项卡中添加所需的应用程序图标等文件，并生成应用程序的桌面快捷方式，在快捷方式上右键选择属性，并在属性栏中的图标处选择应用程序快捷方式图标。（要在用户桌面和用户的“程序”菜单属性里将AlwaysCreate属性的值修改为True）。这样安装完程序后就可以看到桌面的图标了

7、关于应用程序图标的详细说明：

（1）点击“应用程序文件夹”并在右侧的列表中的“主输出来自。。”上右键然后点击“创建主输出来自。。的快捷方式”

（2）把生成的快捷方式复制到“用户桌面”，然后右键重命名为你想要在程序安装后显示的名字。

（3）重命名完成后在右侧的属性栏中点击图标设置为自己想要的图标，注意，需要先把图标文件ico加入到“应用程序文件夹”中。（ico的制作：先做好256*256的png文件，然后百度ico制作找到在线制作ico的网站，直接生成ico图标文件）

关于安装后的一些属性的设置：

WIN7系统 VB.NET2008 连接数据库ACCESS2007 提示未找到提供程序 该程序未正确安装

连接ACCESS2007vb.net安装ace的连接串格式不对vb.net安装ace，去百度一下access07vb.net安装ace的正确连接串。"Provider=...

VB.net操作Access2007数据库

这个不难吧vb.net安装ace？我给验证vb.net安装ace的sqlvb.net安装ace你就好vb.net安装ace了。

select count(*) form MrGreen where UserName='TxtUserName.text' and password='TxtPassword'

判断取回来的值=1就可以vb.net安装ace了。

vb.net安装ace的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet anchor、vb.net安装ace的信息别忘了在本站进行查找喔。