如何使用ADO函数与ACCESS连接？（在线等待）

Question

1.数据库连接
dim strProvider as string
dim adoCnn as adodb.connectionstrProvider="provider=microsoft.jet.oledb.4.0; data source=" & "ACCESS数据库名"
adoCnn.open strProvider2.在ACCESS中有一项是"工具/安全/设置数据库密码"3.我也没试过能存多少条4.我只回答过问题,没给过分

Answer 1

Dim m_str As String, connstr As String, connstr1 As String
   Set conn = New ADODB.Connection
With m_conn_info
mainBegin:
  connstr = "Driver={Microsoft Access Driver (*.mdb)};SERVER=" & Trim$(.sys_name) & _
  ";dbq=" & Trim$(.data_name) & "; Uid=;pwd="
       
     conn.ConnectionString = connstr
     conn.ConnectionTimeout = 5
     If conn.State = 1 Then conn.Close
     conn.Open
   connstr1 = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;" _
        & "User ID=;Initial Catalog=" _
        & Trim$(.data_name) & ";Data Source=" & Trim$(.sys_name) _
        & ";password="

Answer 2

连接ACCESS数据库，如果ACCESS是97使用Provider=Microsoft.Jet.OLEDB.3.51
ACCESS是2000使用Provider=Microsoft.Jet.OLEDB.4.0
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库文件;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Encrypt Database=True"

Answer 3

建立或 改Access 密码
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q304319

Answer 4

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库文件;Mode=ReadWrite;user="sa";password="sa";Jet OLEDB:Encrypt Database=True"
用user和password这两个字符串设置用户和密码

Answer 5

Dim m_str As String, connstr As String, connstr1 As String
   Set conn = New ADODB.Connection
With m_conn_info
mainBegin:
  connstr = "Driver={Microsoft Access Driver (*.mdb)};SERVER=" & Trim$(.sys_name) & _
  ";dbq=" & Trim$(.data_name) & "; Uid=;pwd="
       
     conn.ConnectionString = connstr
     conn.ConnectionTimeout = 5
     If conn.State = 1 Then conn.Close
     conn.Open
   connstr1 = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;" _
        & "User ID=;Initial Catalog=" _
        & Trim$(.data_name) & ";Data Source=" & Trim$(.sys_name) _
        & ";password="

Answer 6

使用vb的数据向导不就ok了嘛，想生成什么连接串都可以