大佬,执行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
以下是代码全文:
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