Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Combo box i baza podataka

[es] :: Visual Basic 6 :: Combo box i baza podataka

[ Pregleda: 3313 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

tomislav91

Član broj: 206601
Poruke: 316
*.dynamic.isp.telekom.rs.



+1 Profil

icon Combo box i baza podataka07.09.2013. u 22:06 - pre 128 meseci
Kako da ubacim u combo box podatke iz baze, odnosno jednu kolonu u bazi, a da bude razlicito,recimo da treba drzavu da ubacim, pa da se ne pojavljuje vise puta Srbija(ako je ima vise puta u bazi)

Code:

Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set conn = DBEngine.OpenDatabase(App.Path & "baza.mdb")
Set rs = conn.OpenRecordset("KUPCI")

If rs.RecordCount > 0 Then
Do While Not rs.EOF
With Combo1
.AddItem rs.Fields("Drzava")
End With
.MoveNext
Loop
End If



End Sub


Izbacuje gresku kod .MoveNext dela
Invalid or unqualified reference
life is the one,take care of them!

http://hardware-software.serbianforum.info/
 
Odgovor na temu

djoka_l
Beograd

Član broj: 56075
Poruke: 3445

Jabber: djoka_l


+1462 Profil

icon Re: Combo box i baza podataka08.09.2013. u 09:50 - pre 128 meseci
Invalid or unqualified reference se javlja zbog sintaksne greške. Ne može
.MoveNext
nego mora
rs.MoveNext

Drugo, dizajn baze jen očajan, ako drzava treba da se vadi iz tabele kupaca, umesto da imaš šifarnik država.

Treće, ako već imaš tako očajan dizajn, onda treba države da dobiješ iz upita:

Select distinct drzava from kupci order by drzava

pa da taj kveri staviš u OpenRecordset
 
Odgovor na temu

tomislav91

Član broj: 206601
Poruke: 316
*.dynamic.isp.telekom.rs.



+1 Profil

icon Re: Combo box i baza podataka08.09.2013. u 09:56 - pre 128 meseci
Evo resio sam problem

Code:


Private Sub Combo1_Click()
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select * from KUPCI where Drzava='" & Combo1 & "'"
Adodc2.Refresh
End Sub

Private Sub Command1_Click()
Set DataEnvironment1.rsCommand9.DataSource = Adodc2
DataReport8.Show
End Sub

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=baza.mdb"
Combo1.Clear
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select distinct Drzava from KUPCI"
Adodc1.Refresh
With Adodc1.Recordset
    Do Until .EOF
        Combo1.AddItem ![Drzava]
        .MoveNext
    Loop
End With

Adodc1.RecordSource = "KUPCI"


End Sub

life is the one,take care of them!

http://hardware-software.serbianforum.info/
 
Odgovor na temu

[es] :: Visual Basic 6 :: Combo box i baza podataka

[ Pregleda: 3313 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.