vb中怎样连接数据库

可以用ODBC数据源，添加一个SQL的。然后用VB里面的ADO部件和datagrid部件连接。先在拖出的adodc部件右键设置属性，连接数据库。再将datagrid连接到adodc就可以看到数据了。

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

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语句也应该做一定的改动。

---