Question

vb6.0 查询问题 为什么查询不出数据，留一条sql语句就能查出来，加上另外7条就查询不出来数据，为什么？

Private Sub Command1_Click()
On Error GoTo merror
conn.Close
Dim sql As String
Dim connStr As String
connStr = s
sql = "select * from chumenzheng where f01 like '%" & Text12.Text & "%'"

sql = "select * from chumenzheng where f02 like '%" & Text13.Text & "%'"

sql = "select * from chumenzheng where f03 like '%" & Text14.Text & "%'"

sql = "select * from chumenzheng where f04 like '%" & Text15.Text & "%'"

sql = "select * from chumenzheng where f06 like '%" & Text16.Text & "%'"

sql = "select * from chumenzheng where f08 like '%" & Text17.Text & "%'"

sql = "select * from chumenzheng where f09 like '%" & Text18.Text & "%'"

sql = "select * from chumenzheng where f10 like '%" & Text1.Text & "%'"

conn.Open strConn
conn.CursorLocation = adUseClient
rs.Open sql, conn, adOpenStatic, adLockBatchOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh

Answer 1

楼主你好
你的sql是一个变量
当你再次为他赋值时,值就发生了改变
也就是说:当你执行的时候,sql的值是最后一次赋值的结果
如果你想得到8个执行语句合并的结果,将语句改成:
sql = "select * from chumenzheng where f01 like '%" & Text12.Text & "%' or f02 like '%" & Text13.Text & "%' or f03 like '%" & Text14.Text & "%'....................."
.............是以次类推,自己改下

追问

就这一种解法吗，还想问一下f04 like '%" & Text15.Text & "%'"这一句改成数字型的怎么改，还有你写的语句我查询1的时候12也查询出来了，我要精确查找，谢了，答对者追加20分

追答

知道你的意思了

可以改成 convert(int,[f04])=convert(int,'" & Text15.Text & "')
函数convert(数据类型,字段名):将某个数据转换成另外一种数据类型
如:
select convert(int,'10000')+convert(int,'1000')
查询结果是11000而不是100001000

其实以上是正规写法,牵涉到数据运算的
而我看下你的例子里不牵涉到数据运算,可以直接改成:
f04 = '" & Text15.Text & "'

追问

哥们我还是没明白你的意思，麻烦你点时间给我写好，正确运行了，我给你50分要求f04 like '%" & Text15.Text & "%'这一语要求精确查询，剩下的f01,f02........要求模糊查询，带DataCombo,
DataCombo下拉菜单中有=，>,=等选择查询。万分感谢

追答

sql="select * from chumenzheng where f01 like '%" & Text12.Text & "%' or f02 like '%" & Text13.Text & "%' or f03 like '%" & Text14.Text & "%' or f04='" & Text15.Text & "' or f06 like '%" & Text16.Text & "%' or f08 like '%" & Text17.Text & "%' or f09 like '%" & Text18.Text & "%' or f10 like '%" & Text1.Text & "%'"

追问

哥们运行不了啊，急死我了，我把你的代码站过去了，什么也查询不出来啊

追答

Private Sub Command1_Click()
On Error GoTo merror
Dim sql As String
Dim connStr As String
connStr = s
sql="select * from chumenzheng where f01 like '%" & Text12.Text & "%' or f02 like '%" & Text13.Text & "%' or f03 like '%" & Text14.Text & "%' or f04='" & Text15.Text & "' or f06 like '%" & Text16.Text & "%' or f08 like '%" & Text17.Text & "%' or f09 like '%" & Text18.Text & "%' or f10 like '%" & Text1.Text & "%'"
conn.Open strConn
conn.CursorLocation = adUseClient
rs.Open sql, conn, adOpenStatic, adLockBatchOptimistic
Set DataGrid1.DataSource = rs
conn.Close
DataGrid1.Refresh

merror:
conn.Close
End if

