vb连接ACCESS数据库实例

发布网友 发布时间：2022-04-07 21:44

我来回答

共5个回答

热心网友 时间：2022-04-07 23:14

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

链接数据库的方法比较多，看你采用什么方法链接了，：
1、用ADO链接；2、用Data数据控件链接；3、用ADODB数据控件链接；还有数据库文件是Access 1997?Access 2000?Access 2003?有没有加密？等等等等问题，首先确定这些问题，才能.....
下面给你一个用ADO的代码链接的实例：（ACCESS 2003)
首先在工程中点击【工程】-【引用】，在打开的对话框选择Microsoft AxtiveX Data Objects 2.8 Library 勾选，然后定义二个对象：
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
其中conn是数据库链接对象，rs是数据记录集对象
那么，下面就是利用SQL语句链接数据库了：
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\library\1.mdb;Jet OLEDB:Database Password="
strSQL = "SELECT * FROM 数据库中的表"
rs.Open strSQL, conn, 3, 3
至此数据库已经链接成功，并且已经加载了记录集，下面你就可以进行数据操作了，注意，在数据库操作完成后，千万别忘记关闭记录集和数据库链接对象：
rs.Close
conn.Close

热心网友 时间：2022-04-08 00:32

这里有三个Ado连接的函数
http://hi.baidu.com/lzh741206/blog/item/890fe44ef4df6bced1c86aaf.html
例子
dim conn As ADODB.Connection
set conn=OpenConnForAccess("d:/test.mdb")
'连接Access数据库
strSql = "select * from b "
Dim rs As Recordset
Set rs = OpenRecordset(conn, strSql)
'返回表格b的所有记录
Set DataGrid1.DataSource = rs
'绑定DataGirl控件
'当然你还需要学习一些Sql语句的用法

热心网友 时间：2022-04-08 02:06

1.先增加引用，步骤：工程->引用 ，选择Microsoft AxtiveX Data Objects 2.5 Library

2.代码，如：

Private Sub Form_Load()
Dim uConn As ADODB.Connection
Set uConn = New ADODB.Connection

uConn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=F:\library\1.mdb"
uConn.Open
'连接成功，此处写自己的代码
End Sub

热心网友 时间：2022-04-08 03:58

你可以用ADODB控件来建立与ACCESS数据库的连接

热心网友 时间：2022-04-08 06:06

做图书管理系统，建议你试试magicflu，比access简单多了