下载文档原格式
这里以链接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启动,就会显示这样一个结果:
这样就成功了。
