VB 查询数据库时LIKE语句是模糊查询,有没有清晰查询呢,我要准确查询一个数据!

VB 查询数据库时LIKE语句是模糊查询,有没有清晰查询呢,我要准确查询一个数据!,第1张

用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语句等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/sjk/10199258.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-06
下一篇 2023-05-06

发表评论

登录后才能评论

评论列表(0条)

保存