Käytä VBA SQL -esimerkkejä

Tämä opetusohjelma sisältää esimerkkejä SQL: n käytöstä VBA Accessin kanssa. Kuten alla näet, voit käyttää SQL -kyselyitä Accessissa VBA: n kanssa käyttämällä joko DoCmd.RunSQL tai CurrentDb.Toteuta menetelmiä.

SQL Valitse

Tämä esimerkki käyttää SQL Select -käskyä tietuejoukon avaamiseen:

Dim rs tietuejoukkona rs = CurrentDb.OpenRecordset ("valitse * taulukosta 1, jossa numero = 0", dbOpenDynaset)

SQL -päivitystaulukko

Tämä VBA -koodirivi päivittää taulukon DoCmd.RunSQL -menetelmällä:

DoCmd.RunSQL ("UPDATE table1 SET num = 0 jossa num = 999")

Tai voit käyttää tietokantaobjektin .Execute -menetelmää:

CurrentDb.Ezeote "UPDATE table1 SET num = 0 jossa num = 999"

SQL -taulukko

Tämä VBA -koodirivi käyttää DoCmd.RunSQL: ää taulukon muuttamiseen:

DoCmd.RunSQL ("ALTER TABLE Table3 ADD COLUMN Palkkaraha")

Tai tietokantaobjektin .Execute -menetelmällä:

CurrentDb.Ezeote "ALTER TABLE Table3 ADD COLUMN Palkkarahat"

Pudota taulukko

Tämä VBA -koodirivi käyttää DoCmd.RunSQL: ää taulukon muuttamiseen:

DoCmd.RunSQL ("DROP Table Table1")

Tai tietokantaobjektin .Execute -menetelmällä:

CurrentDb.Ezeote "DROP Table Table1"

SQL Poista

Tämä koodi käyttää DoCmd.RunSQL -tiedostoa tietueiden poistamiseen taulukosta:

DoCmd.RunSQL ("POISTA taulukosta1, jossa numero = 999")

Tai tietokantaobjektin .Execute -menetelmällä:

CurrentDb.Ezeote "DELETE FROM table1 where number = 999"

SQL Insert Into

Tämä DoCmd.RunSQL -ilmentymä lisää tietueet taulukkoon:

DoCmd.RunSQL ("INSERT INTO Table1 (Sukunimi, syntymäaika, numero) ARVOT ('L1',#01/01/2001#, 78)")

Tai tietokantaobjektin .Execute -menetelmällä:

CurrentDb.Ezeute "INSERT INTO Table1 (Sukunimi, syntymäaika, numero) ARVOT ('L1',#01/01/2001#, 78)"

SQL Luo taulukko

Tämä koodi luo taulukon SQL: llä:

CurrentDb.Ezeote "CREATE TABLE Table1 (KeyID COUNTER CONSTRAINT PrimaryKey PRIMARY KEY, Field1 TEXT, Field2 TEXT)"

Tai tietokantaobjektin .Execute -menetelmällä:

CurrentDb.Ezeote "CREATE TABLE Table1 (KeyID COUNTER CONSTRAINT PrimaryKey PRIMARY KEY, Field1 TEXT, Field2 TEXT)"

Luo hakemisto

Tämä VBA -koodirivi käyttää DoCmd.RunSQL: ää taulukon muuttamiseen:

DoCmd.RunSQL ("CREATE INDEX" & IndexName & "ON" & TableName & "(" & ColumnName & ");")

Tai tietokantaobjektin .Execute -menetelmällä:

CurrentDb.Toteuta "CREATE INDEX" & IndexName & "ON" & TableName & "(" & ColumnName & ");"

Pudotusindeksi

Tämä VBA -koodirivi käyttää DoCmd.RunSQL: ää taulukon muuttamiseen:

DoCmd.RunSQL "DROP INDEX ID ON Table1;"

Tai tietokantaobjektin .Execute -menetelmällä:

CurrentDb.Ezeute "DROP INDEX ID ON Table1;"

Luo tietokanta

Tämä koodi luo tietokannan (ei SQL):

Access.DBEngine.CreateDatabase "c: \ Temp \ testDB1.accdb", DB_LANG_GENERAL

SQL -kyselyt

Avaa kysely

Voit avata tallennetun kyselyn DoCmd.OpenQueryn avulla:

DoCmd.OpenQuery "qry_1", acViewNormal, acEdit

Suorita kysely

CurrentDB.Execute suorittaa kyselyn:

CurrentDb.Toteuta "qry_1", dbFailOnError

Vie kysely Exceliin

DoCmd.OutputTo vie kyselyn Exceliin:

DoCmd.OutputTo acOutputQuery, "Query1", acFormatXLS, "c: \ temp \ ExportedQuery.xls"