|
Poslao: 31 Mar 2005 15:22
|
offline
- Pridružio: 31 Mar 2005
- Poruke: 448
- Gde živiš: Novi Beograd
|
Daklem, ja ocem ovo... da podaci iz bazu (access ako je bitno) sve
djuture prebachim u combo box, jelte..
imam ja sve ono sto treba ado konekciju i jelte sve
e, al sad kad ocu da mu ga dadnem po additemu malo dolazi do problema.
nece da napravi loop, da chitne iz bazu, ubachi u combo na additem,
pa onda recordset.movenext pa opet isto i to...
al nece...
jel moze neko od vas pametnih da mi objasni jednostavno, prosto, kratko
i koncizno neku malu logichnu petlju....
fala...
poz
|
|
|
|
|
Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
|
|
|
Poslao: 31 Mar 2005 16:23
|
offline
- snoop
- Genghis Khan
- Pridružio: 18 Apr 2003
- Poruke: 8134
- Gde živiš: U kesici gumenih bombona...
|
conn.Open
Set rs = conn.Execute("SELECT * FROM korisnici WHERE id=14;")
Do Until rs.EOF
ComboBox1.AddItem rs("ime_korisnika")
rs.MoveNext
Loop
conn.Close
pod uslovom da si ispravno kreirao conn objekat
|
|
|
|
|
|
|
|
|
|
|
Poslao: 01 Apr 2005 09:53
|
offline
- Pridružio: 31 Mar 2005
- Poruke: 448
- Gde živiš: Novi Beograd
|
aman, fala unapred iako mi nije uspelo...daklem...
kako da dimujem rs a kako conn....
conn mu dodje object a ovo adobdbdbdbd.konekcija iliti?
conn konekcija a rs command ili...
zaglupeo sam se
pomagajte....
fala puno
poz
|
|
|
|
|
|
|
Poslao: 01 Apr 2005 13:02
|
offline
- snoop
- Genghis Khan
- Pridružio: 18 Apr 2003
- Poruke: 8134
- Gde živiš: U kesici gumenih bombona...
|
prethodno moras da ides Project > Reference i nadjes Microsoft ADO Library i cekiras pa OK
pa onda
Dim conn As New Adodb.Connection
Dim rs As Adodb.Recordset
posle toga napises onaj code gore sto sam dao i MORA da radi.
|
|
|
|
|
|
|
Poslao: 01 Apr 2005 13:52
|
offline
- Pridružio: 31 Mar 2005
- Poruke: 448
- Gde živiš: Novi Beograd
|
Private Sub Command1_Click()
Dim conn As New Adodb.Connection
Dim rs As Adodb.Recordset
conn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;data source=D:\radna_verzija.mdb;"
conn.Open
Set rs = conn.Execute("SELECT * FROM proizvodi;")
Do Until rs.EOF
Combo1.AddItem rs("maticne ploce")
rs.MoveNext
Loop
conn.Close
End Sub
-------------------------------
evoo koda...
ama glup sam...
dobro za referencu sam bio na nivou zadatka i povezah je i pre tebe..
no... kaze mi na ovaki kod invalid use of null... e sad pokazuje na liniju
Combo1.AddItem rs("maticne ploce")
nesto mu tu nije jasno....
dal ovo "maticne ploce" neje nasho ili shta...
jel to treba da bidne polje iz baze il sha?
e sad da ne bih nesto zakakio... ono pri konekciji kod upita sam
mu turio ime tabele (tu valjda nisam omashio) a ovde dole da ide
redom u polju maticne ploce pa da ga fercera na dalje...
nije mi bash najjasnija sintaksa kod ovog additem... on njemu dodaje
recordset jelte... koji se odnosi na ???? red, kako on zna koje polje,
nisam mu rekao... sto je on sad pametniji od mene....
aj prosvetlite me
i ako ima neka konkretna knjigica u e-formi (da vas ne bi smarao oko
ovakvih gluposti) kako se zove
skidao ja nesto sa undernet.org-a al nije nesto... neki za rad sa
bazama. to mi treba.
puno fala...
|
|
|
|
|
|
|
Poslao: 01 Apr 2005 14:16
|
offline
- snoop
- Genghis Khan
- Pridružio: 18 Apr 2003
- Poruke: 8134
- Gde živiš: U kesici gumenih bombona...
|
'upisuje grupu u combo box
Dim strSQLGrupa As String
strSQLGrupa = "SELECT * FROM grupa ORDER BY ime_grupe"
openConn
Set adoRS = adoConn.Execute(strSQLGrupa)
Do Until adoRS.EOF
cmbGrupa_ON_frmDodajCD.AddItem adoRS("ime_grupe")
adoRS.MoveNext
Loop
adoConn.Close
ovaj kod imam ja u jednom programu koji RADI...
probao sam da uradim to sto trazis i izbacuje gresku koju si spomenuo.
ne mogu da verujem da nece da radi.
kada ispisuje preko MsgBox-a onda procita, ali na kraju mi opet prikaze gresku, a kada pokusam da ispisem u Combo, odmah mi izbaci gresku...
ne mogu da verujem da nece da radi...
i sledeci put pisi atribute bez space-a... stavi _ umesto praznog mesta...
a ja cu pokusati da sredim ovo, ali mi i dalje nije jasno sta ne valja
|
|
|
|
|
|
|
Poslao: 01 Apr 2005 14:26
|
offline
- Pridružio: 31 Mar 2005
- Poruke: 448
- Gde živiš: Novi Beograd
|
aa, dobro je, znachi nisam mnogo glup..
ja reko sta nece.. reko da nisam promashio naziv, pa namerno
promashim pa mi onda lepo chovek kaze da to ne postoji...
tako da nije do toga....
taj null.... ihh... kad bi ga sreo na ulici ja bi mu....*$*#)....
fala u svakom slucaju
pozdrav,
|
|
|
|
|
|
|
|
