Code Snippet "VBA Access"

Template für Connection und Recordset in Access

Function funDB()
  Dim objCon As New ADODB.Connection
  Dim objRS As New ADODB.Recordset
  Dim strSQL As String

  'Connection und Recordset vorbereiten
  Set objCon = CurrentProject.Connection
  objRS.CursorLocation = adUseClient
  Set objRS = New ADODB.Recordset

  'SQL-String bestimmen
  strSQL = "SELECT * FROM tbl_MatchingQueries"
    
  'Recordset öffnen
  objRS.Open strSQL, objCon, adOpenDynamic, adLockOptimistic

  'Daten aus einzelnem Datensatz holen
  If Not objRS.EOF Then
    'Hier kommt Verarbeitung des Datensatzes
  End If 'objRS.EOF
      
  'Durch Recordset loopen
  Do While Not objRS.EOF
    'Hier kommt Verarbeitung der Datensätze
    'MsgBox (objRS("QueryName"))
    
    objRS.MoveNext
  Loop
  
  'Recordset und Connection abbauen
  objRS.Close
  Set objRS = Nothing
  objCon.Close
  Set objCon = Nothing

End Function