如何更新Access数据库

2013-04-20

怎么更新Access数据库？本帖最后由 mpy2003 于 2013-04-16 09:25:29 编辑从网上找了好多例子，于是我写成了u

怎么更新Access数据库？
本帖最后由 mpy2003 于 2013-04-16 09:25:29 编辑从网上找了好多例子，于是我写成了update语句，出现语法错误：

    Dim SQL As String
    Set Con = New ADODB.Connection
    Con.Open "provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & SetUp.Text(0) & "\Data.accdb"
    SQL = "update 数据库信息 Set 状态＝'" & MDI.StatusBar.Panels(2) & "' Where ID=1"
    Con.Execute SQL
    Con.Close
    Set Con = Nothing

另一种方法可以正常更新：

    Set Con = New ADODB.Connection
    Con.Open "provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & SetUp.Text(0) & "\Data.accdb"
    Set Rs0 = New ADODB.Recordset
    Rs0.Open "select * from 数据库信息", Con, 3, 3
    Do While Not Rs0.EOF
        If Rs0.Fields("ID") = 1 Then 
             Rs0.Fields("状态") = MDI.StatusBar.Panels(2)
             Exit Do
        End If
        Rs0.MoveNext
    Loop
    Rs0.Close
    Con.Close
    Set Rs0 = Nothing
    Set Con = Nothing

请问一下update语句要怎么写？数据库 SQL update
[解决办法]
如果“状态”是数值型，则：
SQL = "update 数据库信息 Set 状态＝" & MDI.StatusBar.Panels(2) & " Where ID=1"
[解决办法]
把字段“状态”改成英文试试。
[解决办法]
把等号改成半角的。

热点排行

VB

如何更新Access数据库