简介这份资源是面向VB.Net初学者与桌面应用开发者的Access数据库操作示例工程围绕ADO.Net框架下的OleDb连接、命令执行与数据适配展开帮助读者理解如何在Windows程序中完成对Access数据的增删改查。包内共18个文件以vbproj、sln、vb等工程与源码文件为主辅以xml配置、resx资源、ico图标及mdb数据库文件另有exe可执行程序与pdb调试符号压缩包约47KB结构完整可直接在VS中打开运行。资源涵盖连接字符串配置、OleDbCommand与DataReader读取、参数化DML语句、DataAdapter与DataSet填充绑定等典型场景适合对照源码梳理数据库访问流程、排查连接与提供程序选择问题。目前已有228人学习下载可作为VB.Net结合Access开发的入门参考与练手素材。1. 从一次“找不到 .accdb 驱动”说起这份 Access 数据库操作示例到底能干什么如果你在 VB.Net 里连过 Access大概率遇到过这个报错未在本地计算机上注册 Microsoft.ACE.OLEDB.12.0 提供程序。代码明明照着网上抄的连接字符串也没写错程序一跑就翻车。问题往往不在代码而在驱动位数、Office 版本和编译目标三者的错配。这份 Access 数据库操作示例就是围绕 VB.Net 操作 Access 这条链路把连接、增删改查、参数化查询、异常处理这些环节拆开讲清楚的一份可复现素材。它适合两类人一类是还在用 Access 做小型管理系统的从业者比如单机进销存、设备台账、实验数据记录另一类是想搞懂 ADO.Net 操作文件型数据库底层逻辑的新手。Access 本身门槛低、部署简单一个.accdb文件拷走就能用但它的坑也集中——驱动、并发、SQL 方言、字段类型每一个都能让程序在客户现场趴窝。下面按“能跑起来 → 能改对 → 能避坑”的顺序往下走。2. 环境与连接VB.Net 连 Access 的驱动选型和连接字符串2.1 为什么是 ACE OLEDB 而不是 JetAccess 数据库分两个时代.mdb是 Jet 引擎的产物.accdb是 ACE 引擎的产物。很多人手里的示例代码还在用Microsoft.Jet.OLEDB.4.0这个提供程序只认.mdb而且只有 32 位版本。你拿它去连.accdb直接报“不可识别的数据库格式”。所以第一步要认清自己手里的文件后缀。文件格式推荐提供程序位数限制备注.mdbMicrosoft.Jet.OLEDB.4.0仅 32 位老项目遗留新项目不建议.accdbMicrosoft.ACE.OLEDB.12.032/64 位需匹配需装 Access Database Engine.accdbMicrosoft.ACE.OLEDB.16.032/64 位需匹配随较新 Office 安装选型逻辑很简单新项目一律用 ACE.accdb格式。ACE 提供程序不是 Windows 自带的需要单独安装 Access Database Engine 可再发行组件。这里有个血泪经验如果你机器上装了 64 位 Office又去装 32 位的 ACE 引擎安装程序会直接拒绝提示已安装 64 位版本。反过来也一样。所以驱动位数必须和你的 VB.Net 项目编译目标一致。2.2 连接字符串的三种写法和参数含义连接字符串是 Access 操作里最容易写错又最难排查的部分。常见的有三种写法差别在是否带密码、是否指定数据库位置。 写法一标准无密码连接最常用 Dim connStr As String ProviderMicrosoft.ACE.OLEDB.12.0; Data SourceC:\Data\demo.accdb; Persist Security InfoFalse; 写法二带数据库密码Access 的“数据库密码”不是用户级安全 Dim connStrPwd As String ProviderMicrosoft.ACE.OLEDB.12.0; Data SourceC:\Data\demo.accdb; Jet OLEDB:Database Password你的密码; 写法三相对路径 当前程序目录方便部署 Dim dbPath As String IO.Path.Combine(Application.StartupPath, demo.accdb) Dim connStrRel As String ProviderMicrosoft.ACE.OLEDB.12.0; Data Source dbPath ;逻辑说明Provider决定用哪个引擎写错就是“未注册提供程序”Data Source是.accdb文件的绝对或相对路径路径里有空格不用加引号但建议用Path.Combine拼Persist Security InfoFalse表示连接打开后不再保留密码信息属于安全习惯。参数说明Jet OLEDB:Database Password对应的是在 Access 里“文件 → 信息 → 用密码进行加密”设置的那个密码和旧版用户级安全不是一回事别混。提示连接字符串里的分号是分隔符路径结尾不要多写分号否则会被解析成空参数。2.3 打开连接与释放资源的正确姿势VB.Net 里OleDbConnection实现了IDisposable必须用Using包起来否则连接池耗尽或者文件被锁死后面想删都删不掉。Public Function TestConnection() As Boolean Dim connStr As String ProviderMicrosoft.ACE.OLEDB.12.0; Data Source IO.Path.Combine(Application.StartupPath, demo.accdb) ; Try Using conn As New OleDb.OleDbConnection(connStr) conn.Open() 真正建立连接 Return conn.State ConnectionState.Open End Using 离开 Using 自动 Close Dispose Catch ex As Exception MessageBox.Show(连接失败 ex.Message) Return False End Try End Function逻辑说明Using块结束时无论是否异常都会调用Dispose等价于Close加释放。参数说明conn.State返回ConnectionState枚举判断是否等于Open比直接返回True更严谨。常见错误是把OleDbConnection声明成模块级变量长期持有结果 Access 文件一直被占用别的进程写不进去。3. 增删改查落地参数化 SQL 与 OleDb 的字段类型映射3.1 为什么必须用参数化查询而不是拼字符串Access 的 SQL 方言和 SQL Server 有差异但参数化这件事上是一致的拼接字符串会带来两个问题一是文本字段里的单引号直接把 SQL 拆断二是给注入留了口子。热搜里常出现的“access 注入”说的就是这类拼接查询被利用。正确做法是用OleDbParameter占位符用?不是名字。 新增一条记录参数化写法 Public Sub InsertUser(name As String, age As Integer) Dim connStr As String ProviderMicrosoft.ACE.OLEDB.12.0;Data Source IO.Path.Combine(Application.StartupPath, demo.accdb) ; Dim sql As String INSERT INTO Users (UserName, Age) VALUES (?, ?) Using conn As New OleDb.OleDbConnection(connStr) Using cmd As New OleDb.OleDbCommand(sql, conn) 参数顺序必须和 SQL 里的 ? 一一对应 cmd.Parameters.AddWithValue(?, name) cmd.Parameters.AddWithValue(?, age) conn.Open() Dim rows As Integer cmd.ExecuteNonQuery() MessageBox.Show(影响行数 rows) End Using End Using End Sub逻辑说明OleDbCommand的参数是位置参数?的绑定顺序由Parameters.AddWithValue的调用顺序决定名字写什么都无所谓但顺序错了数据就串位。参数说明ExecuteNonQuery返回受影响行数插入、更新、删除都用它AddWithValue会根据传入值的类型推断OleDbType一般够用但遇到DateTime或Decimal建议显式指定类型避免精度丢失。3.2 查询用 ExecuteReader 还是 DataAdapter读数据有两条路ExecuteReader逐行读适合大数据量或只读一次OleDbDataAdapter填充DataTable适合需要绑定到DataGridView反复操作的场景。Access 单文件数据库在数据量不大时两者差别不明显但DataAdapter会一次性把结果拉进内存。 查询并绑定到 DataGridView Public Function QueryUsers() As DataTable Dim dt As New DataTable() Dim connStr As String ProviderMicrosoft.ACE.OLEDB.12.0;Data Source IO.Path.Combine(Application.StartupPath, demo.accdb) ; Dim sql As String SELECT UserID, UserName, Age FROM Users ORDER BY UserID Using conn As New OleDb.OleDbConnection(connStr) Using adapter As New OleDb.OleDbDataAdapter(sql, conn) adapter.Fill(dt) 自动 Open/Close 连接 End Using End Using Return dt End Function逻辑说明DataAdapter.Fill内部会自己打开和关闭连接不需要手动Open。参数说明返回的DataTable可以直接赋给DataGridView.DataSource。如果表里有备注字段MemoDataAdapter默认可能截断需要在SELECT里注意字段顺序或者改用ExecuteReader配合GetString读取。3.3 更新和删除的 WHERE 条件陷阱更新和删除最怕 WHERE 写漏一条UPDATE Users SET Age 18能把整张表改掉。Access 里没有事务回滚的后悔药除非你显式开事务。 带事务的更新出错可回滚 Public Sub UpdateAge(userId As Integer, newAge As Integer) Dim connStr As String ProviderMicrosoft.ACE.OLEDB.12.0;Data Source IO.Path.Combine(Application.StartupPath, demo.accdb) ; Using conn As New OleDb.OleDbConnection(connStr) conn.Open() Using tran As OleDb.OleDbTransaction conn.BeginTransaction() Try Dim sql As String UPDATE Users SET Age ? WHERE UserID ? Using cmd As New OleDb.OleDbCommand(sql, conn, tran) cmd.Parameters.AddWithValue(?, newAge) cmd.Parameters.AddWithValue(?, userId) cmd.ExecuteNonQuery() End Using tran.Commit() Catch ex As Exception tran.Rollback() Throw End Try End Using End Using End Sub逻辑说明BeginTransaction返回的OleDbTransaction要传给OleDbCommand的构造函数否则命令不在事务里。参数说明Commit提交Rollback回滚。注意 Access 的事务粒度是文件级并发写入时容易互相阻塞单用户场景够用多用户要谨慎。4. 避坑与排查Access 操作里最常见的五类翻车现场4.1 现象报“未注册 Microsoft.ACE.OLEDB.12.0” → 原因驱动缺失或位数不匹配 → 解决装对应位数的 Access Database Engine这是最高频的问题。先确认项目编译目标在 VB.Net 项目属性里看“目标 CPU”AnyCPU在 64 位系统上默认跑 64 位如果装的是 32 位 ACE 引擎就会报错。解决办法有两个一是把编译目标改成x86二是装 64 位 ACE 引擎。注意装了 64 位 Office 的机器通常已经带了 64 位 ACE不用重复装。4.2 现象程序能读不能写或写完后别的程序打不开 → 原因连接没释放文件被独占锁定 → 解决全部用 Using避免模块级连接变量Access 是文件型数据库一个进程打开写入时会生成.laccdb锁文件。如果连接没关锁文件不消失其他程序打开就是只读。排查方法看.accdb同目录下有没有.laccdb有就说明还有连接没释放。养成习惯OleDbConnection、OleDbCommand、OleDbDataReader全部Using。4.3 现象参数化查询结果错位姓名跑到年龄字段 → 原因OleDb 是位置参数AddWithValue 顺序和 SQL 里 ? 不一致 → 解决严格按 ? 出现顺序添加参数OleDbParameter不支持命名参数name在 Access 里会被当成字面量。所以 SQL 里写VALUES (?, ?)参数就必须按第一个?对应姓名、第二个对应年龄的顺序加。建议在 SQL 里把?按字段顺序排好加参数时对照注释。4.4 现象日期字段查询查不到或提示“标准表达式中数据类型不匹配” → 原因Access 日期字面量要用 # 包裹参数类型没指定 → 解决用参数传 DateTime不要拼字符串Access SQL 里日期常量写成#2024-01-01#用字符串拼2024-01-01会报类型不匹配。正确做法还是参数化AddWithValue(?, DateTime.Now)让驱动去处理。如果非要拼 SQL记得用#而不是单引号。4.5 现象多用户同时写报“无法更新数据库或对象为只读” → 原因Access 并发写入锁冲突 → 解决缩短事务时间或改用其他数据库Access 的并发能力有限同一时刻只允许一个写入者。多人同时提交就会排队甚至报错。常见做法是把事务范围缩到最小写完立刻提交如果并发量确实大这个场景就不该用 Access考虑换成 SQLite 或轻量服务型数据库。这不是代码能绕过去的是引擎本身的边界。5. 进阶技巧用 DataSet 做离线更新与 Access 数据同步5.1 DataAdapter 的 Update 机制与 CommandBuilder前面查询用的是DataAdapter.Fill其实它还能反向把DataTable的改动写回数据库靠的是Update方法配合InsertCommand、UpdateCommand、DeleteCommand。手写这三条命令很烦OleDbCommandBuilder可以根据SELECT语句自动生成。 离线修改后批量写回 Public Sub SyncUsers(dt As DataTable) Dim connStr As String ProviderMicrosoft.ACE.OLEDB.12.0;Data Source IO.Path.Combine(Application.StartupPath, demo.accdb) ; Using conn As New OleDb.OleDbConnection(connStr) Dim sql As String SELECT UserID, UserName, Age FROM Users Using adapter As New OleDb.OleDbDataAdapter(sql, conn) Using builder As New OleDb.OleDbCommandBuilder(adapter) CommandBuilder 自动生成增删改命令 adapter.Update(dt) 把 dt 里的改动同步回 Access End Using End Using End Using End Sub逻辑说明CommandBuilder要求SELECT里包含主键否则生成的UPDATE/DELETE的 WHERE 条件不完整可能误伤多行。参数说明adapter.Update(dt)会逐行检查RowState新增行执行 INSERT修改行执行 UPDATE删除行执行 DELETE。这个机制适合“读出来改完再整体写回”的场景比如表格批量编辑。5.2 用 DataSet 做多表关联与本地缓存Access 支持多表关联查询DataSet可以装多张DataTable并建立DataRelation在内存里做父子表联动。常见于主从表界面上面是订单下面是明细。 一次填充主表和明细表建立关系 Public Function LoadOrders() As DataSet Dim ds As New DataSet() Dim connStr As String ProviderMicrosoft.ACE.OLEDB.12.0;Data Source IO.Path.Combine(Application.StartupPath, demo.accdb) ; Using conn As New OleDb.OleDbConnection(connStr) Dim sqlMain As String SELECT OrderID, CustomerName FROM Orders Dim sqlDetail As String SELECT DetailID, OrderID, ProductName FROM OrderDetails Using adapter As New OleDb.OleDbDataAdapter() adapter.SelectCommand New OleDb.OleDbCommand(sqlMain, conn) adapter.Fill(ds, Orders) adapter.SelectCommand New OleDb.OleDbCommand(sqlDetail, conn) adapter.Fill(ds, OrderDetails) End Using End Using 建立主外键关系供界面联动 ds.Relations.Add(OrderDetail, ds.Tables(Orders).Columns(OrderID), ds.Tables(OrderDetails).Columns(OrderID)) Return ds End Function逻辑说明DataRelation建立后可以通过GetChildRows拿到某订单的所有明细。参数说明Fill的第二个参数是表名重复调用同一个DataAdapter时注意换SelectCommand。这个模式在 Access 单机系统里很实用省去反复查库。5.3 验证数据是否真的写进去了写完不验证等于没写。最直接的办法是查SELECT COUNT(*)或者用 Access 打开文件肉眼确认。程序里可以封装一个校验函数插入后立刻按主键查一次。 插入后校验按主键查回记录数 Public Function VerifyInsert(userId As Integer) As Boolean Dim connStr As String ProviderMicrosoft.ACE.OLEDB.12.0;Data Source IO.Path.Combine(Application.StartupPath, demo.accdb) ; Using conn As New OleDb.OleDbConnection(connStr) Using cmd As New OleDb.OleDbCommand(SELECT COUNT(*) FROM Users WHERE UserID ?, conn) cmd.Parameters.AddWithValue(?, userId) conn.Open() Return Convert.ToInt32(cmd.ExecuteScalar()) 1 End Using End Using End Function逻辑说明ExecuteScalar返回第一行第一列适合COUNT、SUM这类聚合。参数说明Convert.ToInt32把返回的Object转成整数再比较。我一般会在关键写入后强制走一遍这个校验尤其是客户现场部署时宁可多查一次也别等对方打电话说数据没存上。从那以后我每次连 Access 都先确认三件事文件后缀、驱动位数、连接字符串里的 Provider一个不对就白忙活。希望帮到你。本文还有配套的精品资源点击获取