Ilk once access e girip bir tane veritabani meydana getiriyoruz. Bu veri tabanina deneme.mdb adi veriyoruz. Bir tane table yapip bu table in adini data yapiyoruz. 3 adet field yapip bunlarada sira ile ad soyad ve memleket adlarini verip bir kaç veri girip cikiyoruz. Access ile isimiz bitti sira vb.6 a geldi.

vb 6 yi acip bir form olusturuyoruz. Daha sonra ÇOK ÖNEMLI (menuden project bolumunu acip oradan references kismina tikliyoruz. Buradan Microsoft DAO 3.6 Object Library nesnesini seciyoruz.) tamam. Daha sonra 3 adet text box yapip 1 tanede list yapiyoruz. Bir tanede label yapiyoruz. Özelliklerle oynamiyoruz.

sonra bu asagidaki kodlari kod bolumlerine yaziyoruz. Calistirin takildiginiz yerleri burada sorun iyi calismalar.

Bu kod general declaration bolumune yazilacak.

Dim ws As Workspace
Dim db As Database
Dim rs As Recordset

Bu kod form load bolumune yazilacak

Private Sub Form_Load()
Set ws = DBEngine.Workspaces(0)
DbFile = (App.Paş & "\deneme.mdb")
Set db = DBEngine.OpenDatabase(DbFile, False, False, ";pwd=")
Set rs = db.OpenRecordset("data", dbOpenTable)
Max = rs.RecordCount
Label1.Caption = Max
If rs.RecordCount = 0 Then
Exit Sub
Else
List1.Clear
rs.MoveFirst
For i = 1 To Max
List1.AddItem rs!soyad
rs.MoveNext
Next i
List1.ListIndex = 0
End If
End Sub

Bu kod list1_click bolumune yazilacak

Private Sub List1_Click()
Set ws = DBEngine.Workspaces(0)
    DbFile = (App.Paş & "\deneme.mdb")
Set db = DBEngine.OpenDatabase(DbFile, False, False, ";PWD=")
Set rs = db.OpenRecordset("Select * from data where soyad = '" & Trim(List1.List(List1.ListIndex)) & "'")
On Error GoTo ErrorHandler
Text1.Text = rs("ad")
Text2.Text = rs("soyad")
Text3.Text = rs("memleket")
ErrorHandler:
Resume Next
End Sub

cruelll2007-07-30 14:08:28