[ tomislav91 @ 07.09.2013. 22:06 ] @
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
[ djoka_l @ 08.09.2013. 09:50 ] @
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
[ tomislav91 @ 08.09.2013. 09:56 ] @
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