无需ACE.OLEDB提供程序，VB.NET窗体应用如何读写Access数据库？

嘿，这个问题我太懂了！之前帮团队里的非IT同事解决过一模一样的情况——没有管理员权限装ACE.OLEDB，又要在VB.NET窗体里读写Access数据库。下面给你几个靠谱的方案，全都是不需要管理员权限就能用的：

这是一个完全用C#写的纯托管库，不需要依赖任何系统驱动，直接解析Access的MDB和ACCDB文件。你只需要把对应的NuGet包加到你的VB.NET项目里就行，完全不需要安装任何东西。

步骤： #

1. 打开你的VB.NET项目，右键点击「管理NuGet程序包」
2. 搜索「MDBTools.NET」并安装最新版本
3. 用下面的示例代码读写数据：

Imports MDBTools.NET

' 读取数据
Using db = new MdbDatabase("C:\YourDatabase.mdb")
    Dim table = db.GetTable("YourTableName")
    For Each row In table.Rows
        Dim value = row.GetValue("ColumnName")
        Console.WriteLine(value)
    Next
End Using

' 写入数据
Using db = new MdbDatabase("C:\YourDatabase.mdb")
    Dim table = db.GetTable("YourTableName")
    Dim newRow = table.CreateRow()
    newRow.SetValue("ColumnName", "NewValue")
    table.Rows.Add(newRow)
    db.Save()
End Using

注意：这个库对ACCDB的支持是比较新的版本，如果你用的是很老的Access格式，可能需要测试一下兼容性，但大部分场景都没问题。

UCanAccess原本是Java的库，现在有.NET的封装版本，它通过JDBC-ODBC桥接来访问Access，但不需要安装系统级的ACE驱动。你同样可以通过NuGet安装，不需要管理员权限。

步骤： #

1. 安装NuGet包「UCanAccess.NET」
2. 使用示例代码：

Imports System.Data.Odbc

Dim connectionString = "Driver={UCanAccess};DbPath=C:\YourDatabase.accdb;"
Using conn As New OdbcConnection(connectionString)
    conn.Open()
    ' 读取数据
    Dim cmd As New OdbcCommand("SELECT * FROM YourTableName", conn)
    Dim reader = cmd.ExecuteReader()
    While reader.Read()
        Console.WriteLine(reader("ColumnName"))
    End While
    ' 写入数据
    Dim insertCmd As New OdbcCommand("INSERT INTO YourTableName (ColumnName) VALUES ('NewValue')", conn)
    insertCmd.ExecuteNonQuery()
End Using

这个方案的兼容性更好，支持几乎所有Access版本，包括最新的ACCDB格式。

如果你的目标电脑上已经安装了Access客户端（不是ACE驱动，是完整的Access软件），那你可以用NetOffice库来做COM互操作，不需要管理员权限，因为NetOffice是免注册的COM封装。

步骤： #

1. 安装NuGet包「NetOffice.Access」
2. 示例代码：

Imports NetOffice.AccessApi
Imports NetOffice.AccessApi.Enums

' 创建Access应用实例
Using accessApp = New Application()
    Dim db = accessApp.OpenCurrentDatabase("C:\YourDatabase.accdb")
    ' 读取数据
    Dim rs = accessApp.CurrentDb.OpenRecordset("SELECT * FROM YourTableName")
    Do Until rs.EOF
        Console.WriteLine(rs.Fields("ColumnName").Value)
        rs.MoveNext()
    Loop
    ' 写入数据
    accessApp.CurrentDb.Execute("INSERT INTO YourTableName (ColumnName) VALUES ('NewValue')")
    db.Close()
End Using

但这个方案有个前提：目标电脑必须装了Access客户端，如果没有的话就不行，所以适用性不如前两个方案。

额外提示： #

• 不管用哪个方案，都要确保你的VB.NET项目是Any CPU或者和目标系统的位数一致（32位/64位），避免位数不兼容的问题。
• 如果是分发你的应用，只需要把对应的库文件和你的exe一起打包就行，不需要额外安装程序。

内容的提问来源于stack exchange，提问作者TomHardy