大佬,执行SQL语句更新Access数据时报错,咋解决?
以下是代码全文:
Sub Acc_Initl()
Dim Adconn As Object, Adrs As Object
Set Adconn = CreateObject("adodb.connection")
Set Adrs = CreateObject("adodb.recordset")
With Adconn
.provider = "Microsoft.ace.oledb.12.0"
.Properties("Jet OLEDB:Database Password").Value = "7"
.Open ThisWorkbook.Path & "\xx.accdb"
End With
SQL= "Update Users set Date_db =
#2023-1-1#
where ID_db='123'"
Adrs.Open SQL, Adconn, 1
Adrs.Close
Set Adrs = Nothing
Set Adconn = Nothing
End Sub

#2023-1-1#
要加引号吧

adrs 是个记录集对象吧，打开记录集对象以后用ado的更新方法。要执行sql语句更新直接用连接对象执行，没必要用记录集

测试一下你的链接字符串对不对，然后打开连接，最后用连接去执行sql

最好 是在局部函数中 调用，用完就关闭。

另看看ID 是否数字型，数字型不需要加 引号