|
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)
Kod za FormLoad :
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DatabaseName.mdb"
Combo1.Clear
Adodc1.RecordSource = "select distinct ColumnName from TableName"
Adodc1.Refresh
With Adodc1.Recordset Do Until .EOF Combo1.AddItem ![ColumnName] .MoveNext Loop
End With
Adodc1.RecordSource = "TableName"
Adodc1.Refresh
Kod za Combo1_Click() :
Adodc1.RecordSource = "select * from TableName where ColumnName='" & Combo1 & "'"
Adodc1.Refresh
Tu cim ispisem pokazuje crveno, kao gresku
With Adodc1.Recordset Do Until .EOF Combo1.AddItem ![ColumnName] .MoveNext Loop
|
