VB和数据库连接好了 怎么样查询Access中的数据

LS应该定义数据库连接或者数据库。

dim

db

as

database,rst

as

recordset

dim

sql

as

string

set

db=opendatabase("D:\LZ的数据库.mdb")

set

rst=openrecordset("表1")

On

Error

Resume

Next

sql="select

Top

5

成绩,学号,姓名

Into

Tem

from

表1

group

by

姓名

order

by

成绩

desc"

db.execute

sql

data1.recordsource="select

*

from

tem"

db.close

1、应该先在数据库里建立临时表tem（一个字段就够了，反正是用来生成数据表的）。

2、应该在VB里建立datagird控件，否则无法显示查询结果。

3、把数据库源改为恰当的数据库名称，以及SQL语句也应该做一定的改动。

1.一个简单的查询的例子：

'*定义一个连接

Dim Conn As ADODB.Connection

'*定义一个记录集

Dim mrc As ADODB.Recordset

'*分别实例化

Set Conn = New ADODB.Connection

set mrc =New ADODB.Recordset

'*定义一个连接字符串

dim ConnectString as string

ConnectString="provider=microsoft.jet.oledb.4.0data source=" &App.Path &"\data\数据库名.mdbjet oledb:database password=数据库密码"

'*打开连接

Conn1.Open ConnectString

'*定义游标位置

Conn1.CursorLocation = adUseClient

'*查询记录集(从student表中找出名子为"张三"的记录)

mrc.open "select * from student where name='张三'",Conn, adOpenKeyset, adLockOptimistic

'*现在你已经得到了你想要查询的记录集了，那就是mrc

'*你可以把此记录集与DataGrid榜定，用datagrid显示你查询的记录

set me.datagrid.datasource=mrc

VB连接数据库查询过程基本是这样子：

须引用ADO.

private sub 查询_click()

Dim Cnn1 As New ADODB.Connection

Dim Rs As New ADODB.Recordset

Dim cnnstr As String, s As Boolean

CnnStr = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\mp.mdbPersist Security Info=False"

Cnn1.Open CnnStr

s = "select * from 表1 where 下载编号='" &Text1.Text &"'"

Rs.Open s, Cnn1, adOpenStatic, adLockReadOnly

If Rs.RecordCount >0 Then

Text2.text = rs!歌手 &rs!歌名 &rs!文件地址

else

Text2.text = "没找到!"

End If

Rs.Close

Cnn1.Close

Set Rs = Nothing

Set Cnn1 = Nothing

end sub

---