Question

vb update语句的多行写法该怎么写？

updateStr = "update main set a1xm='" & Text1(0).Text & "',a1cym='" & Text1(2).Text & "',a1sex='" & optSex & "',a1mz='" & Text1(3).Text & "',a1sfzh='" & Text1(1).Text & "',z1zzmm='" & Text1(4).Text & "',a1cjgzsj='" & DTPicker1.Value & "',a1rdsj='" & DTPicker2.Value & "',a1jtzz='" & Text1(5).Text & "',a1sjhm='" & Text1(6).Text & "',a1zzdh='" & Text1(7).Text & "',"

updateStr = updateStr & "a2byyx='" & Text2(0).Text & "',a2zhuanye='" & Text2(1).Text & "',a2zhengshuhao='" & Text2(2).Text & "',a2zgbyyx='" & Text2(5).Text & "',a2zgzhuanye='" & Text2(4).Text & "',a2zgzhengshuhao='" & Text2(3).Text & "',a2shjz='" & Text2(6).Text

updateStr = updateStr & "a3xrzc='" & Text3(0).Text & "', a3zsbh='" & Text3(1).Text & "', a3dyzc='" & Text3(2).Text & "', a3dyzsbh='" & Text3(3).Text

updateStr = updateStr & "a4xm='" & Text4(0).Text & "',a4csny='" & DTPicker3.Value & "',a4xl='" & Text4(2).Text & "',a4cym='" & Text4(2).Text & "',a4zzmm='" & Text4(3).Text & "',a4gzdw='" & Text4(4).Text & "',a4cszy='" & Text4(5).Text

updateStr = updateStr & "grjl='" & Text7.Text & "',jianli='" & Text8.Text

updateStr = updateStr & "' where id=" & jID
cnn.Execute (updateStr)

Answer 1

update语句用来一次更新多字段时，每个字段更新值与另一个字段之间要用","来分隔。

你的第一段updateStr用的尾部有 & "',"，但其他的4段中都没有加，导致最终执行时，提示错误。

将缺失的"," 加上就好了。

*******************

估计你光光加“,”，实际上还有引用文本的单引号也没匹配。

你参见附件吧，我修改了下。

 

Answer 2

用StringBuilder 进行连接

Answer 3

小学文化!!!!