1,217
社区成员
发帖
与我相关
我的任务
分享insert into 出错，字符串中有单引号！
s_temp="INT'L CO"
insert into a(b) values('" & s_temp & "')出错，请问怎么解决？
insert into a(b) values('" & s_temp & "')出错，请问怎么解决？
...全文
请发表友善的回复…
发表回复
penper 2003-04-28
- 打赏
- 举报
1、替换成别的特殊字符存入，显示地时候再处理；
2、用记录集地update方法；
2、用记录集地update方法；
Quady515 2003-04-28
- 打赏
- 举报
recordset.Addnew
饮水需思源 2003-04-28
- 打赏
- 举报
s_temp="INT'L CO"
insert a(b) values('" & replace(s_temp,"'","''") & "')
insert a(b) values('" & replace(s_temp,"'","''") & "')
lazycat818 2003-04-28
- 打赏
- 举报
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.
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.
DimVar 2003-04-28
- 打赏
- 举报
改成：insert into a(b) values('" & replace(s_temp,"'","''") & "')
netmuse 2003-04-28
- 打赏
- 举报
replace(s_temp,"'","''")就可以了
yuhaii 2003-04-28
- 打赏
- 举报
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
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
LichKingSZ 2003-04-26
- 打赏
- 举报
b字段如果不是字符类型的，就不能用单引号
netmuse 2003-04-26
- 打赏
- 举报
adocon.execute("insert into a(b) values('" & s_temp & "')")
s_temp不含单引号就没有问题的
yangwl 2003-04-26
- 打赏
- 举报
"insert into a(b) values('" & s_temp & "')"
看清双引号的作用
看清双引号的作用
