[es] - Potrebno mi je sto pre!!

JUDO_BLACK_BOY
Pavlovic Bojan
Krusevac

Član broj: 132122
Poruke: 39

Sajt: elviksoft.zapto.org

Profil

^{08.07.2007. u 14:28 - pre 204 meseci}

Radim na programu u kome mi treba jos nekoliko funkcija.

Imam jedan Combo koji normalno kad se spusti meni treba da izlista iteme koje nudi e sada imam problem ja znam da napravim iteme tokom prgramiranja ali kako da se iz neke druge forme pravi upis i da on iz tog upisa pravi nove itemeuz pomoc kojih ce obavljati nove funkcije?

Potreban mi je brzi odgovor.
Hvala vam unapred.

I am not afraid of death, i just don't want to be there when its happens!

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
89.216.213.*

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Potrebno mi je sto pre!!

^{08.07.2007. u 14:46 - pre 204 meseci}

Ako si želeo brz odgovor, onda si trebao jasnije da objasniš problem. Pravljenje upisa iz druge forme je širok pojam, i moraćeš da daš malo više detalja ako misliš da ti neko pomogne. Odakle zapravo trebaš da povučeš podatke ?

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Odgovor na temu

JUDO_BLACK_BOY
Pavlovic Bojan
Krusevac

Član broj: 132122
Poruke: 39

Sajt: elviksoft.zapto.org

Profil

Re: Potrebno mi je sto pre!!

^{08.07.2007. u 15:21 - pre 204 meseci}

ovako postoji forma koja bi imala samo 2 text boxsa u kojima bi se recimu upisao ime firme i redni broj
baza je iz accessa (mdb) tako da ce se u kombo dodavati itemi iz mdb baze.

recimo baza se zove db1.mdb tabela se zove firma i u tabeli ima dva polja "ID" i "firme"
i sada kad kliknem na combo treba da mi izlista sve podatke koji se nalaze u polju 'firme'

jel sad jasnije?

I am not afraid of death, i just don't want to be there when its happens!

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
89.216.213.*

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Potrebno mi je sto pre!!

^{08.07.2007. u 15:38 - pre 204 meseci}

Imaš dve varijante. Možeš da iskoristiš DBComboBox kontrolu koja je ista kao i obična, samo što podržava povezivanje na određeno polje iz baze, i izlistavanje podataka u istom. Druga varijanta je da očitaš rekordset red po red i da ručno smeštaš podatke u običan Combobox. Ne znam šta koristiš, ADO ili DAO, ali evo jednostavne procedure za popunjavanje Combobox-a koja koristi DAO

Code:
Private Sub DBFieldToCombo(dbPath As String, sTable As String, sField As String)
Dim db As Database
Dim dbrs As Recordset
Set db = OpenDataBase(dbPath)
Set dbrs = db.OpenRecordset("SELECT " & sField & " FROM " & sTable)
Do Until dbrs.EOF
DoEvents
Combo1.AddItem dbrs.Fields(0).Value
dbrs.MoveNext
Loop
dbrs.Close
db.Close
Set dbrs = Nothing
Set db = Nothing
End Sub

Predpostavljam da znaš kako trebaš da je pozoveš ;)

Odgovor na temu

JUDO_BLACK_BOY
Pavlovic Bojan
Krusevac

Član broj: 132122
Poruke: 39

Sajt: elviksoft.zapto.org

Profil

Re: Potrebno mi je sto pre!!

^{08.07.2007. u 16:25 - pre 204 meseci}

nisam se snasao nimalo

pazi ovako
baza se zove db3.mdb e sad podatke vude iz tabele firma i polje koja se takodje zove firma
izvini sto te maltretiram ali ako ti nije frka napisi mi kompletan kod molim te pa cu ja da pogledam nocas kad dodjem s posla samo da proradi
znaci imam vec upisane podatke u tom polju samo jos da ih combo izlista i to je to.
unapred hvala.

I am not afraid of death, i just don't want to be there when its happens!

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
89.216.213.*

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Potrebno mi je sto pre!!

^{08.07.2007. u 16:56 - pre 204 meseci}

Pa eto, dao sam ti proceduru koja to radi, samo trebaš da je pozoveš i proslediš podatke. Recimo u Load eventu forme na kojoj ti se nalazi Combobox pozovi

Code:
Private Sub Form_Load()
Call DBFieldToCombo(App.Path & "\db3.mdb", "Firma", "Firma")
End Sub

i to bi trebalo da radi, naravno pod uslovom da ti se ComboBox zove Combo1 i da ti se baza nalazi na istom mestu gde i exe fajl. Ako to nije slučaj, samo izmeni potrebne podatke, tj. umesto App.Path stavi pravu putanju da baze, a umesto Combo1 upiši kako ti se zove ComboBox.

Odgovor na temu

JUDO_BLACK_BOY
Pavlovic Bojan
Krusevac

Član broj: 132122
Poruke: 39

Sajt: elviksoft.zapto.org

Profil

Re: Potrebno mi je sto pre!!

^{09.07.2007. u 14:01 - pre 204 meseci}

Private Sub DBFieldToCombo(dbPath As String, sTable As String, sField As String)
Dim db As Database 'Compile error: User-defined type not defined pokazuje mi tu gresku
Dim dbrs As Recordset
Set db = OpenDataBase
Set dbrs = db.OpenRecordset("SELECT " & sField & " FROM " & sTable)
Do Until dbrs.EOF
DoEvents
Combo1.AddItem dbrs.Fields(0).Value
dbrs.MoveNext
Loop
dbrs.Close
db.Close
Set dbrs = Nothing
Set db = Nothing
End Sub

database to crveno gore prijavljuje kresku kao sto sam ti gore napisao nisam pametan kako da je resim.

:(

I am not afraid of death, i just don't want to be there when its happens!

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
89.216.213.*

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Potrebno mi je sto pre!!

^{09.07.2007. u 16:21 - pre 204 meseci}

Dodaj referencu na DAO. Odeš na Project > References i tamo nađeš Microsoft DAO 3.6 Object Library (ili koju već verziju DAO imaš) ili još jednostavnije, postavi Data kontrolu na formu, pa je obriši i ostaće ti referenca na DAO.

Odgovor na temu

JUDO_BLACK_BOY
Pavlovic Bojan
Krusevac

Član broj: 132122
Poruke: 39

Sajt: elviksoft.zapto.org

Profil

Re: Potrebno mi je sto pre!!

^{10.07.2007. u 01:39 - pre 204 meseci}

Hvala za ovo radi odlicno.

I am not afraid of death, i just don't want to be there when its happens!

Odgovor na temu