收藏 不显示删除回复显示所有回复显示星级回复显示得分回复 出现”字符串的语法错误，在查询表达式.....中“.请高手帮帮忙！！！

Question

下面是我的原代码，执行到几百行时老是出这种错误（一共几千行），每次出现错误的行数还不一样，请高手帮我看看！！ 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 

Answer 1

字段值的文本中包含单引号，要么去除单引号、要么在 SQL 语句中用连续两个单引号表示：
　strdian = Replace(v(i), "'", "")
或
　strdian = Replace(v(i), "'", "''")
其余字段一样处理。

Answer 2

好强的绕口令标题！
把你的ac_Tmp1.Execute后的整个字符串监视到的内容贴出来就可以分析问题了

Answer 3

出错时选择调试，然后观测('" & strIPAddr & "', '" & strNodeName & "','" & strdian & "')"  这三个变量的值是什么？

Answer 4

出错在这句。ac_Tmp1.Execute " insert into [设备IP对应表](IP,mingcheng,jiedianhao) values('" & strIPAddr & "', '" & strNodeName & "','" & strdian & "')" 每次导出出错的地方都不一样，有时导出100多行就提示错误，有时200多行才出错！！

Answer 5

发现错误了，显示出来的报告中出现乱码，例如：“咝虑鴂文华3号楼2单元” 应该是 “高新文华3号楼2单元”。 在richtextbox中出现的，如何才能不让出乱码呢？？？

Answer 6

我是利用winsock控件，发送命令，然后将报告在richtextbox中显示出来，但是出来的报告中有乱码，如何消除乱码呢？？？？