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.