Update definicije tabela

Update definicije tabela 20.08.2010. u 13:11 · pre 197 meseci #1

Dobar dan
da li postoji nacin da update-ujem definicije tabela kodom ili nekim drugim nacinom,odnosno npr.,da dodam nova polja na postojece tabele u bazi a da pri tome podaci u tabelama ostanu ne dirnuti.
Hvala unaprijed
POZDRAV

Re: Update definicije tabela 20.08.2010. u 13:36 · pre 197 meseci #2

Postoji. Imaš lep primer na na pr:MS Access VBA Create Field

Re: Update definicije tabela 25.08.2010. u 08:27 · pre 197 meseci #3

Prvo,hvala na odgovoru
ali da bih uradio update novih polja u tabelama trebao bih da vidm razliku polja tabela iz nove baze i tabela stare baze,a zatim tu razliku da samo da update-ujem.
Pozdrav

Re: Update definicije tabela 25.08.2010. u 14:51 · pre 197 meseci #4

Evo ovako, u primer sa linka koji sam postavio gore, dodao sam i kod koji sam izguglao

, sa http://www.access-programmers.co.uk/forums/showthread.php?t=99194, i napravio odgovarajuću tabelu i formu.

Dakle, startovanjem Forme frmApplication_Table_Field_Definitions, dobija se u tabeli Application_Table_Field_Definitions lista svih postojećih polja u ostalim tabelama, sa njihovim karakteristikama. Onda sam napravio kveri qryNadjiRazliku da uporedi razliku u poljima između tebela 1A i 2A, i njega vezao za formu frmCreate_Field, kojom se vrše potrebne izmene u tabeli 1A, odnosno dodaju po želji polja iz tabele 2A,...

Zadatak je izvršen

, ali naravno primer je daleko od idealnog rešenja. Ovo je samo pokazatelj da stvar može da se napravi, a ovde ima mnogo boljih majstora od mene, koji bi to mogli da picnu i srede da valja, samo ako budu raspoloženi

U svakom slučaju, mislim da ovaj primer može da bude i vrlo koristan.

Dopuna: Izgleda da zbog dodatnih i različitih tipova polja u Access 2007 tabelama, ovaj kod ne radi kako treba u novijim verzijama Accessa

U Accessu 2003 radi kako treba.

VBA_Create_Field_Function_SAMPLE.zip61.82k

Re: Update definicije tabela 29.08.2010. u 00:44 · pre 196 meseci #5

Neznam koliko ce ti ovo pomoci.
Mozes prenijeti polja sa tipom i velicinom.
Medjutim da bi bila identican trebalo bi cijeli proprty prepisati a to znaci jos jedna petlja u ovoj.
Naravno onda bi i vrijednosti prenio.

Code:
Function KopirajFajlove(Tabela1 As String, Tabela2 As String)
'Tabela1-tabela iz koje se kopiraju polja
'tabela2-Tabela u koju se kopiraju polja.
   Dim Db As DAO.Database
   Dim Fld1 As DAO.Field
   Dim Tdf1 As DAO.TableDef
   Dim Fld2 As DAO.Field
   Dim Tdf2 As DAO.TableDef
   Dim ImePolja As String
   Dim TipPolja As Integer
   Dim Duzina As Integer

   Set Db = CurrentDb()
   Set Tdf1 = Db.TableDefs(Tabela1)
   Set Tdf2 = Db.TableDefs(Tabela2)
   On Error Resume Next
   For Each Fld1 In Tdf1.Fields
   ImePolja = Fld1.Name
   TipPolja = Fld1.Type
   Duzina = Fld1.Size
   Set Fld2 = Tdf2.CreateField(ImePolja, TipPolja, Duzina)
   Tdf2.Fields.Append Fld2

   Next Fld1
End Function

Potpis

zxz

Forum kao aplikacija na telefonu

Srodne teme