[ miki987 @ 14.11.2009. 14:17 ] @
moze li mi neko reci kako da u combobox iscitam podatke iz txt baze ili iz acsess-a sve mi je jedno, tako da mi se na padajucem meniju pojavi sve sto imam u toj bazi Code: Private Sub Form_Load() Popuni_listbox End Sub Private Sub Popuni_listbox() Dim sql As String openconn sql = "SELECT * FROM partneri ORDER BY naziv DESC;" Set rs = conn.Execute(sql) If rs.EOF Then MsgBox "U bazi ne postoji ni jedan zapis!", vbExclamation, "Access" closeconn Exit Sub End If kupac.Clear Do Until rs.EOF kupac = rs("naziv") rs.MoveFirst Loop closeconn End Sub |