Public Function ChangeString(str) As String
pos = InStr(s, "'")
While pos > 0
str = Mid(str, 1, pos) & "'" & Mid(str, pos + 1)
pos = InStr(pos + 2, s, "'")
Wend
ChangeString = "'" & str & "'"
End Function
上面这个函数是用来给输入的查询条件加单引号的。"select book.name,book.people,summer.cname,summer.date from book,summer where book.name = " & changestring(textbox1.text) & ",summer.cname = " & changestring(textbox2.text)
pos = InStr(s, "'")
While pos > 0
str = Mid(str, 1, pos) & "'" & Mid(str, pos + 1)
pos = InStr(pos + 2, s, "'")
Wend
ChangeString = "'" & str & "'"
End Function
上面这个函数是用来给输入的查询条件加单引号的。"select book.name,book.people,summer.cname,summer.date from book,summer where book.name = " & changestring(textbox1.text) & ",summer.cname = " & changestring(textbox2.text)
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货