insert into 出错，字符串中有单引号！

[netmuse]

s_temp="INT'L CO"
insert into a(b) values('" & s_temp & "')出错，请问怎么解决？

[yangwl]

"insert into a(b) values('" & s_temp & "')"
看清双引号的作用

[netmuse]

adocon.execute("insert into a(b) values('" & s_temp & "')")
s_temp不含单引号就没有问题的

[LichKingSZ]

b字段如果不是字符类型的，就不能用单引号

[yuhaii]

Private Sub Aa()
s_temp=strsq("INT'L CO")
insert into a(b) values('" & s_temp & "')
end sub

Function StrSQ(ByVal Str As String) As String
DropSQ = "'" & Replace(Str, "'", "''") & "'"
End Function

[netmuse]

replace(s_temp,"'","''")就可以了

[DimVar]

改成：insert into a(b) values('" & replace(s_temp,"'","''") & "')

[lazycat818]

Function DealStr4SQL(ByVal strOld As String) As String
Dim pos As Integer

pos = InStr(strOld, "'")

While pos > 0
strOld = mID(strOld, 1, pos) & "'" & mID(strOld, pos + 1)
pos = InStr(pos + 2, strOld, "'")
Wend

DealStr4SQL = RTrim$(strOld)

End Function

对每个可能出现单引号的字符串进行处理。

还有，用Insert的效率比不上recordset的Addnew.

[饮水需思源]

s_temp="INT'L CO"
insert a(b) values('" & replace(s_temp,"'","''") & "')

[Quady515]

recordset.Addnew

[penper]

1、替换成别的特殊字符存入，显示地时候再处理；
2、用记录集地update方法；