ComboBox problem ???????'

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.yubc.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

^{10.08.2003. u 11:02 - pre 252 meseci}

Citat:

Može mi tko reći ili poslati kod koji bi sačuvao podatke u ComboBox-u .
npr. Dodam neke podatke u Combo i kad ponovno pokrenem program da tamo i ostanu .

Podaci se moraju cuvati ili u bazi, ili u nekom fajlu txt, xml, ...

Citat:

Kako da napravim kad kliknem na neko ime u ComboBox-u da se nešto npr. pojavi u text polju ???

na click eventu za combo stavis nesto ovako

Code:

If cmbCombo.ListIndex <> -1 Then
txtText.Text = cmbCombo.Text
End If

ngaspar
Čakovec

Član broj: 12803
Poruke: 7
*.cmu.carnet.hr

ICQ: 285756980

Profil

^{10.08.2003. u 12:06 - pre 252 meseci}

Tnx. , ali ne tražim to ...
Ja trebam :

U ComboBox-u trebam imati imena ljudi i kad kliknem na jedno od imena da se pojavi njihov "dosje" (nešto kao adress book) .

p.s. Možete mi reći(napisati kod) kako da podatke iz ComboBox-a pohranim u isti .txt file , jedan ispod drugog i kako da ih pročitam istim redoslijedom (unesem u Combo) ??

Seek and you should find ....

^{10.08.2003. u 15:43 - pre 252 meseci}

Komplikovano je drzati podatke u txt fajlu, pogotovo kad ti podaci imaju neku strukturu. Bolje ti je da koristis neku bazu ili ako vec hoces fajl neka bude XML koji ima strukturu i mnogo je lakse raditi sa njim (ne moras nista da parsiras u kodu).

Ako vec hoces da koristis txt fajl, pogledaj FSO (FileSystemObject) u MSDNu.

Ovim kodom prolazis kroz combo

Code:

Dim i As Integer

    For i = 0 To Combo1.ListCount - 1
        Debug.Print Combo1.List(i)
    Next

ovaj kod dodaje novi item u kombo

Code:

Combo1.AddItem NekiString

A evo ti nekih primercica iz MSDNa za pisanje i citanje linija iz fajla sa FSO

Code:

Sub Create_File()
    Dim fso, txtfile
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txtfile = fso.CreateTextFile("c:\testfile.txt", True)
    txtfile.Write ("This is a test. ") ' Write a line.
    ' Write a line with a newline character.
    txtfile.WriteLine("Testing 1, 2, 3.")
    ' Write three newline characters to the file.
    txtfile.WriteBlankLines(3)
    txtfile.Close
End Sub

Sub Read_Files()
    Dim fso As New FileSystemObject, txtfile, _
      fil1 As File, ts As TextStream
    fso.CreateTextFile "c:\testfile.txt", True
    MsgBox "Writing file"
    ' Write a line.
    Set fil1 = fso.GetFile("c:\testfile.txt")
    Set ts = fil1.OpenAsTextStream(ForWriting)
    ts.Write "Hello World"
    ts.Close
    ' Read the contents of the file.
    Set ts = fil1.OpenAsTextStream(ForReading)
    s = ts.ReadLine
    MsgBox s
    ts.Close
End Sub

ngaspar
Čakovec

Član broj: 12803
Poruke: 7
*.cmu.carnet.hr

ICQ: 285756980

Profil

^{12.08.2003. u 15:49 - pre 252 meseci}

Hvala mladenovicz , ali ništa s FSO-om mi ne radi .
Probao sam i druge primjere sa FSO-om , ali NIŠTA ne radi ...
Uvijek javlja neku grešku.

Seek and you should find ....

^{12.08.2003. u 16:36 - pre 252 meseci}

Ne mogu da ti pomognem ako kazes da ne radi i da javlja neku gresku.
Postuj kod koji ne radi i gresku koju javlja, pa da vidimo.
Da li si razmisljao o tome da koristis bazu ili XML umesto txt fajla?

