VB通过ADO对MYSQL进行同表的多条件查询
VB中有TEXT3-TEXT8 6个控件 按他们的输入情况对MYSQL进行查询
而且需要模糊查询 所以先把TEXT控件输入的字符进行分割。
我是这样写的:
Dim l3 As Integer
Dim a3() As String
l3 = Len(Text3.Text)
ReDim a3(1 To l3) As String
For i = 1 To l3
a3(i) = Mid(Text3, i, 1)
Next 数据库的多条件查询语句是:
"select * form 表名 where a like "**"and b like "**" and c like "**"" 目前的问题是 由于输入字符不定 所以前面 A3数组中包含的量也不定 SELECT语句中 where后面 究竟要跟几个 AND 无法确定 请问如何写
VB中有TEXT3-TEXT8 6个控件 按他们的输入情况对MYSQL进行查询
而且需要模糊查询 所以先把TEXT控件输入的字符进行分割。
我是这样写的:
Dim l3 As Integer
Dim a3() As String
l3 = Len(Text3.Text)
ReDim a3(1 To l3) As String
For i = 1 To l3
a3(i) = Mid(Text3, i, 1)
Next 数据库的多条件查询语句是:
"select * form 表名 where a like "**"and b like "**" and c like "**"" 目前的问题是 由于输入字符不定 所以前面 A3数组中包含的量也不定 SELECT语句中 where后面 究竟要跟几个 AND 无法确定 请问如何写
dim comStr as string
comStr="select * from 表名 where"
for i=1 to l3
if i=1 then
'第一个加的时候没有and要判断一下
comStr=comStr+"a like "**""
else
comStr=comStr+"and a like "**""
end if
next i楼主试一试,希望有所帮助。