VBA SQL update用法求助

Dethroned

各位老师好，在尝试使用sql update语句时遇到了问题，不知道错哪里，请帮忙解惑，本人vba水平一般，如果有更简洁快速的方法，还望指教，感激不尽！主要过程：先获取mysql表结构，写入到表格SH中，用户通过窗体将需要修改的内容写入SH，而后再进行update操作，主要代码如下:

1. conn.Open strConn
   
2. R = SH.Cells(Rows.Count, 1).End(xlUp).Row
   
3. L = SH.Cells(2, Columns.Count).End(xlToLeft).Column
   
4. For i = 3 To R
   
5.       StrSQL0 = "SELECT ID FROM " & TableName & " WHERE ID=" & SH.Cells(i, 1).value
   
6.       StrSQL = "UPDATE " & TableName & " SET"
   
7.       StrSQL = StrSQL & SH.Cells(2, 2) & "='" & Now() & "'"
   
8.       For j = 3 To L
   
9.             StrSQL = StrSQL & "," & SH.Cells(2, j) & "='" & SH.Cells(i, j).value & "'"
   
10.       Next
    
11.     StrSQL = StrSQL & " WHERE ID=" & SH.Cells(i, 1).value
    
12.     conn.Execute StrSQL
    
13. Next

复制代码

gufengaoyue

你试试把SQL语句都打印出来看看。目测，状态是int，应该用 状态=1 ,不要引号

opiona

字段名  表名  尤其是汉字的  加上 [`]

StrSQL="SELECT `字段名A` FROM `数据表名`"

逍遥爱迪生

excel操作，还是尽量不要用SQL UPDATE吧，尽可能的直接修改单元格吧

Dethroned

通过尝试最后发现SET后面少了个"空格"，老师们的建议让我受益匪浅，再次感谢各位的回复

1. StrSQL = "UPDATE " & TableName & " SET"
   
2. ’改为
   
3. StrSQL = "UPDATE " & TableName & " SET "

复制代码