DAO  für Microsoft® Access 

Vorbereitung

In Verweisen DAO 3.6 einstellen. Eventuell geht auch ACEDAO, das schon voreingestellt ist.

Module 1

Option Compare Database
Sub Main()
  Dim db As DAO.Database
  Set db = CurrentDb
  Dim rs As Recordset
  Set rs = db.OpenRecordset( "table", dbOpenDynaset )
  rs.FindFirst "[name] = 'text'"
  Do Until rs.NoMatch
    Debug.Print rs.Fields( "Rufnummer" )
    Debug.Print rs( "Rufnummer" )
    Debug.Print rs!Rufnummer
    rst.FindNext "[name] = 'text'"
    Loop
  rs.Close
  Set rs = Nothing
End Sub

Option Compare Database

Festlegung zur Sortierreihenfolge

Set rs = db.OpenRecordset( "table", dbOpenDynaset )Set rs = db.OpenRecordset( "SELECT [DISTINCT] fields FROM table WHERE criteria ORDER BY fields [DESC]", dbOpenDynaset )Do Until rs.EOF ' .BOFrs.MoveFirst ' MoveNext, MovePrevious, MoveLast, Move ±nrs.FindFirst ' FindNext, FindPrevious, FindLast

Bearbeiten

With rs
  .Edit
  .Fields("name").Value = "Mueller"
  .Update
End With

Einfügen

With rs
  .AddNew
  .Fields("name").Value = "Mueller"
  .Update
End With

Löschen

With rs
  .Edit
  .Delete
  .Update
End With

XML-Export

rs.Save path, adPersistXML