access vb 怎样连接？

Question

各位高手可以介绍一下经验么？推荐几本书也可以阿。

Answer 1

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\Test.mdb;Jet OLEDB:DataBase password=12345;"

Answer 2

用ADODB控件来自动生成连接字符串.

Answer 3

例子： http://221.8.30.109/vb/data.zip
http://message.csdn.net/SendMessage.aspx?To=sunxl
__有什么问题给我发消息吧，请注明帖子的网址。___

Answer 4

关于此主题请参考：
    关于jet db的连接字串，以及加密后的字串《ADO/DAO》
    http://access911.net/index.asp?u1=a&u2=72FABF1E10DC

Answer 5

'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
    On Error GoTo err
    Dim cn As New ADODB.Connection, rs1 As New ADODB.Recordset, rs2 As New ADODB.Recordset, rs3 As New ADODB.Recordset
    '有密码的连接方式
    'cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;Jet OLEDB:DataBase password=12345;"
    '无密码的连接方式
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Test.mdb;Persist Security Info=False"
    cn.Open
    rs1.Open "select * from 表1", cn, 3, 2
    Set DataGrid1.DataSource = rs1
    rs2.Open "select 字段1,字段2,字段3 from 表2", cn, 3, 2
    Set DataGrid2.DataSource = rs2
    Exit Sub
err:
    MsgBox err.Description
End Sub