combobox + acces kolona ili txt baza?

combobox + acces kolona ili txt baza? 14.11.2009. u 15:17 · pre 206 meseci #1

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

Re: combobox + acces kolona ili txt baza? 16.11.2009. u 15:23 · pre 206 meseci #2

? 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

Re: combobox + acces kolona ili txt baza? 16.11.2009. u 16:15 · pre 206 meseci #3

Ubaci u petlju

Code:
Combo1.AddItem string

Re: combobox + acces kolona ili txt baza? 18.11.2009. u 14:42 · pre 206 meseci #4

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?

Re: combobox + acces kolona ili txt baza? 18.11.2009. u 16:06 · pre 206 meseci #5

Ne kontam te, ne postoji nista prostije od ovoga, ajd objasni malo bolje i po mogucnosti okaci source

Re: combobox + acces kolona ili txt baza? 19.11.2009. u 12:28 · pre 206 meseci #6

čemu ti ovo služi?

Code:
Do Until rs.EOF
kupac = rs("naziv")
rs.MoveFirst
Loop

Potpis

F

Re: combobox + acces kolona ili txt baza? 23.11.2009. u 10:31 · pre 206 meseci #7

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

Re: combobox + acces kolona ili txt baza? 24.11.2009. u 16:59 · pre 206 meseci #8

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

Forum kao aplikacija na telefonu

Srodne teme