[es] - Dodavanje kolona u Access-u

vujkev
Beograd

Član broj: 8072
Poruke: 1347
*.telekom.yu.

+104 Profil

^{07.11.2005. u 11:40 - pre 224 meseci}

Treba da dodam kolonu u Accessu, ali tako da imam i default vrednost u toj koloni (0). Pokušao sam sa raznim kombinacijama ove komande

Code:

Alter Table Table1 add column NovaKolona numeric default 0

ali naravno bez uspeha. Tražio sam i po netu i po njima ovaj kod je ispravan za SQL server. Kako to isto uraditi u Access-u

Naučio sam...
Da je važnije biti ljubazan nego biti u pravu

Odgovor na temu

banem
Kikinda

Član broj: 16619
Poruke: 583
*.nis-gas.com.

+15 Profil

Re: Dodavanje kolona u Access-u

^{07.11.2005. u 12:39 - pre 224 meseci}

Mislim da ti treba i db.Execute, nešto nalik ovome:

Dim db As DAO.Database
Set db = CurrentDb
db.Execute "ALTER TABLE MyTable ADD COLUMN MyField NUMERIC DEFAULT 0;"

_{[Ovu poruku je menjao banem dana 07.11.2005. u 13:40 GMT+1]}

Pozdrav,
Branislav

Odgovor na temu

vujkev
Beograd

Član broj: 8072
Poruke: 1347
*.telekom.yu.

+104 Profil

Re: Dodavanje kolona u Access-u

^{07.11.2005. u 12:44 - pre 224 meseci}

znam da mi treba neka veza sa accessom i to nije problem (nisam početnik u radu sa bazama), nego mi treba sql naredba za dodavanje kolone.

Ova naredba koju si ti postavio ne radi ni u samom access-u

Citat:

Sintax error in ALTER TABLE statement

i selektuje mi "0" (nulu)

Naučio sam...
Da je važnije biti ljubazan nego biti u pravu

Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: Dodavanje kolona u Access-u

^{07.11.2005. u 13:49 - pre 224 meseci}

Ne znam napamet kako bi islo sa sql statementima, ali mozes koristiti DAO. Imas table i field objekte, kreiras novi field CreateField metodom, i onda mozes setovati DefaultValue property. Sve u svemu par linija koda.

Blue Man Group

Odgovor na temu

banem
Kikinda

Član broj: 16619
Poruke: 583
*.smin.sezampro.yu.

+15 Profil

Re: Dodavanje kolona u Access-u

^{07.11.2005. u 19:59 - pre 224 meseci}

Zar se DefaultValue ne odnosi _samo_ na novi zapis?

Ako prijavljuje onu grešku sa DefaultValue, izbaci taj deo pa napravi jedan Update upit gde će uslov biti IIf(IsNull(MyField);0;MyField). Dakle prvo kreiraš kolonu i onda sa SQL "protrčiš" kroz nju i izmeniš sve IsNull vrednosti sa 0.

Pozdrav,
Branislav

Odgovor na temu

vujkev
Beograd

Član broj: 8072
Poruke: 1347
*.bg.wifi.vline.verat.net.

+104 Profil

Re: Dodavanje kolona u Access-u

^{07.11.2005. u 20:23 - pre 224 meseci}

@mladenovicz

Znam za to i koristim ga već u programu, ali hteo sam da uradim preko jedne SQL komande i onda me iznervirao što ne radi i morao sam da pitam kako se radi.

@banem

nije problem za recorde koji postoje, ali šta je sa rekordima koji će tek biti dodati. Onda bih morao da prepravljam aplikaciju da upisuje "0" u to polje, a to mi se bas ne radi

Naučio sam...
Da je važnije biti ljubazan nego biti u pravu

Odgovor na temu

banem
Kikinda

Član broj: 16619
Poruke: 583
*.nis-gas.com.

+15 Profil

Re: Dodavanje kolona u Access-u

^{08.11.2005. u 07:22 - pre 224 meseci}

db.Execute "ALTER TABLE MyTable ADD COLUMN MyField NUMERIC SET DEFAULT '0';"

Obrati pažnju na iskaz SET. Za apostrofe oko nule nisam siguran, proveri.

