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

1、这里以access数据库为例。第一局部是通过语句，第二局部是通过控件通过语句数据库，然后把相应的数据赋值给某个文本框就行了。首先定义几个全局变虽DimAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimconstrAsString给这些变虽赋值，方便数据库constr="Provider=Microsoft.Jet.OLEDB.4.0;"&"DataSource=科学效应数据库.mdb"红色局部写你自己的数据库路径。翻开数据库.openconstr翻开表rs.open“select*from效应表wh

2、ereid=5取字符串并赋值给相应的文本Text1.text=rs.fields（“效应和现象名称Text2.text=rs.fields（“文）字讲解关闭表rs.close关闭数据库.close.注意，最后两步骤一定要有，不然下次翻开数据库的时候会提示出错的，这样的话，在窗口上建立两个文本框就够了。但是，在此之前还有一步一定要做，点"工程"-"引用"-找至J"MicrosoftActiveXDataObject2.6",如下图：囱皿查询助©SJOJ工具CD夕睥4叶k吉口S毛对.H±E.Zf¥(L坯十(U

3、JIOeil；av«u£(VisualSiwiv收ilCUKIJftLOJll-Xp-LCLPi'ia-'e5uhFQm._LoadADODR.C.cnAsVeirDiirDiir-rskeTADODB.RD*constrAeStrinsconstr:ProviderMiDataScuree-D'Effec引用-工程1NtcrftEflCtNlcr/胡艮Nter»iaEt.N*M*gEtN.<zr<>£0FtNlcx*ozaEtN.CT归DflN£¥"归RlLC3r»=aE

4、tN.CI少m0RheuoRN二h»:aEtFleActiwaHj¥itCwtrfll卜ActeltlLaJtijclatiulli-ilin-A.=<2vd政aJbjects2QLshru-r叫工U整槌Jbjact#E1mroyAcCveltl#La用2弓甘1虹舁iJstivqT.Eftto.Jbjaci=2.TL3.briurji加：rhi:-ii_-1-.:u'ill-：-ijstsvcl耻匕乏JbjecisRMUwdn空*2jUd-Tu341l5xAMJEkl20finIlDLsndSecijrit.对C5.0QKieeALibrwyjki.tDizf

5、lviafyIyp4LitroryWlAVI-UFKh-IhW-"*c.ewittLCTfif*ftJurl3V41T虹Qkjris2SLibru5定位：C"FrocranTile3-C«jinwiTiles1!.sjratts4n'ns-sJ.n3GQ*b倡言：MBcn.openconstrrs.open"seleci*frcia效应表vhereid=5”.cnTextLText=rw,fiel那)效应和现豪乏秘*Text2.Text=rs.fields(*文字显示的结果如下列图所示:licrosvftViraslBasic:1世仍J号J勺添加

6、音仲£Ji.S-Jn«cft以J；J.JflMLUH».奇恒gfEsiEi耘舟帕H¥r=qr司司怩忏可旧置看如月户五桂遂忌加r.miJflDa."P-pwTJ170”虬hw赢加IH411出wir何me*1"F牢Awh甲电T&'i+SBi?.,看加T忤(A)Cu；»DDi里_觅_工心麻埋¥一一一，DmconstrAsStringcoDsty*Provider=Mi£rOSOft.Jet.OLEDE.4.0.*A_DM*S&urce"D:BffeotSomtig'i料

7、学蚊应蛔库.顺cn.openconstrfb.open*»lsctfrcn效它表whereid-S*3Textl.Tsxt-_££!dh(效应和现彖名称勺TextS-Text=rs.fields('i；字解ife")§心理e)w工堤力心ilI调uuu您看叩*cm踞ujm-jj件嬲申&stunj霸罚uu谷督的皆会曰Jt七电列p爆炸.爆炸指一个化学反应能不断地自我加速而在瞬间完成，并伴随有光的发射，系统温度顺势达到极大值和气体的压力急骤变化，以致形成冲击波等现象0爆炸可通过化学反应、放电、激光束效应、核反应等方法获得，通过与效应表比

8、照发现显示正确总体代码如下：PrivateSubForm_Load()DimAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimconstrAsStringconstr="Provider=Microsoft.Jet.OLEDB.4.0;"&_科学效应数据库.mdb"'空格加短下划线表示续行.openconstrrs.open"select*from效应表whereid=5",Textl.Text=rs.fields（'效应和现象名称"）Text2.Text=rs.

9、fields（文字讲解"）rs.Close.CloseEndSub二、通过ado控件数据库，然后通过datagrid控件显示数据库中的相关表。过程例如：1. 添加部件ado控件和datagrid控件，如下图：这样工具栏里面会出现这样两个图标最下面2. 国11101111qgg9屈把这两个控件添加到你的forml里面，这个不用演示吧右击你添加的adodcl控件，选最后一个然后点General里面的UseConnectionString里面的那个Build，选择microsoftJET4.0OLEDBProvider,选中之后点下一步;4.然后，点击第一个工程右边那个很多点的按钮，找到自

10、己的数据库，选好之后点“翻开L3宜.%黑1*1on!;fcEf£ectBa-se:"'jEffeclIm&斡回科学敦应数据库mdb桌有我的电疝网上邻居苴伸名理:裾效应数据库项此打井句）旁边的文本框里面就有了数据路径，像这样:提供程序建接指定下列设置以匡接到Ac«55数据：1.选择或输入数据庠名称：|c：Jocument5andSettineaVKdniiiistrator|gt.密卓？iWrieFiFrWm白-5.测试连接，成功了就行了6.点确定，显示这样一个界面:7.点右边第三个RecordSource按钮，设置成如下情况cmdtext选择1,然后输入SQL语句，Select*from效应表表名，必填8.设置好之后点确定就行了，这样就通过adodcl控件连接到了数据库中的这表接下来是对datagrid控件的设置:9.把datagridl控件的datasource设置成adodcl,就行了Mi