如何将Access程序打包(编译)成EXE文件用以发布?(转自access911.net)

(http://access911.net/fixhtm/73FAB61E.htm?tt=)

问题:

  如何使数据库脱离Access环境运行,如何将Access程序打包(编译)成EXE文件用以发布?

 

 

回答:

  再次重申:Access 无法将 MDB/MDE/ADP/ADE/MDA/MDW 文件直接编译成 EXE 可执行文件脱离 Access 环境运行!

 


您可以有几个选择:
1、获得 Office 开发版,里面有专门的打包工具。但也并非直接将你的数据库编译成可执行文件,而只是将 Access Runtime 版本和你的数据库文件以及所有的支持文件一起压缩而已。
2、用专门的打包发布程序将你的数据库和 Access 本身以及所有的支持文件一起打包,其效果同方法一基本一致。站主推荐使用 I

  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
是的,VB.NET 提供了多种方法将 Excel 文件转换为 Access 数据库,以下是其中的两种方法: 1. 使用 OleDb 连接器 你可以使用 OleDb 连接器连接 Excel 文件Access 数据库,并将数据从 Excel 文件中读取到 DataSet 对象,然后将 DataSet 对象写入 Access 数据库。以下是代码示例: ```vb.net Dim excelConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myExcelFile.xlsx;Extended Properties='Excel 12.0 Xml;HDR=YES;'" Dim accessConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccessFile.accdb;Persist Security Info=False;" Dim excelConnection As OleDbConnection = New OleDbConnection(excelConnectionString) Dim accessConnection As OleDbConnection = New OleDbConnection(accessConnectionString) Dim adapter As OleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM [Sheet1$]", excelConnection) Dim dataSet As DataSet = New DataSet() adapter.Fill(dataSet, "ExcelData") Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(adapter) builder.QuotePrefix = "[" builder.QuoteSuffix = "]" adapter.UpdateCommand = builder.GetUpdateCommand() adapter.InsertCommand = builder.GetInsertCommand() adapter.DeleteCommand = builder.GetDeleteCommand() accessConnection.Open() adapter.Update(dataSet.Tables("ExcelData")) accessConnection.Close() ``` 在上面的代码中,我们首先创建了两个 OleDbConnection 对象,一个用于连接 Excel 文件,一个用于连接 Access 数据库。然后,我们使用 OleDbDataAdapter 对象读取 Excel 文件中的数据,并将数据填充到 DataSet 对象中。接下来,我们创建了一个 OleDbCommandBuilder 对象,用于自动生更新、插入和删除命令。最后,我们使用 OleDbDataAdapter 对象将 DataSet 对象中的数据写入 Access 数据库。 2. 使用 COM 对象 你也可以使用 COM 对象来读取 Excel 文件,然后使用 ADO.NET 连接器将数据写入 Access 数据库。以下是代码示例: ```vb.net Dim excelApplication As Object = CreateObject("Excel.Application") Dim excelWorkbook As Object = excelApplication.Workbooks.Open("C:\myFolder\myExcelFile.xlsx") Dim excelWorksheet As Object = excelWorkbook.Worksheets("Sheet1") Dim accessConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccessFile.accdb;Persist Security Info=False;" Dim accessConnection As OleDbConnection = New OleDbConnection(accessConnectionString) Dim adapter As OleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM [Sheet1$]", accessConnection) Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(adapter) builder.QuotePrefix = "[" builder.QuoteSuffix = "]" Dim dataSet As DataSet = New DataSet() adapter.Fill(dataSet, "AccessData") Dim table As DataTable = dataSet.Tables("AccessData") For rowIndex As Integer = 2 To excelWorksheet.UsedRange.Rows.Count Dim row As DataRow = table.NewRow() For columnIndex As Integer = 1 To excelWorksheet.UsedRange.Columns.Count row(columnIndex - 1) = excelWorksheet.Cells(rowIndex, columnIndex).Value Next table.Rows.Add(row) Next accessConnection.Open() adapter.Update(dataSet.Tables("AccessData")) accessConnection.Close() excelWorkbook.Close(False) excelApplication.Quit() ``` 在上面的代码中,我们首先使用 CreateObject 函数创建了一个 Excel.Application 对象,并打开了 Excel 文件和工作表。然后,我们创建了一个 OleDbDataAdapter 对象,并使用 OleDbCommandBuilder 对象自动生更新、插入和删除命令。接下来,我们使用 ADO.NET 连接器将数据从 Access 数据库读取到 DataSet 对象中。然后,我们遍历 Excel 工作表中的数据,将数据填充到 DataTable 对象中。最后,我们使用 OleDbDataAdapter 对象将 DataTable 对象中的数据写入 Access 数据库。注意,我们需要手动关闭 Excel 应用程序和工作簿。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值