Šioje pamokoje sužinosite, kaip atidaryti ir vykdyti užklausas VBA.
Mes sukūrėme lentelę, pavadintą „ProductsT“, ir paprastą pasirinkimo užklausą, kuri iš lentelės pasirenka produktų kategoriją, kurioje produkto pavadinimas yra „Product BBB“.
Užklausos atidarymas naudojant VBA
Galite naudoti DoCmD.OpenQuery metodą, kad atidarytumėte/peržiūrėtumėte savo sukurtą užklausą. Šis kodas atvers užklausą „QueryOne“:
„DoCmd.OpenQuery“ „QueryOne“
Rezultatas yra toks:
„DoCmd.OpenQuery“ metodo sintaksė yra tokia:
DoCmd.OpenQuery (QueryName, Peržiūrėti, DataMode) kur:
| Parametras | apibūdinimas |
|---|---|
| QueryName | Duomenų bazėje esančios užklausos, kurią norite atidaryti/peržiūrėti, pavadinimas. |
| Peržiūrėti | Rodinys, kuriame norite atidaryti užklausą. Tai gali būti acViewDesign, acViewLayout, acViewNormal, acViewPivotChart, acViewPivotTable, acViewPreview arba acViewReport. Numatytasis yra „acViewNormal“. (Neprivaloma) |
| DataMode | Duomenų įvedimo režimas, kuriame norite atidaryti užklausą. Tai gali būti „acAdd“, „acEdit“ arba „acReadOnly“. Numatytasis yra „acEdit“. (Neprivaloma) |
Veiksmų užklausų vykdymas naudojant VBA
Galite naudoti DoCmd.RunSQL metodą, kad paleistumėte veiksmų užklausas, pvz., Atnaujinimo užklausas, pridėkite užklausas, ištrintumėte užklausas ir atliktumėte lentelės užklausas. Šis kodas prideda įrašą prie lentelės:
DoCmd.RunSQL "Įterpti INTO ProductsT ([ProductID], [ProductName], [ProductCategory], [ProductPricePerUnit]) VERTĖS (6, 'Product FFF', 'Toys', 10);"
„DoCmd.RunSQL“ metodo sintaksė yra tokia:
„DoCmd.RunSQL SQLStatement“, kur:
SQLStatement - būtinas ir yra SQL pareiškimas, kuris atnaujina įrašus, prideda įrašus, ištrina įrašus arba sukuria naują lentelę.
Pastaba: „DoCmd.RunSQL“ veikia tik su tam tikrais SQL teiginiais.
