(benim anladığım)
istediğin, yüklediğin resimdeki alanlar ile mdb dosyasına bakarak
veritabanı dosyasındaki tabloların ilk 2 sütunundaki veriler olarak görülüyor.
1. yol (tablo adlarını bildiğini varsaydığımızda SQL ile tek tek çekersin, ancak destek ekibinde olduğunuz düşünerek bunu bildiğini varsayıyorum.
2. yol ise tablodaki tablo adlarını ve ilk 2 sütun adını çekip (çünkü yüklediğin resime göre alan adları farklı olduğu için sabit bir sorgu ile veri çekilemez diye düşünüyorum) ona göre SQL sorgusu oluşturmak olabilir.
bulduğum bir kodda ufak değişiklik yaptım.
tablonun adını ve ilk 2 sütun adını buluyor. bundan sonrası buna uygup SQL ifadesi ile verileri çekmek olabilir.
Kod:
Sub Example1()
'an Access object
Dim objAccess As Object
'connection string to access database
Dim strConnection As String
'catalog object
Dim objCatalog As Object
'connection object
Dim cnn As Object
Dim i As Integer
Dim intRow As Integer
Set objAccess = CreateObject("Access.Application")
'open access database
Call objAccess.OpenCurrentDatabase("C:\test\Ornek.mdb")
'get the connection string
strConnection = objAccess.CurrentProject.Connection.ConnectionString
'close the access project
objAccess.Quit
'create a connection object
Set cnn = CreateObject("ADODB.Connection")
'assign the connnection string to the connection object
cnn.ConnectionString = strConnection
'open the adodb connection object
cnn.Open
'create a catalog object
Set objCatalog = CreateObject("ADOX.catalog")
'connect catalog object to database
objCatalog.activeconnection = cnn
'loop through the tables in the catalog object
intRow = 1
Dim tablocuk As Object
Dim aralık As Range
For i = 0 To objCatalog.tables.Count - 1
'Çünkü veri tabanında 1 tane tablomuz olsa bile başka sistem tablolarıda var.
Set tablocuk = objCatalog.tables.Item(i)
With tablocuk
If .Type = "TABLE" Then
[COLOR="Red"] Cells(intRow, 1) = .Name 'Tablo Adı
Cells(intRow, 2) = .Columns(0).Name 'ilk sütun adı
Cells(intRow, 3) = .Columns(1).Name 'ikinci sütun adı
[/COLOR] intRow = intRow + 1
End If
End With
Next i
End Sub