Access – Kreiranje tabela uz pomoć VBA koda

U Access-u postoji mnogo načina da kreirate tabele i upite. Naravno, najjednostavniji je preko Database prozora, a nešto složeniji način je uz pomoć VBA programskog koda. I u jednom i u drugom slučaju samo vi kao dizajner baze podataka možete da kreirate novu tabelu ili upit. Postavlja se pitanje kako omogućiti korisnicima baze podataka/programa da kreiraju novu tabelu? U ovom slučaju jedino rešenje je programski kod kojim ćete korisnicima obezbediti mogućnost kreiranja novih tabela i upita.

Za kreiranje nove tabele u pomoć nam priskače SQL i njegova instrukcija CREATE TABLE. U sledećem jednostavnom primeru videćemo kako se kreira jedna nova tabela:

 Sub KreirajTabelu()

      Dim Table As New Table

      Dim Catalog As New ADOX.Catalog

      Dim Key As New ADOX.Key

      Catalog.ActiveConnection =

      "Provider=Microsoft.Jet.OLEDB.4.0;

      Data Source=C:BazeImenik.mdb"

 Table.Name = "KONTAKTI"

Table.ParentCatalog = Catalog

Table.Columns.Append "SIFRA", adInteger

Table.Columns("SIFRA").

Properties( AutoIncrement ) = True

Table.Columns.Append "IME", adVarWChar, 20

Table.Columns.Append "PREZIME", adVarWChar, 20

Table.Columns.Append "TELEFON", adVarWChar, 36

Catalog.Tables.Append Table

Key.Name = "SIFRA"

Key.Type = adKeyPrimary

Key.Columns.Append "SIFRA"

Catalog.Tables("KONTAKTI").

Keys.Append Key, kyPrimary

Set Catalog.ActiveConnection = Nothing

End Sub

Ovim programskim kodom definisali smo proceduru „Kreiraj tabelu()“, koja vam na prvi pogled izgleda komplikovano, ali to i nije baš tako. Prve četiri linije koda služe za deklarisanje potrebnih varijabli. ADOX predstavlja ActiveX objekat koji je definisan od strane programera, a da biste ga uopšte mogli koristiti, moraćete da ga referencirate preko izbora menija „Tools> References…“ i potvrđivanja polja sa ActiveX bibliotekom – „Microsoft ActiveX Data Objects XX Library“. Nakon toga, kreiramo konekciju ka željenoj bazi podataka u kojoj ćemo kreirati novu tabelu. Potom određujemo sve osobine buduće tabele, od samog naziva (Name) do navođenja svih polja u tabeli sa karakteristikama. Iza toga, instrukcijom „Catalog.Tables.Append Table“ izvršavamo kreiranje. Na red dolazi i kreiranje primarnog ključa i upis ključa u tabelu. Ovim smo završili kreiranje nove tabele, te nam ostaje samo da oslobodimo sve resurse, tj. prekinemo aktivnu konekciju.

Pratite Krstaricu i preko mobilne aplikacije za Android i iPhone.