vb中的数据库查询

If rsFields("姓名") Like "" & LCase(NameQuery ) & "" Then

不需要这样做的,下面的代码要好些

NameQuery = InputBox("请输入要查询的名字", "查询")

Set rs = con3OpenRecordset("SELECT FROM 通讯录 where 姓名 = '" & trim(NameQuery) & "'")

if not rseof then

Txtname = rsFields("姓名")

TxtE_mail = rsFields("E_mail")

Txtmobil = rsFields("手机")

TxtQQ = rsFields("QQ")

Txtphone = rsFields("固定电话")

else

MsgBox "查无此人", , "注意"

end if

"select from dboTable_tl where date='" &Text1Text"' and time='" & Text2Text & "'"

Text1 输入日期 Text2 输入时间

dim infor,sql as string

infor=用户输入的

sql= "select from 你的表名 where 你的列名 like '%" & infor &"%'"

这样就会模糊查询

Private Sub Command1_Click()

'建立链接

Dim Cntion As ADODBConnection

Dim RecSet As ADODBRecordset

Dim ConStr, RecStr As String

Set Cntion = New ADODBConnection

Set RecSet = New ADODBRecordset

ConStr = "Provider=MicrosoftJetOLEDB40;Persist Security Info=False;Data Source=D:\1mdb"

CntionOpen ConStr

'模糊搜索语句

RecStr = "SELECT FROM 表1 WHERE TEXT1 LIKE '%" & Text1Text & "%'"

'打开数据库

RecSetOpen RecStr, Cntion, adOpenKeyset, adLockOptimistic

'如果查询结果为空，跳到NotExist

If RecSetBOF <> True And RecSetEOF <> True Then

RecSetMoveFirst

Else

RecSetClose

GoTo NotExist

End If

'输出查询结果。其中输出文本框为MultiLine，可以输出多个结果。

Text2Text = ""

Do While RecSetEOF = False

Text2Text = Text2Text & RecSetFields("TEXT1") & Chr(13) & Chr(10)

RecSetMoveNext

Loop

RecSetClose

Exit Sub

NotExist:

'输出第一行

RecStr = "SELECT FROM 表1"

RecSetOpen RecStr, Cntion, adOpenKeyset, adLockOptimistic

If RecSetBOF <> True And RecSetEOF <> True Then

RecSetMoveFirst

End If

Text2Text = ""

Text2Text = RecSetFields("TEXT1")

RecSetClose

End Sub

以上就是关于vb中的数据库查询全部的内容，包括:vb中的数据库查询、vb怎么实现数据库查询功能、VB从Access数据库中查找的问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！