'你的问题在于出现错误才跳转到merror,但是conn.Close不再merror里,conn.Close就必定会执行
所以在开始执行的时候就被关闭了链接,当然查不到数据了

Answer 2

'%" & Text12.Text & "%'"

应该是这里写错了， ”%" & Text12.Text & "%“"试试

追问

哥们不是，还是不好使。是不是我记录集写的有问题啊，那位高人能帮帮我谢啦，如果答对加分

追答

不太明白你的意思，加上七条后，应该也只能查到最后一条，你是想查8条语句吗？

追问

sql = "select * from chumenzheng where f01 like '%" & Text12.Text & "%'"
我只用这一条语句能查询到记录

但是在加上下面的语句就什么都查询不出来了，对我想查询八条语句，答对有加分
给出具体例子

追答

加上下面的语句，应该只能查最后一条，sql = "select * from chumenzheng where f10 like '%" & Text1.Text & "%'"，因为sql被新的值替代。

这只能说明，这最后一条没有查到结果，那么你看看自己的数据，有没有符合这个要求的记录，如果你真的要查询8条语句，应该对每个sql语句调用rs.Open sql, conn, adOpenStatic, adLockBatchOptimistic，或者你是要同时满足这8个要求，可以把sql改成：

sql = "select * from chumenzheng where f01 like '%" & Text12.Text & "%'" and f02 like '%" & Text13.Text & "%'" and f03 like '%" & Text14.Text & "%'" and f03 like '%" & Text14.Text & "%'" and f04 like '%" & Text15.Text & "%'" and f06 like '%" & Text16.Text & "%'" and f08 like '%" & Text17.Text & "%'" and f09 like '%" & Text18.Text & "%'" and f10 like '%" & Text1.Text & "%'"

如果你只需要任意满足一个就可以了，把所有的and更改成 or

追问

就这一种解法吗，还想问一下f04 like '%" & Text15.Text & "%'"这一句改成数字型的怎么改，还有你写的语句我查询1的时候12也查询出来了，我要精确查找，谢了，答对者追加20分

追答

要精确查找，把两边%去掉，写成sql = "select * from chumenzheng where f01 like '" & Text12.Text & "'" and f02 like '" & Text13.Text & "'" and f03 like '" & Text14.Text & "'" and f03 like '" & Text14.Text & "'" and f04 like '" & Text15.Text & "'" and f06 like '" & Text16.Text & "'" and f08 like '" & Text17.Text & "'" and f09 like '" & Text18.Text & "'" and f10 like '" & Text1.Text & "'"

追问

去掉百分号就什么也查不出来啊，郁闷，还有like去掉用DataCombo拼一个sql语句行吗，在你写的原有语句上

追答

那只能说明没有满足这个要求的数据，这个要求等价于f01=text1.text 并且 f02=Text13.text并且。。。，所以你要注意在文本框输入数据时，一定要保证有这样的数据存在，你可以把一条记录显示出来，并按照它的内容填写文本框

Answer 3

这代码写的太N了！！楼主应该优化下啊。。。。。

追问

真么忽略啊，帮忙改改

追答

因为你没有在问题里面描述你的需求，那我只能按我的理解，说明下
只从代码上看，你最上面的代码，其实只返回了
sql = "select * from chumenzheng where f10 like '%" & Text1.Text & "%'"
的结果，没有查询到结果，是因为数据库里没有F10=text1.text数据
如果你是要按以上8条SQL查询，然后将结果汇总出来的话，你可以试着将,以下部分：
sql = "select * from chumenzheng where f01 like '%" & Text12.Text & "%'"

sql = "select * from chumenzheng where f02 like '%" & Text13.Text & "%'"

sql = "select * from chumenzheng where f03 like '%" & Text14.Text & "%'"

sql = "select * from chumenzheng where f04 like '%" & Text15.Text & "%'"

sql = "select * from chumenzheng where f06 like '%" & Text16.Text & "%'"

