TADOTable Properties

[Uwe.Helmer]

Hallo Miteinander,
wie kann ich bei einer TADO Table die auf eine Accesstabelle zeigt, die Property ['Description'] auslesen.

Danke.
Uwe

[wp]

Hallo, Uwe

ich habe schon seit einiger Zeit dieselbe Frage, bin aber nun selbst auf die Lösung gekommen:

<PRE>
function GetFieldDescription(AConnection:TADOConnection;
const ATable,AField:string) : string;
var
ds : TADODataset;
begin
result := '';
ds := TADODataset.Create(nil);
try
ds.Connection := AConnection;
AConnection.OpenSchema(siColumns, EmptyParam, EmptyParam, ds);
ds.Locate('TABLE_NAME;COLUMN_NAME', VarArrayOf([ATable,AField]), []);
result := ds.FieldByName('DESCRIPTION').AsString;
finally
ds.Free;
end;
end;
</PRE>

Gruß, Werne