[ 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
[ miki987 @ 16.11.2009. 14:23 ] @
? da li je ovo zapravo moguce uraditi u vb6? moze li neko da se oglasi i pomogne mi, trazim preko googla ali ne nazalazim nista na ovu temu?
dakle potreban mi je da bi u njemu moga prikazati vise stavki a koje se cesto dodaju ili brisu, pa da ne bi stalno prepravljao program potrebno mi je resenje imoprt-a teksta iz txt-a u combobox a kasnije ga koristim samo za iscitavanje u report-u
[ Aleksandar Vasic @ 16.11.2009. 15:15 ] @
Ubaci u petlju

Code:
Combo1.AddItem string
[ miki987 @ 18.11.2009. 13:42 ] @
Aleksandre moze li se to zaobici nekim prostijim resenjem, ovo mi zbog drugih stvari opet predstavlja problem, jer je baza zasticena od korisnika pass-om dok bi txt ostavio za izmenu, dakle da se cita iz txt-a, a korisnik po potrebi menja i dodaje podatke?
[ Aleksandar Vasic @ 18.11.2009. 15:06 ] @
Ne kontam te, ne postoji nista prostije od ovoga, ajd objasni malo bolje i po mogucnosti okaci source
[ captPicard @ 19.11.2009. 11:28 ] @
čemu ti ovo služi?

Code:
Do Until rs.EOF
        kupac = rs("naziv")
    rs.MoveFirst
Loop
[ miki987 @ 23.11.2009. 09:31 ] @
Izvinite sto se nisam javio ranije. Evo ovako:

ovo je kod sa kojim pozivam ali samo prvu stavku iz txt-a

Code:

Public Sub Form_Load()
Dim Unos As String
Open "C:\txt.txt" For Input As #1
Input #1, Unos
Combo1 = Unos
Close #1
End Sub


za access sam radio ovako:

Code:

Public conn As New ADODB.Connection
Public rs As ADODB.Recordset, rs1 As ADODB.Recordset
Dim SQL_q As String

Public Sub openconn()
conn.Provider = "Microsoft Jet 4.0 OLE DB Provider;Data Source=C:\Baza.mdb"
conn.Open
End Sub

Public Sub closeconn()
conn.Close
End Sub

Private Sub Form_Load()
Dim sql As String
openconn
sql = "SELECT * FROM baza1 ORDER BY tabela1 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
Do Until rs.EOF
 Combo1.AddItem rs("tabela1")
 rs.MoveNext
Loop
closeconn
End Sub
[ miki987 @ 24.11.2009. 15:59 ] @
hmmm, ok , uspeo sam napraviti nesto uz pomoc access-a mada mi nije to najbolje ali ajde...
moze li mi iko onda pomoci oko resenja a sa kojim bi zaobisao moje nezadovoljstvo sa ovim gore

evo koda:
Code:
Private Sub Command1_Click()
Const strConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Baza.mdb;Persist Security Info=False"
Dim cmd As New ADODB.Command
dim as ime string

ime = text1.text

conn.ConnectionString = strConnection
conn.Open

cmd.ActiveConnection = conn
cmd.CommandText = "create table &ime&  (a varchar(10), b varchar)"

cmd.Execute
conn.Close

End Sub


kako da ovo napravim da mi uvek kreira bazu po brojevima, 1,2,3,4,5,6 kada se klikne na Command1_Click