Recordset este o clasă VBA care vă permite să deschideți tabele sau să rulați interogări din cod. Cu ajutorul lui Recordset putem gestiona valorile din câmpurile din tabel (interogare), obținem numărul de rânduri din tabel (sau interogare), umplem tabelele programelor și multe altele.
Pentru a lucra cu Recordset, dacă lucrăm cu o masă, declarăm:
Const AnotherDBpath = "C: \ Program Files \ Microsoft Office \ Office \ Probele"
Dim mydb ca baza de date "
Dim rst Ca tabel de baze de date Recordset
Setați mydb = CurrentDb () "specificați baza de date curentă sau calea către o altă bază de date
Setați rst = mydb.OpenRecordset ("TableName") "deschideți tabelul, obțineți un Recordset cu rezultatele
Pentru a lucra cu Recordset, dacă lucrăm cu cererea, declarăm:
Const AnotherDBpath = "C: \ Program Files \ Microsoft Office \ Office \ Probele"
Dim mydb ca baza de date "
Dim qry Ca interogare bază de date QueryDef
Dimit ca Recordet Recordset - clasa prin care vom executa interogarea
Setați mydb = CurrentDb () "specificați baza de date curentă sau calea către o altă bază de date
Setați qry = mydb.QueryDefs ("QueryName") 'QueryName - numele interogării
'dacă există parametri în interogare:
'ParameterName este numele parametrului din interogare
'ParameterValue - valoarea parametrului
'dacă există criterii dinamice în interogare:
Setați rst = qry.OpenRecordset "executați interogarea, obțineți un Recordset cu rezultatele
Dacă rst.EOF = False Then '= dacă există înregistrări în Recordset
"EOF - sfârșitul dosarului
'BOF - Începutul fișierului
'EOF = True sau BOF = False înseamnă că Recordset-ul este gol (nu există intrări)
rst.MoveFirst "mergeți la prima înregistrare a înregistrării
rst.MoveLast "mergeți la ultima înregistrare a înregistrării
rst.Add "adăugați o intrare în setul de înregistrări
rn! FieldName = 1 'umple câmpul RecordNumber FieldName cu date (= 1)
rst.Update 'pentru a actualiza înregistrarea
Articole similare
Trimiteți-le prietenilor: