Hallo zusammen
Wie kann ich mit ADO => Ver. 2.5 ALLE Informationen eines Attributes in einer Access DB => Ver 2000 auslesen?
Also auch die Beschreibung, welche zu diesem Attribut in der Accesstabelle steht?
Muss dazu ADOX verwendet werden?
Grüsse und Dank Peter
Ja, das geht z.B. so:
Public Function GetDescription(Optional TblName = "MeineTabelle", \_
Optional ColName = "MeinFeld")
Dim Cat As New ADOX.Catalog, Tbl As ADOX.Table, \_
Col As ADOX.Column, Prp As ADOX.Property, Tmp
Cat.ActiveConnection = \_
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Temp\Test.mdb"
Set Tbl = Cat.Tables(TblName)
Set Col = Tbl.Columns(ColName)
Tmp = ""
On Error Resume Next
Tmp = Properties("Description").Value
On Error GoTo 0
GetDescription = Tmp
End Function
Gruß aus dem Norden
Reinhard Kraasch
(http://www.kraasch.de - Access Tipps & Tricks)
Besten Dank und Gruss aus der Mitte!
o.T.