VB 2019中使用OleDb插入新记录失败，如何解决？

错误原因 #

你遇到的DataAdapter.SelectCommand.Connection property needs to be initialized错误，核心原因是：

• OleDbDataAdapter的SelectCommand没有关联有效的数据库连接
• 未指定要操作的目标数据库表，导致OleDbCommandBuilder无法生成合法的插入命令

解决步骤 #

1. 初始化数据库连接 #

先创建OleDbConnection实例，填入符合Access 2019的连接字符串：

Dim connStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\你的数据库路径\你的数据库文件.accdb;Persist Security Info=False;"
Dim conn As New OleDbConnection(connStr)

注意：替换为你实际的数据库文件路径，若数据库带密码需追加;Jet OLEDB:Database Password=你的密码;。

2. 配置DataAdapter的SelectCommand #

给SelectCommand指定连接和指向目标表的查询语句（假设日志表名为EventLogs）：

Dim cmdEventLogs As New OleDbCommand("SELECT MACaddress, UserID, IPaddress, [When], LoggedIn FROM EventLogs", conn)
Dim odaEventLogs As New OleDbDataAdapter(cmdEventLogs)

注：When是Access保留字，必须用方括号[]包裹。

3. 简化插入逻辑并执行更新 #

替换你原有的CurrencyManager复杂操作，直接通过DataRow添加记录，完整修正后的代码如下：

Imports System.Data
Imports System.Data.OleDb

Public Sub RecordUserLogEvent(blnLoggingIn As Boolean)
    ' 初始化连接字符串
    Dim connStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\你的数据库路径\你的数据库文件.accdb;Persist Security Info=False;"
    
    ' Using语句自动释放资源，避免连接泄漏
    Using conn As New OleDbConnection(connStr)
        ' 配置查询命令
        Using cmdEventLogs As New OleDbCommand("SELECT MACaddress, UserID, IPaddress, [When], LoggedIn FROM EventLogs", conn)
            Dim odaEventLogs As New OleDbDataAdapter(cmdEventLogs)
            ' 生成插入命令
            Dim cmdBuilder As New OleDbCommandBuilder(odaEventLogs)
            
            ' 从数据库获取表结构，避免手动创建列的不一致问题
            Dim dtEventLogs As New DataTable()
            odaEventLogs.FillSchema(dtEventLogs, SchemaType.Source)
            
            ' 添加新记录
            Dim newRow As DataRow = dtEventLogs.NewRow()
            With frmMain
                newRow("MACaddress") = .strMACaddress
                newRow("UserID") = .strUserID
                newRow("IPaddress") = .strIPaddress
                newRow("When") = Now()
                newRow("LoggedIn") = blnLoggingIn
            End With
            dtEventLogs.Rows.Add(newRow)
            
            ' 执行插入
            Try
                conn.Open()
                odaEventLogs.Update(dtEventLogs)
            Catch ex As Exception
                Debug.Print("日志插入失败：" & ex.Message)
            End Try
        End Using
    End Using
End Sub

其他注意事项 #

• 表结构要求：EventLogs表必须存在，且字段名、类型要和代码中一致；建议给表添加自动编号的主键字段（如LogID），否则OleDbCommandBuilder可能无法正常生成命令。
• 资源释放：必须确保数据库连接被关闭，用Using语句是最安全的方式，避免连接池耗尽。
• 异常处理：添加捕获逻辑，避免程序崩溃，同时便于排查插入失败的原因。
• 字段匹配：不要手动创建DataTable列，用FillSchema从数据库同步表结构，能避免字段类型、长度不匹配的问题。
• 路径问题：数据库路径尽量用绝对路径，若用相对路径需确保程序运行时能正确找到文件。

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