利用VB访问access数据库

从数据库中查找某个值，一般都不用data、adodata、datacombo、datagrid之类的控件，除非是列出数据库的很多个值。你的题意就是只查找某个值，所以最好最高效的方法是使用ADO数据库对象，包括：

adodbconnection用于连接数据库

adodbcommand用于查找数据

adodbrecordset用于返回数据

另外，还要学习基本的SQL查询语句知识

例如：从数据库中查找半径为3的面积，可以这样写：

Private Sub Command1_Click()

dim S as double

Dim cn As New ADODBConnection

Dim rs As New ADODBRecordset

cnOpen "DRIVER={Microsoft Access Driver (mdb)};DBQ=" + AppPath + "\cmdb"

rsOpen "select from 园 where r="+Text1Text , cn, adOpenKeyset, adLockOptimistic, adCmdText

If Not rsEOF Then

S = rs("s")

End If

rsClose

cnClose

Text2Text = Cstr(S)

End Sub

对于没有VB运行库的机器，必须注册VB运行库，程序中的代码不需要改动。

-----------------------------------

链接数据库的方法比较多，看你采用什么方法链接了，：

1、用ADO链接；2、用Data数据控件链接；3、用ADODB数据控件链接；还有数据库文件是Access 1997Access 2000Access 2003有没有加密？等等等等问题，首先确定这些问题，才能

下面给你一个用ADO的代码链接的实例：（ACCESS 2003)

首先在工程中点击工程-引用，在打开的对话框选择Microsoft AxtiveX Data Objects 28 Library 勾选，然后定义二个对象：

Dim conn As New ADODBConnection, rs As New ADODBRecordset

其中conn是数据库链接对象，rs是数据记录集对象

那么，下面就是利用SQL语句链接数据库了：

connOpen "Provider=MicrosoftJetOLEDB40;Data Source=F:\library\1mdb;Jet OLEDB:Database Password="

strSQL = "SELECT FROM 数据库中的表"

rsOpen strSQL, conn, 3, 3

至此数据库已经链接成功，并且已经加载了记录集，下面你就可以进行数据 *** 作了，注意，在数据库 *** 作完成后，千万别忘记关闭记录集和数据库链接对象：

rsClose

connClose

新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。

然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中选MICROSOFT

jet

40

OLE

DB

Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。

此外一楼说的ACCESS数据库不支持共享修改,但可共享只读访问

以下给出代码:

Private

Sub

Form_Load()

With

Adodc1

Adodc1ConnectionString

=

"Provider=MicrosoftJetOLEDB40;Data

Source=E:\db1mdb;Persist

Security

Info=False"

Adodc1RecordSource

=

"select

name

from

b1

order

by

name"

Adodc1Refresh

DataGrid1Refresh

End

With

End

Sub

以上就是关于利用VB访问access数据库全部的内容，包括:利用VB访问access数据库、vb连接ACCESS数据库实例、VB中，访问局域网中的ACCESS数据库，并可以进行 *** 作等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！