出现”字符串的语法错误，在查询表达式.....中“.请高手帮帮忙！！！
下面是我的原代码，执行到几百行时老是出这种错误（一共几千行），每次出现错误的行数还不一样，请高手帮我看看！！
Dim v() As String
Dim i As Long
v() = Split(RichTextBox2.Text, vbCrLf)
For i = 0 To UBound(v())
If Left(v(i), 3) = "节点号" Then
strdian = Replace(v(i), " ", "")
strdian = Replace(strdian, "节点号=", "")
ElseIf Left(v(i), 7) = "设备IP地址1" Then
strIPAddr = Replace(v(i), " ", "")
strIPAddr = Replace(strIPAddr, "设备IP地址1=", "")
ElseIf Left(v(i), 4) = "节点名称" Then
strNodeName = Replace(v(i), " ", "")
strNodeName = Replace(strNodeName, "节点名称=", "")
ac_Tmp1.Execute " insert into [设备IP对应表](IP,mingcheng,jiedianhao) values('" & strIPAddr & "', '" & strNodeName & "','" & strdian & "')"
End If
Next i
ac_Tmp1.Close
发现问题了，是richtextbox中显示出乱码了，我是利用richtextbox控件显示报告。如何避免呢？？？
第1个回答 2010-04-15
Dim v() As String '你在这里定义了一个动态字符串数组
Dim i As Long
v() = Split(RichTextBox2.Text, vbCrLf) '动态数组没有维数和下标，这样赋值正确吗
For i = 0 To UBound(v()) 'UBound()函数的用法是：UBound(v)返回数组的最大可用下标，你这里的数组没有下标，我不知道返回值是多少。
Dim i As Long
v() = Split(RichTextBox2.Text, vbCrLf) '动态数组没有维数和下标，这样赋值正确吗
For i = 0 To UBound(v()) 'UBound()函数的用法是：UBound(v)返回数组的最大可用下标，你这里的数组没有下标，我不知道返回值是多少。
第2个回答 2010-04-15
没有指出是哪句出错,很难判断,
应该是这句吧
ac_Tmp1.Execute " insert into [设备IP对应表](IP,mingcheng,jiedianhao) values('" & strIPAddr & "', '" & strNodeName & "','" & strdian & "')"
看看在出错时 strIPAddr, strNodeName ,strdian 这3个变量的值是什么,
应该是这句吧
ac_Tmp1.Execute " insert into [设备IP对应表](IP,mingcheng,jiedianhao) values('" & strIPAddr & "', '" & strNodeName & "','" & strdian & "')"
看看在出错时 strIPAddr, strNodeName ,strdian 这3个变量的值是什么,
相似回答
