Orhan KALAYCI

Visual Basic & Access MDB

Yazan Orhan KALAYCI Tarih 23 October 2008 | Yorum Yok

Evet Arkada$lar 1 Gune 2 Yazi
Forumun Birinde Bi Rica Uzerine Ufak Bir Uygulama Yaptim
Kaynak Kodlarini ve Bi Kac Aciklamayi Sizinle Payla$mak Istiyorum:

Program Basit Aslinda Soldaki List den Secilen $ehrin Ilcelerini Sagdaki Listte Gosteriyor:

Projenin Tamamini DB Dahil Burdan Indirebilirsiniz.

Neyse Gelelim Kaynak Kodumuza

Dim Connection As New ADODB.Connection
Dim SehirID As Integer
Dim RecordSetForMain As New ADODB.RecordSet
Dim RecordSetForSub As New ADODB.RecordSet
Dim RecordSet As New ADODB.RecordSet

Private Sub Form_Load()
    Connection.Open ("Provider=Microsoft.Jet.Oledb.4.0;
    Data Source=db/il.mdb")
    RecordSet.Open ("Select * From tbSehirler"),
    Connection, adOpenForwardOnly
    FillList
End Sub

Public Sub FillList()
    While Not RecordSet.EOF
        List1.AddItem (RecordSet("IlAdi"))
        RecordSet.MoveNext
    Wend
End Sub

Private Sub List1_Click()
    For i = 0 To List1.ListCount - 1
        If List1.Selected(i) Then
            GetState (List1.List(i))
        End If
    Next
End Sub

Private Sub GetState(MainName As String)
    RecordSetForMain.Open ("Select ID from tbSehirler where IlAdi='" & MainName & "'"),Connection
    SehirID = RecordSetForMain("ID")
    RecordSetForMain.Close
    RecordSetForSub.Open ("Select * from tbIlceler Where IlID=" & SehirID), Connection
    FillSubList
End Sub

Public Sub FillSubList()
    List2.Clear
    While Not RecordSetForSub.EOF
        List2.AddItem (RecordSetForSub("IlceAdi"))
        RecordSetForSub.MoveNext
    Wend
    RecordSetForSub.Close
End Sub