VBA操作ACCESS

Option Compare Database
Option Explicit

Sub Open_Ado_RS_Recordset()
    Dim rs As ADODB.Recordset, kfml, kfrq
    Set rs = New ADODB.Recordset
    
    rs.ActiveConnection = CurrentProject.Connection
    rs.CursorType = adOpenKeyset
    rs.LockType = adLockOptimistic
    
    rs.Open "select * from 开发;"
        
    Do While Not rs.EOF
    
        If Not IsNull(rs!开发日期) Then
             'Debug.Print rs!Id & vbTab & rs!开发目录 & vbTab & rs!开发日期
        Else
            kfml = rs!开发目录
            If Mid(kfml, 1, 1) = "V" Then
                rs!开发日期 = DateSerial(Mid(kfml, 2, 4), Mid(kfml, 6, 2), Mid(kfml, 8, 2))
            End If
        End If
        rs.MoveNext
    Loop
        
    rs.Close
    Set rs = Nothing
End Sub

Sub test()
    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    
    conn.Open CurrentProject.Connection
    Debug.Print conn.Provider
    
    conn.Close
    Set conn = Nothing
End Sub


Sub Open_Ado_Recordset()
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.Open "select * from 开发;", CurrentProject.Connection
    
    Debug.Print rs.GetString
    
    rs.Close
    Set rs = Nothing
End Sub

 

你可能感兴趣的:(VBA)