dosyadaki kayıt sayısı

[egebes]

bir mdb dosyayı açmadan, dışarıdan bir programla kayıt sayısını nasıl alabiliriz.

 

[MDYSOFT]

nasıl bir proğramladüşünüyorsunuz. yada nasıl bir ortamda mdb dosyaındaki kayıt sayısını bilmek istiyorsunuz.
daha net olusanız yardımcı olmaya çalışalım

 

[egebes]

benim için önemli olan bu rakamları yani kayıt sayılarını alabilmek.Bir folder içinde onlarca mdb dosyası olduğunu düşünün.Bunların isim ve kayıt sayılarını excel,access yada bir text dosyaya çıkmak istiyorum.Yöntem,dil vs önemli değil

 

[Zeki Gürsoy]

Bir Form oluşturup üzerine Buton yerleştirin.

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&#305;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&#305; : " & t.Name & vbTab & "Kay&#305;t say&#305;s&#305; : " & 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