[Access, VBA] Recordset durchlaufen (ADO, DAO)
Gepostet am: Jun 15, 2013 6:44:43 PM
Data Access Objects (DAO)
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:
ActiveX Data Objects (ADO)
ActiveX Data Objects (ADO)