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:\Baze\Imenik.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.