访问 VBA SQL 更新命令

Posted

技术标签:

【中文标题】访问 VBA SQL 更新命令【英文标题】:Access VBA SQL Update command 【发布时间】:2013-05-29 09:17:04 【问题描述】:

我对 ACCESS 和 VBA 还是很陌生。但是我有一个函数可以将 XML 字符串解析为在 ACCESS 中按下按钮时从页面获取的文本:

我想更新这个字符串,我回到表中。但我无法让它工作。

这是代码的一部分:

Set Elomrade = objDocXML.getElementsByTagName("elomrade").Item(0)
Set Natagare = objDocXML.getElementsByTagName("natagare").Item(0)
Set NatomradeNamn = objDocXML.getElementsByTagName("natomradeNamn").Item(0)
Set NatomradeBeteckning = objDocXML.getElementsByTagName("natomradeBeteckning").Item(0)
Set EdielID = objDocXML.getElementsByTagName("EdielID").Item(0)
Set Latitud = objDocXML.getElementsByTagName("latitud").Item(0)
Set Longitud = objDocXML.getElementsByTagName("longitud").Item(0)


Dim str As String
    str = str + "elomrade: " + Elomrade.Text + vbNewLine
    str = str + "natagare: " + Natagare.Text + vbNewLine
    str = str + "natomradeNamn: " + NatomradeNamn.Text + vbNewLine
    str = str + "natomradeBeteckning: " + NatomradeBeteckning.Text + vbNewLine
    str = str + "EdielID: " + EdielID.Text + vbNewLine
    str = str + "Latitud: " + Latitud.Text + vbNewLine
    str = str + "Longitud: " + Longitud.Text + vbNewLine 
MsgBox str


 Set db = CurrentDb()
 db.OpenRecordset ("Nätdata")

Dim NatBet As String
   NatBet = NatomradeBeteckning.Text


Dim strSQL As String
strSQL = "UPDATE Nätdata SET NatomradeBeteckning = NatBet"
db.Execute strSQL, dbFailOnError

我让解析工作,但不是更新功能。

错误消息:参数太少。预计 1。

【问题讨论】:

【参考方案1】:

试试这个:

strSQL = "UPDATE Nätdata SET NatomradeBeteckning = '" & NatBet & "'"

【讨论】:

以上是关于访问 VBA SQL 更新命令的主要内容,如果未能解决你的问题,请参考以下文章

由于密钥冲突 VBA SQL 访问,更新失败

访问 SQL Server 的 VBA 查询

内部连接 ​​VBA 访问

操作必须使用可更新查询/SQL - VBA

从外部 ODBC 表访问 VBA 更新表

Excel VBA 更新 SQL 表