[es] - Potrebna pomoc oko koda za imenik

lemiar

Član broj: 100753
Poruke: 499
91.150.109.*

+13 Profil

^{07.03.2007. u 19:34 - pre 208 meseci}

Ljudi ja sam pocetnik i ne znam nesto puno oko toga pa ako moze neko da mi pomogne.Ja sam uradio "masku"
tj. unesi ime i prezime, grad, trazi ispod gde ce da izbaci broj telefona i adresu pa molim sve koji znaju VB da mi pomognu.

Odgovor na temu

Fuzz
Bojan Vukovic
Novi Sad

Član broj: 8631
Poruke: 3866
*.dialup.neobee.net.

+9 Profil

Re: Potrebna pomoc oko koda za imenik

^{08.03.2007. u 13:34 - pre 208 meseci}

E pa sad ti treba da negde spakujes unete podatke.
Mozes ih stavljati u neki tekstualni fajl - sto je potpuno neprakticno i prakticno neupotrebljivo kada se poveca kolicina unetih podataka ili da kreiras neku bazu u koju ces smestati kontakte i ostalo sto zelis da uneses.
Najednostavnije ti je po mom misljenju da kreiras malu access bazu. Kada to uradis, javi se pa cemo dalje...

anti-heroin spree

Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*

+3 Profil

Re: Potrebna pomoc oko koda za imenik

^{23.03.2007. u 18:37 - pre 208 meseci}

Normalno mnogo je lakse raditi sa bazom ali za male kolicine podataka, najbolje je telefonski imenik cuvati u txt fajlu(pretpostavlja se da se ne zeli unositi telefonski imenik cele Srbije). Za pocetnika je lako da iz Notepada unosi ime, prezime grad, broj telefona itd ali se preporucuje da se taj tekstualni fajl pripremi tako da ako pocetnik ne u me da napravi ispravan VB program taj tekstualni fajl bez problema uvuce u access. Za to bi trebao stavljati najcesce upotrebljavan separator tacka zarez izmedju reci. Znaci zapis bi morao biti ovog formata da bi se veoma lako mogao kucati u Notepadu i lako uvuci u access ili ocitati sa open iz VB.
Oblik je:

prezime;ime;datum rodjenja;mesto; broj licne karte; broj telefona; ...;

rgdrajko

Odgovor na temu

steve585
Stevan Stanić
Project Manager
Zagreb

Član broj: 131815
Poruke: 281
*.net.t-com.hr.

+1 Profil

Re: Potrebna pomoc oko koda za imenik

^{24.03.2007. u 11:48 - pre 208 meseci}

Ukoliko budeš radio sa bazom podataka, ovaj primjer ti može pomoći.

Dim dbAdresar As Database
Dim rsAdresa As Recordset
Dim red, sql As String
Dim k As Integer
Dim Uslov As String
Dim Prezime, Ime, Naziv, Adresa, Mjesto, Telefon, Mobitel As String
Dim a As String

Set dbAdresar = OpenDatabase(App.Path & "\Adresar.mdb")

With MSFlexGrid1
.Cols = 12
.TextMatrix(0, 0) = "RB"
.TextMatrix(0, 1) = "Prezime"
.TextMatrix(0, 2) = "Ime"
.TextMatrix(0, 3) = "Datum kontakta"
.TextMatrix(0, 4) = "Telefon"
.TextMatrix(0, 5) = "Mobitel"
.TextMatrix(0, 6) = "Email"
.TextMatrix(0, 7) = "Napomena"
.TextMatrix(0, 8) = "Naziv preduzeća"
.TextMatrix(0, 9) = "Funkcija"
.TextMatrix(0, 10) = "Adresa"
.TextMatrix(0, 11) = "Mjesto"
End With

Uslov = Combo1.ListIndex
Print Uslov
Prezime = Text1.Text
Ime = Text3.Text
Naziv = Text8.Text
Adresa = Text10.Text
Mjesto = Text11.Text
Datum = Text2.Text
Telefon = Text5.Text
Mobitel = Text6.Text
Email = Text7.Text

Select Case Uslov
Case 0
sql = "Select * from [Adre] Where [Prezime]='" & Prezime & "'"
Data1.RecordSource = "Select * from [Adre] Where [Prezime]='" & Prezime & "'"
Data1.Refresh
Set rsAdresa = dbAdresar.OpenRecordset(sql, dbOpenDynaset)
With rsAdresa
k = 0

Do While Not .EOF
k = k + 1

red = !Redni_broj & vbTab & !Prezime & vbTab & !Ime & _
vbTab & !Datum & vbTab & !Telefon & vbTab & !Mobitel _
& vbTab & !Email & vbTab & !Napomena & vbTab & !Naziv _
& vbTab & !Funkcija & vbTab & !Adresa & vbTab & !Mjesto
MSFlexGrid1.Cols = 12
MSFlexGrid1.AddItem red, k
.MoveNext

Loop
Print k
If k = 0 Then
a = MsgBox("Traženi podatak nije pronađen", vbOKOnly, "OBAVJEST")
End If
End With
End select

steve585

Odgovor na temu