VB如何查找ACCESS数据库中的所有表

如果想要对数据库进行查找 *** 作，那么你需要先定义数据库字符串，和一个记录集对像

Public conn As ADODBConnection ‘数据库对象

Public xs As ADODBRecordset '记录集对象用来存放查找结果

Sub Connect() '连接到DB1数据库

Set conn = New ADODBConnection

connConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\db1mdb"

connOpen

End Sub

如果有一个数据库db1mdb它里面有一个表

学生（姓名，学号)

现在想要查找学号为10的学生记录。

public sub cazhao()

dim sql as string

sql="select from 学生 where 学号=10"

set xs =new ADODBRecordset

xsopen sql,conn,2,2

end sub

执行完cazhao过程后，xs里面就是查找的结果了。比如把 xs的值赋给文本框：

text1text=xs("姓名")

text2text=xs("学号")

如果xs中有多条记录可以通过这样的方式遍历：

do while not xseof

想要赋值的对象=xs("字段名")

xsmovenext

loop

我想表中应该没有总分这个字段吧，总分要计算一下

select top 10 学号,总分 from (select 学号,sum(成绩) as 总分 from 成绩表 group by 学号) a

order by 总分 desc

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 输入时间

以上就是关于VB如何查找ACCESS数据库中的所有表全部的内容，包括:VB如何查找ACCESS数据库中的所有表、vb 数据库查找数据、vb中的数据库查询等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！