Tässä opetusohjelmassa opimme avaamaan tietuejoukon, laskemaan tietueiden määrän tietueissa, kiertämään tietuejoukkoa, lisäämään tietueen, päivittämään tietueen, lukemaan arvon tietueesta ja poistamaan tietueen.
Meillä on alla oleva AccessT -taulukko nimeltä ProductsT:
Tietuejoukon avaaminen
Meidän on ensin luotava tietokanta, jota aiomme käyttää, tässä tapauksessa se on tällä hetkellä avattu tietokanta. Voimme sitten käyttää CurrentDB.OpenRecordSet -menetelmää avaamaan/luomaan tietueemme.
Luodaksemme tietuejoukon, jonka avulla voimme käsitellä ProductsT -taulukon tietoja, käytämme seuraavaa koodia:
| 1 | CurrentDb.OpenRecordset ("TuotteetT") |
Tietueiden määrän laskeminen VBA: n avulla
Kun olet luonut tietuejoukon, haluat todennäköisesti tehdä jotain hyödyllistä sen kanssa tai manipuloida siinä olevia tietoja jollakin tavalla. Voit laskea tietojoukon tietueiden määrän (tässä tapauksessa ProductsT -taulukon) käyttämällä seuraavaa koodia:
| 1 | MsgBox CurrentDb.OpenRecordset ("ProductsT"). RecordCount |
RecordSet -sarjan selaaminen VBA: n avulla
Seuraava koodi kulkee RecordSetin kautta:
| 1234567891011121314 | AlatietueSet_Loop ()Dim meidän tietokanta tietokannanaHimmennä tallennusrekisterimme tietueenaAseta ourDatabase = CurrentDbAseta ourRecordset = ourDatabase.OpenRecordset ("ProductsT")Tee kunnes OurRecordset.EOFMsgBox ourRecordset! ProductIDourRecordset.MoveNextSilmukkaEnd Sub |
Tietueen lisääminen RecordSetiin
Lisää uusi tietue RecordSetiin Recordset.AddNew -menetelmällä:
| 1234567891011121314 | AlatietueSet_Add ()CurrentDb.OpenRecordset ("ProductsT").Lisää uusi! [ProductID] = 8! [ProductName] = "Tuote HHH"! [ProductPricePerUnit] = 10! [ProductCategory] = "Lelut"! [UnitsInStock] = 15.PäivittääLopetaEnd Sub |
Tulos on:
Tietuejoukon päivittäminen
Sinun on käytettävä Recordset.AddNew- tai Recordset.Edit -menetelmää. Tämän lausunnon jälkeen sinun on käytettävä Recordset.Update -menetelmää, jotta muutokset voidaan säilyttää.
Arvojen lukeminen tietueesta
Sinun on käytettävä Recordset.FindFirst -menetelmää tietueen, nykyisen tietueen, luomiseen. Tällöin sinun on käytettävä Recordset.Fields -kenttää, jota haluat tarkastella.
| 12345678910111213141516 | Sub RecordSet_ReadValue ()Dim meidän tietokanta tietokannanaHimmennä tallennusrekisterimme tietueenaAseta ourDatabase = CurrentDbAseta ourRecordset = ourDatabase.OpenRecordset ("ProductsT", tyyppi: = RecordsetTypeEnum.dbOpenDynaset)Meidän Recordset.FindFirst "ProductName =" & "'Product CCC'"Jos .Ei ottelua sittenMsgBox "Ei osumaa"MuuMsgBox ourRecordset.Fields ("ProductCategory")Loppu JosLopetaEnd Sub |
Tulos on:
Tietueen poistaminen tietuejoukosta
Jos haluat poistaa tietueen tietuejoukosta, sinun on ensin tehtävä siitä nykyinen tietue Recordset.FindFirst -menetelmällä. Voit poistaa sen Recordset.Delete -menetelmällä. Seuraava koodi näyttää tietueen 2 poistamisen tietojoukosta:
| 1234567891011121314151617181920212223 | AlatietueSet_DeleteRecord ()Dim meidän tietokanta tietokannanaHimmennä tallennusrekisterimme tietueenaAseta ourDatabase = CurrentDbAseta ourRecordset = ourDatabase.OpenRecordset ("ProductsT", tyyppi: = RecordsetTypeEnum.dbOpenDynaset)Meidän Recordset.FindFirst "ProductName =" & "'Product BBB'"Jos .Ei ottelua sittenMsgBox "Ei osumaa"MuuourRecordset.DeleteLoppu JosLopeta'Avaa pöytä uudelleenDoCmd.Close acTable, "ProductsT"DoCmd.OpenTable "ProductsT"End Sub |
Tulos on:
