初学ADO,UPDATE语句怎么写?

excelxs2008

初学ADO，想将分表中某个单位的数据写入到总表相应的位置，使用了UPDATE语句，但sSql = "UPDATE [" & TableName & "$] SET 数据=" & sj & "WHERE 单位=" & ID
这一句报错，不知如何修改，向各位老师请教，望得到指点。


Sub 写数()
sj = Sheets("数据分表").Range("b2").Value
ID = Sheets("数据分表").Range("a2").Value
Dim conn As ADODB.Connection
Dim WN As String
Dim TableName As String
Dim sSql As String
WN = "总表.xls"
TableName = "数据总表"
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;" & _
                        "Extended Properties=Excel 8.0;" & _
                        "Data Source=" & ThisWorkbook.Path & "\" & WN
conn.Open
If conn.State = adStateOpen Then
sSql = "UPDATE [" & TableName & "$] SET 数据=" & sj & "WHERE 单位=" & ID
    conn.Execute sSql
    MsgBox "已成功在数据库添加数据！"
    conn.Close
End If
Set conn = Nothing
End Sub

windimi007

UPDATE语句应该只可以通过Microsoft Query实现吧！

excelxs2008

windimi007 发表于 2013-12-7 09:06
UPDATE语句应该只可以通过Microsoft Query实现吧！

谢谢楼上的指点,对于这些我不是很懂,只是看到SQL语言中有一个这样的语句可以添加或修改数据库的数据,就借来用了

huajinjcl

sSql = "UPDATE [" & TableName & "$] SET 数据=" & sj & " WHERE 单位='" & ID & "'"

excelxs2008

huajinjcl 发表于 2013-12-7 09:25
sSql = "UPDATE [" & TableName & "$] SET 数据=" & sj & " WHERE 单位='" & ID & "'"

谢谢指教,已成功解决问题.
原先也隐约想到这点,只是在VBA经常用变量不需加引号,没有想到在SQL语句中必须这么严格遵守

huajinjcl

excelxs2008 发表于 2013-12-7 09:44
谢谢指教,已成功解决问题.
原先也隐约想到这点,只是在VBA经常用变量不需加引号,没有想到在SQL语句中必须 ...

SQL中，字符型的必须加引号。同理，你要把"数据" 单元格输入带有字符的，同样会出错。

windimi007

huajinjcl 发表于 2013-12-7 09:25
sSql = "UPDATE [" & TableName & "$] SET 数据=" & sj & " WHERE 单位='" & ID & "'"

原来是引号的问题哈，还以为是UPDATE的问题呢！O(∩_∩)O哈哈~

LMY123

update,xls,跨薄