訪問VBA SQL更新命令

我是ACCESS和VBA的新手。但我有一個函數，解析一個XML字符串文本，當我按下ACCESS中的按鈕時得到的文本：訪問VBA SQL更新命令

而且我想更新這個字符串我回到表中。但我無法實現它的工作。

這是部分代碼：

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

來源

2013-05-29 user2431632

試試這個：

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

來源

2013-05-29 09:28:11

謝謝U，它幫助！ :) – user2431632

訪問VBA SQL更新命令

回答

相關問題