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

1、vb连接access数据库常用的方法两种示例这里以链接access数据库为例。第一部分就是通过语句链接,第二部分就是通过控件链接一、 通过语句链接数据库,然后把相应的数据赋值给某个文本框就行了。1、首先 定义几个全局变量Dim cn As New ADODB、Connection Dim rs As New ADODB、Recordset Dim constr As String2、给这些变量赋值,方便链接数据库constr = Provider=Microsoft、Jet、OLEDB、4、0; & Data Source=D:EffectSolution科学效应数据库、mdb红色部分写您自己

2、的数据库路径。3、打开数据库cn、open constr打开表rs、open “select * from 效应表 where id=5“,cn取字符串并赋值给相应的文本Text1、text=rs、fields(“效应与现象名称”)Text2、text=rs、fields(“文字解说”)关闭表rs、close关闭数据库cn、close注意,最后两步骤一定要有,不然下次打开数据库的时候会提示出错的,这样的话,在窗口上建立两个文本框就够了。但就是,在此之前还有一步一定要做,点工程-引用-找到Microsoft ActiveX Data Object 2、6 ,如图所示:显示的结果如下图所示:通过与

3、效应表对比发现显示正确。总体代码如下:Private Sub Form_Load()Dim cn As New ADODB、ConnectionDim rs As New ADODB、RecordsetDim constr As Stringconstr = Provider=Microsoft、Jet、OLEDB、4、0; & _Data Source=D:EffectSolution科学效应数据库、mdb空格加短下划线表示续行cn、open constrrs、open select * from 效应表 where id =5, cnText1、Text = rs、fields(效应与现象

4、名称)Text2、Text = rs、fields(文字解说)rs、Closecn、CloseEnd 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 按钮,设置成如下情况cmdtext选择1,然后输入SQL语句,Select * from 效应表(表名,必填)8、设置好之后点确定就行了,这样就通过adodc1控件连接到了数据库中的这张表接下来就是对datagrid控件的设置:9、把datagrid1控件的datasource设置成adodc1,就行了。10、按F5启动,就会显示这样一个结果:这样就成功了。