将'替换为''
replace(mCode,"'","''")

解决方案 »

  1.   

    不行,因为外国人的名字或住址有可能带有'好,比如说O'really之类的,把单银号改成双银号,那意思不就变了吗?
    再说改成双银号,SQL语句怎么写???
      

  2.   

    在SQL语法里把两个单引号作为一个单引号处理
      

  3.   

    谢谢,我先是是;
    能不能吧sql语句完整的写出来?谢
      

  4.   

    replace(mCode,"'","''")
    题是错误
      

  5.   

    baitianhai(hong) :能不能说详细点?谢谢
      

  6.   

    comStr = "select * from T_Order where Order_Code = '" & replace(mCode,"'","''") & "'"
    rsCom.Open comStr, mConn, adOpenDynamic, adLockOptimistic
      

  7.   

    对呀,很简单的,转换一下就可以了,系统会自动把两个单引号进行处理为一个单引号的字符串。comStr = "select * from T_Order where Order_Code = '"& replace(mCode,"'","''") &"'"
    rsCom.Open comStr, mConn, adOpenDynamic, adLockOptimistic
      

  8.   

    或者:
    下面的函数可以在执行SQL语句前调用,执行处理后的结果即可产生正确的结果。
    Function ProcessStr(str As String)
    Dim pos As Integer
    Dim stedest As String
      pos = InStr(str, "'")  
    While pos > 0
    str = Mid(str, 1, pos) & "'" & Mid(str, pos + 1)
    pos = InStr(pos + 2, str, "'")
    Wend
    ProcessStr = str
    End Function
    其中str参数是你的SQL字符串。函数一旦发现字符串中有单引号出现,就在前面补上一个单引号。