Šajā apmācībā jūs uzzināsit, kā atvērt un palaist vaicājumus VBA.
Mēs esam izveidojuši tabulu ar nosaukumu ProductsT un vienkāršu atlases vaicājumu, kas no tabulas izvēlas produktu kategoriju, kurā produkta nosaukums ir Produkts BBB.
Vaicājuma atvēršana ar VBA
Varat izmantot DoCmD.OpenQuery metodi, lai atvērtu/skatītu izveidoto vaicājumu. Šis kods atvērs vaicājumu ar nosaukumu QueryOne:
DoCmd.OpenQuery "QueryOne"
Rezultāts ir šāds:
Metodes DoCmd.OpenQuery sintakse ir šāda:
DoCmd.OpenQuery (QueryName, Skatīt, DataMode) kur:
| Parametrs | Apraksts |
|---|---|
| QueryName | Datubāzē esoša vaicājuma nosaukums, kuru vēlaties atvērt/skatīt. |
| Skatīt | Skats, kurā vēlaties atvērt vaicājumu. Tas var būt acViewDesign, acViewLayout, acViewNormal, acViewPivotChart, acViewPivotTable, acViewPreview vai acViewReport. Noklusējums ir acViewNormal. (Neobligāti) |
| DataMode | Datu ievades režīms, kurā vēlaties atvērt vaicājumu. Tas var būt acAdd, acEdit vai acReadOnly. Noklusējums ir acEdit. (Neobligāti) |
Darbības vaicājumu izpilde ar VBA
Jūs varat izmantot DoCmd.RunSQL metodi, lai palaistu darbības vaicājumus, piemēram, atjaunināšanas vaicājumus, pievienotos vaicājumus, dzēstu vaicājumus un izveidotu tabulas vaicājumus. Šāds kods pievieno tabulai ierakstu:
DoCmd.RunSQL "Ievietot INTO ProductsT ([ProductID], [ProductName], [ProductCategory], [ProductPricePerUnit]) VĒRTĪBAS (6, 'Product FFF', 'Toys', 10);"
DoCmd.RunSQL metodes sintakse ir šāda:
DoCmd.RunSQL SQLStatement kur:
SQLStatement - obligāts un ir SQL paziņojums, kas atjaunina ierakstus, pievieno ierakstus, dzēš ierakstus vai izveido jaunu tabulu.
Piezīme: DoCmd.RunSQL darbojas tikai ar noteiktiem SQL paziņojumiem.
