DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Dim cn As Object, rs As Object, yol As Object
Private Sub CommandButton1_Click()
Set yol = CreateObject("Shell.Application").BrowseForFolder(0, "Klasör seçin", 0)
If yol Is Nothing Then Exit Sub
dosyalar (yol.items.Item.Path)
End Sub
Private Sub dosyalar(yol)
Dim d As String, cat As Object, t As Object
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Set cat = CreateObject("ADOX.Catalog")
Open "c:\rapor.txt" For Output As #1
d = Dir(yol & "\*.mdb")
While d <> ""
Print #1, d & " dosyasına ait tablolar..."
cn.Open _
"provider=microsoft.jet.oledb.4.0;data source=" & yol & "\" & d
cat.ActiveConnection = cn
For Each t In cat.Tables
If t.Type = "TABLE" Then
rs.Open "select * from " & t.Name, cn, 1, 3
rs.movelast
Print #1, vbTab & "Tablo Adı : " & t.Name & vbTab & "Kayıt sayısı : " & rs.RecordCount
End If
Next
Print #1, ""
Print #1, "******************************************************"
rs.Close
cn.Close
d = Dir
Wend
Close #1
Set cn = Nothing
Set rs = Nothing
Set cat = Nothing
MsgBox "Bitti !"
Unload Me
End Sub