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

这里以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.打开数据库

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 "，如图所示：

显示的结果如下图所示：

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

总体代码如下：

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" '空格加短下划线表示续行

cn.open constr

rs.open "select * from 效应表where id =5",

Text1.Text = rs.fields("效应和现象名称")

Text2.Text = rs.fields("文字解说")

rs.Close

cn.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 按钮，设置成如下情况——cmdtext选择1，然后输入SQL语句，

Select * from 效应表（表名，必填）

8.设置好之后点确定就行了，这样就通过adodc1控件连接到了数据库中的这表接下来是对datagrid控件的设置：

9.把datagrid1控件的datasource设置成adodc1，就行了。

10.按F5启动，就会显示这样一个结果：

这样就成功了。