Selles õpetuses õpime, kuidas avada kirjete kogumit, loendada kirjete arvu kirjete kogumis, sirvida kirjeid, lisada kirje, värskendada kirjet, lugeda kirje väärtust ja kustutada kirje.
Meil on juurdepääsutabel nimega ProductsT, mis on näidatud allpool:
Salvestuskomplekti avamine
Kõigepealt peame looma andmebaasi, mida kavatseme kasutada, antud juhul on see praegu avatud andmebaas. Seejärel saame oma Recordset avamiseks/loomiseks kasutada meetodit CurrentDB.OpenRecordSet.
Rekordikomplekti loomiseks, mis võimaldab meil manipuleerida ProductsT tabeli andmetega, kasutaksime järgmist koodi:
| 1 | CurrentDb.OpenRecordset ("TootedT") |
Rekordite arvu lugemine VBA abil
Kui olete salvestuskomplekti loonud, tahaksite sellega tõenäoliselt midagi kasulikku teha või selles olevaid andmeid mingil viisil manipuleerida. Saate oma andmekogumis (antud juhul tabelis nimega ProductsT) olevate kirjete arvu loendada, kasutades järgmist koodi:
| 1 | MsgBox CurrentDb.OpenRecordset ("ProductsT"). RecordCount |
RecordSet -i loopimine VBA abil
Meie RecordSeti kaudu liigub järgmine kood:
| 1234567891011121314 | AlamkirjeSet_Loop ()Dim meie andmebaas andmebaasinaHämardage meieRekordikogum salvestusenaMäära meieDatabase = CurrentDbMäära meieRecordset = ourDatabase.OpenRecordset ("ProductsT")Tehke kuni meie registrisse.EOFMsgBox ourRecordset! ProductIDourRecordset.MoveNextLoopEnd Sub |
VBA programmeerimine | Koodigeneraator töötab teie jaoks!
Kirje lisamine RecordSet -i
Kasutage meetodit Recordset.AddNew, et lisada uus kirje RecordSetile:
| 1234567891011121314 | AlamkirjeSet_Add ()Koos CurrentDb.OpenRecordset ("ProductsT").Lisage uus! [TooteID] = 8! [ProductName] = "Toode HHH"! [ProductPricePerUnit] = 10! [ProductCategory] = "Mänguasjad"! [UnitsInStock] = 15.UuendaLõpetaEnd Sub |
Tulemuseks on:
Salvestuskomplekti värskendamine
Peate kasutama meetodit Recordset.AddNew või Recordset.Edit. Pärast seda avaldust peate muudatuste säilitamiseks kasutama meetodit Recordset.Update.
Väärtuste lugemine rekordist
Kirje, praeguse kirje tegemiseks peate kasutama meetodit Recordset.FindFirst. Seejärel peate kasutama Recordset.Fields, millist välja vaadata.
| 12345678910111213141516 | AlamkirjeSet_ReadValue ()Dim meie andmebaas andmebaasinaHämardage meieRekordikogum salvestusenaMäära meieDatabase = CurrentDbMäära meieRecordset = ourDatabase.OpenRecordset ("ProductsT", tüüp: = RecordsetTypeEnum.dbOpenDynaset)Meie registrikomplektiga.FindFirst "ProductName =" & "'Toote CCC'"Kui .NoMatch SiisMsgBox "Vastet ei leitud"MuiduMsgBox ourRecordset.Fields ("Tootekategooria")Lõpp KuiLõpetaEnd Sub |
Tulemuseks on:
Kas olete väsinud VBA koodinäidete otsimisest? Proovige AutoMacrot!
Kirje kustutamine kirjekomplektist
Kirje kustutamiseks kirjete hulgast peate esmalt muutma selle praeguseks kirjeks, kasutades meetodit Recordset.FindFirst. Seejärel saate selle kustutada, kasutades meetodit Recordset.Delete. Järgmine kood näitab, kuidas andmestikust kirjet 2 kustutada:
| 1234567891011121314151617181920212223 | AlamkirjeSet_DeleteRecord ()Dim meie andmebaas andmebaasinaHämardage meieRekordikogum salvestusenaMäära meieDatabase = CurrentDbMäära meieRecordset = ourDatabase.OpenRecordset ("ProductsT", tüüp: = RecordsetTypeEnum.dbOpenDynaset)Meie registrikomplektiga.FindFirst "ProductName =" & "'Toote BBB'"Kui .NoMatch SiisMsgBox "Vastet ei leitud"MuiduourRecordset.DeleteLõpp KuiLõpeta'Ava laud uuestiDoCmd.Sulge tabel, "ProductsT"DoCmd.OpenTable "ProductsT"End Sub |
Tulemuseks on:
