[es] - Update definicije tabela

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
*.teol.net.

Profil

^{20.08.2010. u 12:11 - pre 178 meseci}

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

Odgovor na temu

smal
Slobodan Maljković
Kragujevac, Srbija

Član broj: 228672
Poruke: 286
*.dynamic.sbb.rs.

+13 Profil

Re: Update definicije tabela

^{20.08.2010. u 12:36 - pre 178 meseci}

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

Odgovor na temu

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
*.teol.net.

Profil

Re: Update definicije tabela

^{25.08.2010. u 07:27 - pre 178 meseci}

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

Odgovor na temu

smal
Slobodan Maljković
Kragujevac, Srbija

Član broj: 228672
Poruke: 286
*.dynamic.isp.telekom.rs.

+13 Profil

Re: Update definicije tabela

^{25.08.2010. u 13:51 - pre 178 meseci}

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.

_{[Ovu poruku je menjao smal dana 25.08.2010. u 15:55 GMT+1]}

Prikačeni fajlovi

VBA_Create_Field_Function_SAMPLE.zip - 61.82k

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
92.36.140.*

Sajt: www.icentar.ba

+2 Profil

Re: Update definicije tabela

^{28.08.2010. u 23:44 - pre 178 meseci}

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

zxz

Odgovor na temu