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

- . z 这里以access数据库为例。 第一局部是通过语句，第二局部是通过控件 一、 通过语句数据库，然后把相应的数据赋值给*个文本框就行了。 1.首先 定义几个全局变量 Dim As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String 2.给这些变量赋值，方便数据库 constr = Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\EffectSolution\科学效应数据库.mdb 红色局部写你自己的数据库路径。 3.翻开数据库 .open constr 翻开表 rs.open “select * from 效应表 where id=5“， 取字符串并赋值给相应的文本 Te*t1.te*t=rs.fields(“效应和现象名称〞) Te*t2.te*t=rs.fields(“文字讲解〞) 关闭表 rs.close 关闭数据库 .close 注意，最后两步骤一定要有，不然下次翻开数据库的时候会提示出错的，这样的话，在窗口上建立两个文本框就够了。 但是，在此之前还有一步一定要做， 点工程-引用-找到Microsoft Active* Data Object 2.6 ，如下图： 显示的结果如下列图所示： 通过与效应表比照发现显示正确。 总体代码如下： Private Sub Form_Load() Dim As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String constr = Provider=Microsoft.Jet.OLEDB.4.0; _ Data Source=D:\EffectSolution\科学效应数据库.mdb 空格加短下划线表示续行 .open constr rs.open select * from 效应表 where id =5, Te*t1.Te*t = rs.fields(效应和现象名称) Te*t2.Te*t = rs.fields(文字讲解) rs.Close .Close End Sub 二、 通过ado控件数据库，然后通过datagrid控件显示数据库中的相关表。 过程例如： 1.添加部件ado控件和datagrid控件，如下图： 这样工具栏里面会出现这样两个图标〔最下面〕： 2.把这两个控件添加到你的form1里面，这个不用演示吧 3.右击你添加的adodc1控件，选最后一个 然后点General里面的Use Connection String里面的那个Build，选择microsoft JET 4.0 OLE DB Provider，选中之后点下一步； 4.然后，点击第一个工程右边那个很多点的按钮，找到自己的数据库，选好之后点“翻开“ 旁边的文本框里面就有了数据路径，像这样： 5.测试连接，成功了就行了 6.点确定，显示这样一个界面： 7.点右边第三个RecordSource 按钮，设置成如下情况——cmdte*t选择1，然后输入SQL语句， Select * from 效应表〔表名，必填〕 8.设置好之后点确定就行了，这样就通过adodc1控件连接到了数据库中的这表接下来是对datagrid控件的设置： 9.把datagrid1控件的datasource设置成adodc1，就行了。 10.按F5启动，就会显示这样一个结果： 这样就成功了。