_{[Ovu poruku je menjao banem dana 08.11.2005. u 08:29 GMT+1]}

Pozdrav,
Branislav

Odgovor na temu

vujkev
Beograd

Član broj: 8072
Poruke: 1347
*.telekom.yu.

+104 Profil

Re: Dodavanje kolona u Access-u

^{08.11.2005. u 08:30 - pre 224 meseci}

Da probao sam i to ali prijavljuje grešku kod DEFAULT reči

Naučio sam...
Da je važnije biti ljubazan nego biti u pravu

Odgovor na temu

banem
Kikinda

Član broj: 16619
Poruke: 583
*.nis-gas.com.

+15 Profil

Re: Dodavanje kolona u Access-u

^{08.11.2005. u 11:29 - pre 224 meseci}

Veoma interesantan problem, ali rešenje uvek postoji. :)

Kod Accessa u raznim verzijama su ljudi prijavljivali različite probleme u zavisnosti od verzije. U A97 DEFAULT je nemoguć, kod A2000 je (tako kažu) nekad radi kada naziv tabele ogradiš sa [], nekada kada postaviš apostrofe na vrednost, a nekada kada ukloniš tačka-zarez (;) na kraju izraza.

Međutim, postoji drugi način da ne moraš da misliš o verziji. Ovo *sigurno* radi:

Code:

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field

Set db = CurrentDb

db.Execute "ALTER TABLE [NazivTabele] ADD COLUMN NazivPolja NUMERIC"
Set tdf = db.TableDefs("NazivTabele")
Set fld = tdf.Fields("NazivPolja")
fld.DefaultValue = "0"

Za slučaj da imaš opet grešku (ali ne verujem) idi u Tools/Options/ Tables/Queries i uključi polje "This Database" opcije SQL Server Compatibility Syntax (ANSI 92). Meni u Acc2000 radi na oba načina i kada je uključeno i kada je isključeno.

PS. E, da, u VBA prozoru Tools/References mora biti uključeno "Microsoft DAO 3.6 Object Library.

_{[Ovu poruku je menjao banem dana 08.11.2005. u 12:31 GMT+1]}

Pozdrav,
Branislav

Odgovor na temu

vujkev
Beograd

Član broj: 8072
Poruke: 1347
*.telekom.yu.

+104 Profil

Re: Dodavanje kolona u Access-u

^{08.11.2005. u 11:46 - pre 224 meseci}

Hvala što si se toliko potrudio, ali kao što rekoh mladenovicz-u

taj način znam nego sam hteo sve preko jedne SQL komande. No nije bitno rešiću ga ovako jer kao što reče *sigurno* radi

Pozdrav

Naučio sam...
Da je važnije biti ljubazan nego biti u pravu

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
195.29.146.*

+8 Profil

Re: Dodavanje kolona u Access-u

^{08.11.2005. u 12:39 - pre 224 meseci}

Dosta davno sam to radio . pa ti saljem dio koda.
Tablica je bila na formi u gridu i dodavao sam u tu tablicu novo polje
u koje sam zbrajao sumu neke odabrane kolone

Application.SetOption "Default Field Type", 2
DoCmd.RunCommand acCmdInsertTableColumn
Set ctlCurrentControl = Screen.ActiveControl
novop = ctlCurrentControl.Name
, novop je nastalo novo polje poslije komande accmdinsert........

DoCmd.SetWarnings True

' tu sam ja zbrajao rezultate i upisivao u novo polje

defpolj = tekuce + "+" + baznopolje

noviid = "UPDATE " + tabla + " set " + tabla + "." + novop + "=" + defpolj
DoCmd.RunSQL noviid
DoCmd.SetWarnings False

Nadam se da sam pomogao

Pozdrav Trtko

Odgovor na temu

vujkev
Beograd

Član broj: 8072
Poruke: 1347
*.telekom.yu.

+104 Profil

Re: Dodavanje kolona u Access-u

^{08.11.2005. u 12:43 - pre 224 meseci}

Problem je bio postaviti DEFAULT u novom polju za za svaki novi record , a ne dodavanje polja u bazu. Hvala u svakom slučaju

Naučio sam...
Da je važnije biti ljubazan nego biti u pravu

Odgovor na temu