vb连接access数据库常用的方法两种示例

这里以链接acｃｅss数据库为例。

第一部分就是通过语句链接，第二部分就是通过控件链接一、

通过语句链接数据库,然后把相应得数据赋值给某个文本框就行了。

1、首先定义几个全局变量

Diｍcn As NｅｗADＯDB、Cｏnnｅctioｎ

Dim rs Ａs New AＤＯDB、Recｏrdset

Dｉm cｏnｓtｒAｓStrｉｎg

2、给这些变量赋值，方便链接数据库

coｎstr = "Provｉｄer=Mｉcｒosｏft、Jet、OＬEDＢ、4、0;＂＆"ＤａtａＳouｒce=Ｄ:\EffeｃtSｏlutｉｏｎ\科学效应数据库、mdb"

红色部分写您自己得数据库路径。

３、打开数据库

ｃn、opｅｎconstr

打开表

ｒs、oｐeｎ“sｅlect * from 效应表ｗhereｉd=5“,ｃn

取字符串并赋值给相应得文本

Text1、text=rs、ｆields（“效应与现象名称”)

Teｘt2、text=rｓ、ｆiｅlｄs(“文字解说”）

关闭表

rｓ、cloｓe

关闭数据库

cn、close

注意,最后两步骤一定要有,不然下次打开数据库得时候会提

示出错得,这样得话，在窗口上建立两个文本框就够了。

但就是，在此之前还有一步一定要做，

点"工程"-"引用"-找到＂Micrｏsoｆt ActiｖeX Dａta Ｏbjｅcｔ2、6 ",如图所

示:

显示得结果如下图所示：

通过与效应表对比发现显示正确。

总体代码如下:

Pｒｉｖａte Sｕb Form＿Load()

Dｉm cn As Ｎew ＡDODＢ、Cｏｎnｅcｔion

Ｄｉm rs As NeｗAＤOＤＢ、Ｒeｃordseｔ

Dim cｏnstｒＡｓStｒinｇ

coｎｓtｒ＝＂Pｒoｖｉdeｒ＝Ｍｉcrosｏfｔ、Jeｔ、OLＥDB、4、0;" &＿

"Data Sｏuｒce=D:\EffeｃtＳｏｌution\科学效应数据库、mdb"

'空格加短下划线表示续行

cｎ、ｏpen cｏｎsｔｒ

ｒs、open ＂selｅct*from 效应表ｗhere id ＝５", cｎ

Tｅxt1、Tｅxt = rs、fieｌｄs(＂效应与现象名称")

Ｔeｘt2、Ｔｅｘt = rs、ｆｉelds("文字解说＂)

rｓ、Ｃlｏsｅ

ｃn、Closｅ

EｎdＳub

二、

通过ado控件链接数据库,然后通过daｔａｇrid控件显示数据库中得相关表。

过程示例:

１、添加部件ado控件与daｔaｇｒid控件,如图所示：

这样工具栏里面会出现这样两个图标(最下面):

２、把这两个控件添加到您得ｆorｍ１里面,这个不用演示吧３、右击您添加得ａdｏdc１控件,选最后一个

然后点Gｅneraｌ里面得UseＣｏnnectiｏｎStrinｇ里面得那个Ｂuild,选择ｍicroｓoft JＥT 4、0 OLE DB Proｖider，选中之后点下一步;

4、然后,点击第一个项目右边那个很多点得按钮,找到自己得数据库,选好之后点“打开“

旁边得文本框里面就有了数据路径，像这样:

5、测试连接,成功了就行了

6、点确定,显示这样一个界面:

7、点右边第三个RｅcoｒdSoｕrｃe 按钮,设置成如下情况——cmdtext选择1,然后输入SＱL语句,

Ｓelect *fｒoｍ效应表（表名，必填）

8、设置好之后点确定就行了，这样就通过aｄｏｄc1控件连接到了数据库中得这张表接下来就是对ｄaｔaｇrid控件得设置：

9、把ｄａtagrｉd１控件得dａｔasource设置成adoｄc1,就行了。

10、按F5启动,就会显示这样一个结果:

这样就成功了。