用where指定详细的条件就可以了
select 要查询的内容 from [表名] where 条件表达式
条件表达式可以为:
单个条件的
字段名1='要准确查询数据1'
多个条件句
字段名1='要准确查询数据1' and 字段名2='要准确查询数据2'
依次类推……
例如 查询 ST表中 姓名为 A 的记录
则 :
select from ST where 姓名 = 'A'
引用一个ADO的库,然后加入如下代码:
Private Sub Command1_Click()
Dim Conn As ADODBConnection
Dim Rs As ADODBRecordset
Set Conn = CreateObject("ADODBConnection")
Set Rs = CreateObject("ADODBRecordset")
Connopen "provider=microsoftjetoledb40;data source=d:\db1mdb"
Rsopen "select from data1", Conn, 1, 3
Dim i As Long
Dim j As Long
Dim MinI As Long
Dim MinJ As Long
Dim Min As Double
MinI = 1
MinJ = 1
Dim n As Double
n = Val(InputBox("输入一个数"))
Min = Abs(Rs(0) - n)
i = 1
While Not RsEOF
For j = 1 To RsFieldsCount
If Abs(Rs(j - 1) - n) < Min Then
Min = Abs(Rs(j - 1) - n)
MinJ = j
MinI = i
End If
Next j
i = i + 1
Rsmovenext
Wend
MsgBox "最接近的值位于" & MinI & "行" & MinJ & "列"
End Sub
你对SQL语句理解有问题
如果你想查询文本框1-3中条件,就应该定义3个变量分别取文本,然后一定要进行有效性校验,为空的不加入查询,然后用客户编号 like '%客户1%' or 客户编号 like '%客户2%'
如果你的查询是要几个输入框的精确查询,那就不能用like
需要调整为客户编号 in(客户1,客户2)这种样式
看你的需求了
目前看你的写法有问题,like前面不能有=号
楼上的思路正确,要同时查多个字段时,只能把所有字段都列起进来。
以下代码提供解决多个字段查询的思路
Dim sItem() As String
Dim strSQL As String,sWhere As String
Dim
Dim i As Integer,intCount As Integer
'// 设置要查询的字段
sItem = Split("姓名,性别,年龄,地址,工作地点",",")
intCount = UBound(sItem)
sWhere = Text1Text
strSQL = ""
'// 组合查询条件
For i = 0 To intCount
strSQL = strSQL & " OR " & sItem(i) & " LIKE '%" & sWhere & "%'"
Next
'// 生成最终的查询条件
strSQL = "SELECT FROM 表 WHERE (" & Mid$(strSQL,4) & ")"
以上就是关于VB 查询数据库时LIKE语句是模糊查询,有没有清晰查询呢,我要准确查询一个数据!全部的内容,包括:VB 查询数据库时LIKE语句是模糊查询,有没有清晰查询呢,我要准确查询一个数据!、在vb中如何进行模糊查询ACCESS中的数据、vb6.0 在SQL数据库中使用 组合查询的模糊查询:SQL语句等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)