DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub UserForm_Initialize()
Dim DatabasePath As String
Dim adoCN As Object
Dim RS As Object
Dim X As Long
Dim Y As Long
ListBox1.ColumnCount = 3
ListBox2.ColumnCount = 3
DatabasePath = "C:\TestDB\MyDB.mdb"
If Dir(DatabasePath) = "" Then
MsgBox DatabasePath & " bulunamadı, programdan çıkılacak !", vbCritical, "TestMDB"
Unload Me
Exit Sub
End If
Set adoCN = CreateObject("ADODB.Connection")
adoCN.Provider = "Microsoft.Jet.OLEDB.4.0"
adoCN.ConnectionString = DatabasePath
adoCN.Open
Set RS = CreateObject("ADODB.recordset")
strSQL = "SELECT * FROM [MyTable1]"
RS.Open strSQL, adoCN, 1, 3
RS.MoveFirst
Do While Not RS.EOF
ListBox1.AddItem
ListBox1.Column(0, X) = RS("isim")
ListBox1.Column(1, X) = RS("soyad")
ListBox1.Column(2, X) = RS("tel")
RS.MoveNext
X = X + 1
Loop
RS.Close
strSQL = "SELECT * FROM [MyTable2]"
RS.Open strSQL, adoCN, 1, 3
RS.MoveFirst
Do While Not RS.EOF
ListBox2.AddItem
ListBox2.Column(0, Y) = RS("meslek")
ListBox2.Column(1, Y) = RS("adres")
ListBox2.Column(2, Y) = RS("TCKimlikNo")
RS.MoveNext
Y = Y + 1
Loop
RS.Close
adoCN.Close
Set RS = Nothing
Set adoCN = Nothing
End Sub