我是一个菜鸟想做vb与access的连接，还不知道具体需要哪些操作。例如需要什么属性与什么语句。请各位指点。

Question

请说详细点，谢谢。

Answer 1

Dim Conn As ADODB.Connection
Dim Rs As ADODB.Recordset
Private Sub Form_Load()
    Set Conn = New ADODB.Connection
    Set Rs = New ADODB.Recordset
    Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb;Persist Security Info=False"
    Conn.Open
    Conn.CursorLocation = adUseClient
    Rs.Open "select * from class", Conn, adOpenKeyset, adLockOptimistic
    Set Me.DataGrid1.DataSource = Rs
End Sub

Answer 2

'access
Dim objcon As New ADODB.Connection
Dim objrs As New ADODB.Recordset
objcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\infoTable.mdb"
objrs.Open "select * from infoTable ", objcon, 3, 1
Set DataGrid1.DataSource = objrs

Answer 3

http://expert.csdn.net/Expert/topic/2719/2719985.xml?temp=.905575

Answer 4

还要用到一些数据控件：dbgrid , DATA控件,mshflexgrid.
ADO和DAO的记录集的属性：rs.movefirst  ,rs.eof ,rs.bof, rs.recordcount...

Answer 5

工程->引用->Microsoft Activex Data Objects 2.0 Library 后面为版本号Dim Conn As ADODB.Connection
Dim Rs As ADODB.Recordset
Private Sub Form_Load()
    Set Conn = New ADODB.Connection
    Set Rs = New ADODB.Recordset
    Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb;Persist Security Info=False"
    Conn.Open
    Conn.CursorLocation = adUseClient
    Rs.Open "select * from tablename", Conn, adOpenKeyset, adLockOptimistic
    Set Me.DataGrid1.DataSource = Rs
End Sub

Answer 6

Dim M_Cnn As New ADODB.Connection
Dim M_Rs As New ADODB.RecordsetPrivate Sub Command1_Click()
        Dim StrSql As String
        M_Cnn.CursorLocation = adUseClient
        CreateMdbConn M_cnn,"C:\DEMO.MDB","sa","123"
        StrSql = "select * FROM authors"
        M_Rs.CursorLocation = adUseClient
        M_Rs.Open StrSql, M_Cnn, adOpenKeyset, adLockBatchOptimistic
        Set DataGrid1.DataSource = M_Rs
        DataGrid1.Refresh
End Sub
'
'创建一个连接(连接到ACCESS)
'函数名:CreateMdbConn
'参数:  DbConnection ADODB连接,MdbPath ACCESS数据库路径,Provider JET引擎版本,UserID 登录用户名,UserWord 登录密码
'返回值:TRUE 连接成功.FALSE 连接失败.
'例:    CreateMdbConn p_cnn,"C:\DEMO.MDB","sa","123"
Public Function CreateMdbConn(ByRef DbConnection As ADODB.Connection, _
                              MdbPath As String, _
                              Optional Provider = "Microsoft.Jet.OLEDB.4.0;", _
                              Optional UserID As String = "admin", _
                              Optional UserWord As String = "") As Boolean
  Dim ConStr As String
    
  On Error Resume Next
  
  If DbConnection.State = adStateOpen And Not IsEmpty(adStateOpen) Then
     DbConnection.Close
  End If
  ConStr = "Provider=" & Provider & _
           "Data Source=" & MdbPath & ";" & _
           "Jet OLEDB:Database Password=" & UserWord & ";" & _
           "User ID=" & UserID & ";"  DbConnection.ConnectionString = ConStr
  DbConnection.Open
  DoEvents  If Err.Number = 0 Then
     CreateMdbConn = True
  Else
     Err.Clear
     CreateMdbConn = False
  End If
End Function