Question

vb模糊查询语句

如何实现 再text1中输入 关键字 点击 查找 再text3中显示答案要模糊查找 请详细写1下谢谢

Answer 1

模糊查询语句是使用SQL结构化查询语言中的Like字句来实现。

在like字句中，可在样式的开头和结尾使用通配符（如LastName Like '*mit*'），或者只在结尾使用通配符（如LastName Like 'Smit*'）。
通配符，只允许使用星号（*）和百分号（%）。
代码示例：
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB;Persist Security Info=False"
Sql = "select * from Authors where Author like '%acobs%'"Sql
Adodc1.RecordSource = Sql
Adodc1.Refresh
下句也能执行：
Sql="select * from Authors where Author like 'Jacobs%'"

Answer 2

'1. 若为数据库查询,用SQL中的Like功能就可以模糊查找。

'查询文字,数字和日期学法.

SQL = "select * from Expense where Items Like '%" & Text1.Text & "%'"
SQL = "select * from Table Name where Price=" & Text1.Text
SQL = "select * from Table Name where Date Like #" & Text1.Text & "#"

If rs.State = adStateOpen Then rs.Close
rs.Open SQL, cn, adOpenStatic, adLockOptimistic
End Sub

’2. 若没有用到数据库可以用"LIKE"函数

Answer 3

由于是模糊查询，查询的应该是数据库中的某一数据表，在“text1中输入 关键字 点击 查找”没有问题，但是输出在一个“text3中”就有问题了，因为数据表中你查询的可能不是一个字段，哪么数据显示就非常乱，尤其是字段中数据大小不一时，你查看是非常不便的。但是根据你的要求，还是给你代码，但是你的Text3必须是多行文本框。

RS.open "Select * From 数据表名 Where 字段名 Like '%" & Text1.Text & "%'"
Do While Not RS.EOF
Text3.Text = Text3.Text & "字段1名:" & RS!字段1 & "字段2名:" & RS!字段2 & ..... & "字段n名:" & RS!字段n & vbCrlf
RS.MoveNext
Loop

Answer 4

查找什么?如果查找内存里的东西,直接用text1.value和内存里的东西进行比较.如果查询数据库,利用text1.value生成SQL语句,然后执行SQL查询.

Answer 5

rs.open "select * from 表 where 列 like '%" & text1.text & "%'"

text3.text=rs!列