strSQL = "insert into Employees values"
For i = 0 To 2
For j = 1 To 6
strSQL = strSQL & "'Text1(i * 6 + j).Text'"
Next j
Next i
人
创建了动态控件Text1(),但那个SQL语句就是不对,请问错在那? 加了双引号竟然是'Text1(i * 6 + j).Text',不加上又通不过,
...全文
1797打赏收藏
查错,很简单的问题,我头都大了,改了几次都不行,吐血竟然卡在这里
strSQL = "insert into Employees values" For i = 0 To 2 For j = 1 To 6 strSQL = strSQL & "'Text1(i * 6 + j).Text'" Next j Next i 人 创建了动态控件Text1(),但那个SQL语句就是不对,请问错在那? 加了双引号竟然是'Text1(i * 6 + j).Text',不加上又通不过,
strSQL = "insert into Employees values("
For i = 0 To 2
For j = 1 To 6
strSQL = strSQL & "','" & Text1(i * 6 + j).Text & "','" '各个值需要用''引起来,而且要用逗号分开
Next j
Next i
strSQL = Left(strSQL,Len(strSQL)-2) '去掉最后多余的逗号和引号
Dim s(1 To 18) As String, i As Integer, j As Integer
For i = 0 To 2
For j = 1 To 6
s(i * 6 + j) = "'" & Text1(i * 6 + j).Text & "'"
Next j
Next i
strSQL = "insert into Employees values(" & Join(s, ",") & ")"