查询语句中的'号如何处理? table1中的name字段为字符串类型,而其内容含有单引号',这时要用这样的SQL语句:select * from table1 where name =''该如何处理?谢谢帮忙!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 "select * from table1 where name = '"&yourname.text&"'" to rexyudl(隼):存到数据库是用的SQL存储过程,但现在要通过VB运行SQL语句取to cipher19(cipher):我试过还是不行,比如内容为 S'E,应该怎样写?万分感谢 select * from table1 where name='s''e'多加一个单引号就可以了 Function ReplaceStr (TextIn, ByVal SearchStr As String, _ByVal Replacement As String, _ByVal CompMode As Integer) Dim WorkText As String, Pointer As Integer If IsNull(TextIn) Then ReplaceStr = Null Else WorkText = TextIn Pointer = InStr(1, WorkText, SearchStr, CompMode) Do While Pointer > 0 WorkText = Left(WorkText, Pointer - 1) & Replacement & _ Mid(WorkText, Pointer + Len(SearchStr)) Pointer = InStr(Pointer + Len(Replacement), WorkText, SearchStr, CompMode) Loop ReplaceStr = WorkText End IfEnd FunctionFunction SQLFixup(TextIn) SQLFixup = ReplaceStr(TextIn, """, """", 0)End FunctionFunction JetSQLFixup(TextIn) Dim Temp Temp = ReplaceStr(TextIn, """, """", 0) JetSQLFixup = ReplaceStr(Temp, "|", "" & chr(124) & "", 0)End FunctionFunction FindFirstFixup(TextIn) Dim Temp Temp = ReplaceStr(TextIn, """, "" & chr(39) & "", 0) FindFirstFixup = ReplaceStr(Temp, "|", "" & chr(124) & "", 0)End Function 有了上面几个函数后,当你在执行一个sql前,请先使用SQL = "SELECT * FROM SecurityLevel WHERE UID="" & SQLFixup(UserID) & """SQL = SQL & " AND PWD="" & SQLFixup(Password) & """ 判断鼠标形状 告诉下载visual studio 6.0的网址 自定义类型的对象加入collection的问题 如何获得收藏夹的路径! VB如何才可以做成一个绿色软件 求助WIN7(32)下VB使用WINIO模拟键盘输入 ???vb中如何用ado读取数据库信息 大家快点来看看,拿分呀 中文的ASCII VS.Net 正式版已经有了!用 MSDN 的账号已经可以到 MS 的服务器上去下载! 如何点击Word 的保存或打开执行我的保存和打开功能的呢。 vsprinter控件,能不能预览打印任意大小的文档,怎样实现?
多加一个单引号就可以了
ByVal Replacement As String, _
ByVal CompMode As Integer)
Dim WorkText As String, Pointer As Integer
If IsNull(TextIn) Then
ReplaceStr = Null
Else
WorkText = TextIn
Pointer = InStr(1, WorkText, SearchStr, CompMode)
Do While Pointer > 0
WorkText = Left(WorkText, Pointer - 1) & Replacement & _
Mid(WorkText, Pointer + Len(SearchStr))
Pointer = InStr(Pointer + Len(Replacement), WorkText, SearchStr, CompMode)
Loop
ReplaceStr = WorkText
End If
End Function
Function SQLFixup(TextIn)
SQLFixup = ReplaceStr(TextIn, """, """", 0)
End Function
Function JetSQLFixup(TextIn)
Dim Temp
Temp = ReplaceStr(TextIn, """, """", 0)
JetSQLFixup = ReplaceStr(Temp, "|", "" & chr(124) & "", 0)
End Function
Function FindFirstFixup(TextIn)
Dim Temp
Temp = ReplaceStr(TextIn, """, "" & chr(39) & "", 0)
FindFirstFixup = ReplaceStr(Temp, "|", "" & chr(124) & "", 0)
End Function
有了上面几个函数后,当你在执行一个sql前,请先使用
SQL = "SELECT * FROM SecurityLevel WHERE UID="" & SQLFixup(UserID) & """
SQL = SQL & " AND PWD="" & SQLFixup(Password) & """