[Access, VBA] Recordset durchlaufen (ADO, DAO)

Gepostet am: Jun 15, 2013 6:44:43 PM

Data Access Objects (DAO)

Recordset durchlaufen mit DAO

Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("Select * from Haupttabelle", dbOpenSnapshot)If rs.EOF Then Exit SubWith rs     Do Until .EOF         .Edit 'falls man das Element bearbeiten möchte         ![Feldname] = "...."         .Update 'falls man das Element bearbeiten möchte         .MoveNext 'um ein Element weiter zu gelangen     LoopEnd With rs.Close db.CloseSet rs = NothingSet db = Nothing

siehe auch:

• How to: Move Through a DAO Recordset

ActiveX Data Objects (ADO)