sql = "select * from chumenzheng where f08 like '%" & Text17.Text & "%'"

sql = "select * from chumenzheng where f09 like '%" & Text18.Text & "%'"

sql = "select * from chumenzheng where f10 like '%" & Text1.Text & "%'"
'==================================================================
'改为
sql = "select * from chumenzheng where f01 like '%" & Text12.Text & "%'"

sql = sql+" Union All select * from chumenzheng where f02 like '%" & Text13.Text & "%'"

sql = sql+" Union All select * from chumenzheng where f03 like '%" & Text14.Text & "%'"

sql = sql+" Union All select * from chumenzheng where f04 like '%" & Text15.Text & "%'"

sql = sql+" Union All select * from chumenzheng where f06 like '%" & Text16.Text & "%'"

sql = sql+" Union All select * from chumenzheng where f08 like '%" & Text17.Text & "%'"

sql = sql+" Union All select * from chumenzheng where f09 like '%" & Text18.Text & "%'"

sql = sql+" Union All select * from chumenzheng where f10 like '%" & Text1.Text & "%'"

希望能帮到你

其实这样写，从实际情况走的话，还是会有问题，我不知道你的程序是怎么设计的，这样写会有个问题，你必须每个TEXT都必须要填值，不然就会将所有的数据查询出来，想要避免这种情况，就需要判断了。不知道你有没有这样的问题。
其实你需要把这段sql好好的规划下，写不下了

追问

哥们我要的是随便在文本框敲值把所需要的值查询出来
例如：我在text1里敲1所对应字段1的值查询出来
例如：我同时在text1里敲12在text2里敲34所对应字段12.34的值查询出来，以此类推随便在任意文本框里敲数查询出我想要的值，我的意思哥们不知明白否，答对者重赏。

追答

那你设计程序的时候是打算一次只能用一个查询条件，还是可能会用到多个查询？条件是或还是并且的关系？

追问

and or 都要

追答

这样的话，构造SQL的时候就比较麻烦了，你的程序就要好好的设计下了,模糊不模糊、AND还是OR，程序界面上都要有相应的选项，然后SQL的构造你可以这样写：
str_sql="select * from chumenzheng where (1=1)"

if Text12.Text"" then
if (or 的条件) then
str_fiXCondition=str_fiXCondition + " Or "
else
str_fiXCondition=str_fiXCondition + " And "
end if
if （模糊查询的条件）then
str_fiXCondition=str_fiXCondition + " f01 like '%" & Text12.Text & "%'"
else
str_fiXCondition=str_fiXCondition + " f01 like '" & Text12.Text & "'"
end if
end if

if Text13.Text"" then
if (or 的条件) then
str_fiXCondition=str_fiXCondition + " Or "
else
str_fiXCondition=str_fiXCondition + " And "
end if
if （模糊查询的条件）then
str_fiXCondition=str_fiXCondition + " f02 like '%" & Text13.Text & "%'"
else
str_fiXCondition=str_fiXCondition + " f02 like '" & Text13.Text & "'"
end if
end if
……
……
（这样判断到最后一个）
sql= Str_sql + str_fiXCondition

希望能帮到你！

追问

哥们我要是有100个text文本框做查询我还判断一百次吗？那还要什么程序啊，不得累吐血了啊，有没有简单又实用的，哥们能不能吧你qq号告诉我，我把我的程序发给你你帮我改一改，很简单的，想拜你为师，哈哈

追答

是这样的，所有的问题，你不能只想着从代码着手修改，有些问题，你需要从设计方面入手，向你所说的，100个TEXT，这个情况如果应用到实际程序中的话，那就是程序设计问题了，你放100个TEXT，就算你不写判断，光做字段匹配就写死你。
我也是新手，有问题大家一起讨论好了。白天的话我只能上,百度HI。有什么问题你直接HI我吧。空下来会回复你的。

Answer 4

只为完成任务，请忽略。