7,785
社区成员




Dim sql As String
sql = "update 表1 set " & _
"序号 = " & .TextMatrix(.Row, 2) & ", " & _
"车型 = '" & .TextMatrix(.Row, 4) & "' " & _
"where id = " & .TextMatrix(.Row, 1)
Debug.Print sql '可以用这个输出到查询分析器中找错'
cnn.Execute sql