神马品牌网草履虫是爬行动物吗:VB6 SQL查询问题
来源：百度文库 编辑：神马品牌网 时间：2024/04/28 00:40:21
程序中要使用模糊查询，查询所有记录可以正常返回，
但输入要查询的内容却返回空，我的程序如下，请大家
帮忙看看，程序运行正常，只是结果不正常。
Dim FindText As String
If Index = 0 And KeyCode = 13 Then
FindText = "select * from " & TreeView1(0).Nodes(DataOpenIndex).Text
If Text4(0).Text <> "" Then
FindText = FindText & " where (" & Combo1(0).Text & " like '*" & Text4(0).Text & "*')"
End If
Adodc1(DataOpenIndex).RecordSource = FindText
Adodc1(DataOpenIndex).Refresh
Label4(0).Caption = "共找到 " & Adodc1(DataOpenIndex).Recordset.RecordCount & " 条符合条件的记录"
End If
如果TEXT4(0).text="" 则正常，否则返回空
不知是否这句的统配符用错了，可我把 * 换成 % 还是一样的，请大家帮忙解决一下，先谢谢了。
FindText = FindText & " where (" & Combo1(0).Text & " like '*" & Text4(0).Text & "*')"
FindText = FindText & " where (" & Combo1(0).Text & " like '%" & Text4(0).Text & "%')"
但输入要查询的内容却返回空，我的程序如下，请大家
帮忙看看，程序运行正常，只是结果不正常。
Dim FindText As String
If Index = 0 And KeyCode = 13 Then
FindText = "select * from " & TreeView1(0).Nodes(DataOpenIndex).Text
If Text4(0).Text <> "" Then
FindText = FindText & " where (" & Combo1(0).Text & " like '*" & Text4(0).Text & "*')"
End If
Adodc1(DataOpenIndex).RecordSource = FindText
Adodc1(DataOpenIndex).Refresh
Label4(0).Caption = "共找到 " & Adodc1(DataOpenIndex).Recordset.RecordCount & " 条符合条件的记录"
End If
如果TEXT4(0).text="" 则正常，否则返回空
不知是否这句的统配符用错了，可我把 * 换成 % 还是一样的，请大家帮忙解决一下，先谢谢了。
FindText = FindText & " where (" & Combo1(0).Text & " like '*" & Text4(0).Text & "*')"
FindText = FindText & " where (" & Combo1(0).Text & " like '%" & Text4(0).Text & "%')"
我看，如果TreeView1(0).Nodes(DataOpenIndex).Text
不为""例如为"aaa",那查询语句就变成"select * from aaa " & FineText & " where (" & Combo1(0).Text & " like '*" & Text4(0).Text & "*')"了，这个语句明显是错的吧？
另外VB加个断点，看一下最终的SQL是什么，把这个SQL拷贝到查询分析器里直接查，看看行不行。
~~~~~~~~~看都看不懂
我也 要学VB
我也 要学VB
我也 要学VB
我也 要学VB