vb 6.0 如何连接access accdb 数据库呢？

首先要在工程的引用中选上Microsoft ActiveX Data Objects 2.5 Library

然后在事件中就可以定义相关的变量进行连接了

下面的例子可能对您有用：

Private Sub Command1_Click()

Dim Conn As New ADODB.Connection

Dim Rs As New ADODB.Recordset

Conn.Open connstring ="Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &“数据库的路径和名字” &"Persist Security Info=TrueJet OLEDB:Database Password= &"数据库密码"

sql = "Select * From “ &”表名" &where ID=20"

Rs.Open sql, Conn, 1, 3

If NOT rs.eof then

m_date= rs("日期型字段的名字")

m_data= rs("数值型字段的名字")

end if

上面的例子实现了查询

如果是要添加,删除,更新等 *** 作,只要编写相应的SQL语句,再用

Conn.Execute SQL 就可以了,如:

添加的:

SQL="Insert Into [UserInfo](User,Password) Values('aaaa','1234')"

Conn.Execute SQL '执行后,就添加了一条记录

删除:

SQL="Delete From [UserInfo] Where User='aaaa'"

Conn.Execute SQL '删除用户名为aaaa的用户记录

更新:

SQL="Update [UserInfo] Set Password='abcdefg' Where User='aaaa'"

Conn.Execute SQL '执行后,修改用户aaaa的密码为abcdefg

以上只是示例,在实际使用过程中,可以将一些内容用控件输入等方式进行,这样就有很大的灵活性了

Access2010accdb数据库是这样子连的：

<%

Dim connstr

connstr="provider=microsoft.ACE.oledb.12.0data source=" &server.MapPath("bb.accdb")

Set conn = Server.Createobject("ADODB.Connection")

conn.Open connstr

%>

---