vb连接ACCESS数据库实例

对于没有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.0Data Source=F:\library\1.mdbJet OLEDB:Database Password=" strSQL = "SELECT * FROM 数据库中的表" rs.Open strSQL, conn, 3, 3 至此数据库已经链接成功，并且已经加载了记录集，下面你就可以进行数据 *** 作了，注意，在数据库 *** 作完成后，千万别忘记关闭记录集和数据库链接对象： rs.Close conn.Close

用ADO法（要先引用）

连接：

Dim cn As ADODB.Connection

Set cn=New ADODB.Connection '上两句为声明创建ADO变量（下同）

cn.open "PROVIDER=Microsoft.Jet.OLEDB.4.0Data Source=X" 'X为数据库路径(加文件名)

cn.Close '关闭数据库

Set cn=Nothing ‘释放数据

读取：

Dim rs As ADODB.RecordSet

Set rs=New ADODB.RecordSet

rs.Open "select * from X1", cn,X2,X3 'X1为表名，cn就是上面连接的cn（下同），X2为数据库游标类型，X3为数据库锁方式（读取方式）

Do While Not rs.EOF

XXXXX '读取数据至程序的代码，自编

rs.MoveNext ’移动到下一条记录

Loop

……

……

…… '关闭…，释放…

Set rs=Nothing

Set cn=Nothing

剩下的网上搜，大把

简单代码实现：：

<%

dim conn '定义变量 conn

Set Conn = Server.CreateObject("ADODB.Connection") '建立连接对象

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &Server.MapPath("库的名字.mdb") '打开库

dim rs,sql

set rs=server.CreateObject("adodb.recordset") '建立记录对象

sql="select * from 表的名字"

rs.open sql,conn,3,2 '打开表

rs.addnew

rs("表中数据类型的名字")=request.Form("表单的名字")

rs("表中数据类型的名字")=request.Form("表单的名字")

rs.update

rs.close

set rs=nothing '关闭表

conn.close

set conn=nothing '关闭库

%>

蒙狼建站---您互联网的“诚信”合作伙伴！

---