ngaspar
Čakovec

Član broj: 12803
Poruke: 7
*.cmu.carnet.hr

ICQ: 285756980

Profil

^{12.08.2003. u 18:56 - pre 252 meseci}

Slušaj mladenovicz , ja sam relativno nov u VB programiranju .
Htio bih nešto napraviti , al' baš i ne uspijevam.
Neznam raditi s bazama ni s XML-om , pa ako imaš volje da postaš (ili mi pošalješ na mail ) neke primjere sa radom u bazama i sl.

Inače bih htio napraviti program koji bi spremao podatke koje bih ja unio o pojedinim osobama(ime,prezime,adresu,telefon,mobitel,e-mail i sl. podatke) ,ali ne znam kako bi to bilo najbolje napraviti .
Inače bi se osobe birale iz List Box-a i kad se klikne na pojedinu osobu , polja(text box-evi) se popune s odgovarajućim podacima ...

Unaprijed hvala.
--
[email protected]

Seek and you should find ....

^{13.08.2003. u 11:19 - pre 252 meseci}

Bas zbog toga sto si pocetnik, najjednostavniji nacin da ovo napravis je da podatke cuvas u Access bazi, na primer. Manje ces vremena potrositi da bi naucio da radis sa bazama (a i mnogo je korisnije), nego da implementiras resenje sa cuvanjem podataka u txt fajlu.

U Accessu napravis novu tabelu, nazoves je Contacts, ili kako god vec i dodajes nova polja (Ime, Prezime, telefon, ...) i podesis im tip (Text, Number, ...). Uz to dodas jedno polje koje se zove ID i koje ce biti Autonumber tipa. To ce ti biti jedinstveni identifikator za kontakt i njemu podesis da je Primary Key. Kad dodajes novi kontakt, za to polje ne dajes vrednost, o tome Access vodi racuna

Onda u MSDNu pogledaj ADO i njegove objekte ADO.Connection i ADO.Recordset (u MSDNu imas sampleove) i nakon toga ces imati odakle da krenes.

Ovaj kod ce iz Acces baze (c:\baza.mdb) u Immediate prozoru ispisati sva imena i prezimena iz tabele Contacts

Code:

Private Const mcstrDNSBeg   As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Private Const mcstrDNSEnd   As String = ";Persist Security Info=False"
Private Const mcstrPath     As String = "C:\baza.mdb"
Private Const mcstrDNS      As String = mcstrDNSBeg & mcstrPath & mcstrDNSEnd

Private Sub FetchData()
Dim adoRS   As ADODB.Recordset
Dim adoConn As ADODB.Connection
Dim Qry     As String

    ' KREIRAJ NOVI RECORDSET OBJEKAT
    Set adoRS = New ADODB.Recordset
    adoRS.CursorLocation = adUseClient

    ' KREIRAJ NOVU KONEKCIJU
    Set adoConn = New ADODB.Connection
    adoConn.Open mcstrDNS

    ' SQL IZRAZ NA OSNOVU KOJEG CE SE SELEKTOVATI PODACI IZ BAZE
    Qry = "SELECT * FROM Contacts"

    ' OTVORI RECORDSET
    adoRS.Open Qry, adoConn, adOpenStatic, adLockBatchOptimistic

    ' IDI KROZ RECORDSET DOK NE STIGNES DO KRAJA
    While Not adoRS.EOF
        Debug.Print adoRS("Ime"), adoRS("Prezime")
        adoRS.MoveNext ' POMERI SE NA SLEDECI ZAPIS
    Wend

    ' ZATVORI I UNISTI RECORDSET
    adoRS.Close
    Set adoRS = Nothing

    'ZATVORI I UNISTI KONEKCIJU
    adoConn.Close
    Set adoConn = Nothing

End Sub

Probaj ovo, pa pitaj ako negde zapnes. Ako ti neki kod ne radi obavezno postuj kod i gresku koju ti javlja.