Feldnamen auslesen

03/08/2008 - 07:32 von Gernot Adams | Report spam
hi,
ich würde gerne die Feldnamen von Tabellen auslesen und in eine Tabelle
schreiben. Kann mir dabei jemand helfen?

Danke und Gruß
Gernot
 

Lesen sie die antworten

#1 Reiner Wolff
03/08/2008 - 10:02 | Warnen spam
Moin Gernot,

*Gernot Adams* schrieb:
ich würde gerne die Feldnamen von Tabellen auslesen und in eine Tabelle
schreiben. Kann mir dabei jemand helfen?



Ich habe dazu ein kleinen Excel-VBA-Code, der dies erledigt.
Passe ihn einfach für Deine Zwecke an.










Sub ADOTabellenAuflistenMDBTabellen()
Dim cn As ADODB.Connection
Dim rec As ADODB.Recordset
Dim strDatei As String

strDatei = "C:\db2.mdb"

Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & strDatei & ";"
.Open

Set rec = cn.OpenSchema(adSchemaTables)
ActiveWorkbook.Sheets(1).Cells(1, 1).CopyFromRecordset rec
rec.Close
Set rec = Nothing
End With '(1) cn
cn.Close
Set cn = Nothing
End Sub '(0) ADOTabellenAuflisten()

Sub ADOTabellenAuflistenMDBSpalten()
Dim cn As ADODB.Connection
Dim rec As ADODB.Recordset
Dim strDatei As String

strDatei = "C:\db2.mdb"

Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & strDatei & ";"
.Open

Set rec = cn.OpenSchema(adSchemaColumns, Array(Empty, Empty, "Tabelle1"))
ActiveWorkbook.Sheets(1).Cells(1, 1).CopyFromRecordset rec
rec.Close
Set rec = Nothing
End With '(1) cn
cn.Close
Set cn = Nothing
End Sub '(0) ADOTabellenAuflisten()
<<<<

Als Quelle für die Funktion OpenSchema würde ich Dir zum selberbasteln
folgende Links empfehlen:
http://www.w3schools.com/ADO/met_co...schema.asp
http://support.microsoft.com/kb/186246

HTH
Gruß aus Kiel
Reiner
EDV = Ende Der Vernunft

Ähnliche fragen