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

这里以链接access数据库为例。

第一部分是通过语句链接第二部分是通过控件链接

一、

通过语句链接数据库然后把相应的数据赋值给某个文本框就行了。

1 .首先定义几个全局变量

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dimconstr 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.f ields(“效应和现象名称”)

Text2. tex t=rs.f ie lds(“文字解说”)

关闭表rs .close

关闭数据库cn.close

注意最后两步骤一定要有不然下次打开数据库的时候会提示出错的这样的话在窗口上建立两个文本框就够了。

但是在此之前还有一步一定要做

点"工程"-"引用"-找到"Microsoft ActiveX Data Object 2.6

显示的结果如下图所示

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

总体代码如下

Private Sub Form_Load()

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim constr As Stringconstr = "Provider=Microsoft .Jet .OLEDB.4.0;" &_"Data Source=D:\EffectSolution\科学效应数据库.mdb"'空格加短下划线表示续行cn.open constrrs .open "select * from效应表where id =5" , cnText 1 .Tex t =r s .f i e ld s("效应和现象名称")

Text2.Text =r s .f ie lds("文字解说")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 DBProvider 选中之后点下一步

4.然后点击第一个项目右边那个很多点的按钮找到自己的数据库选好之后点“打开“

旁边的文本框里面就有了数据路径像这样

5.测试连接成功了就行了