[es] - combobox + acces kolona ili txt baza?

miki987

Član broj: 208123
Poruke: 511
195.252.106.*

+5 Profil

combobox + acces kolona ili txt baza?

^{14.11.2009. u 14:17 - pre 175 meseci}

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

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
195.252.106.*

+5 Profil

Re: combobox + acces kolona ili txt baza?

^{16.11.2009. u 14:23 - pre 175 meseci}

? 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

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net

+1 Profil

Re: combobox + acces kolona ili txt baza?

^{16.11.2009. u 15:15 - pre 175 meseci}

Ubaci u petlju

Code:
Combo1.AddItem string

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
195.252.106.*

+5 Profil

Re: combobox + acces kolona ili txt baza?

^{18.11.2009. u 13:42 - pre 175 meseci}

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?

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net

+1 Profil

Re: combobox + acces kolona ili txt baza?

^{18.11.2009. u 15:06 - pre 175 meseci}

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

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: combobox + acces kolona ili txt baza?

^{19.11.2009. u 11:28 - pre 175 meseci}

čemu ti ovo služi?

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

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
195.252.106.*

+5 Profil

Re: combobox + acces kolona ili txt baza?

^{23.11.2009. u 09:31 - pre 175 meseci}

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

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
195.252.106.*

+5 Profil

Re: combobox + acces kolona ili txt baza?

^{24.11.2009. u 15:59 - pre 175 meseci}

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

Odgovor na temu