DefaultExpression aus Access DB wird nicht ausgelesen

[Sommerkind]

Falls jemand das gleiche Problem hat, hier ist meine Lösung:

Delphi-Quellcode:

var
DS: TADODataSet;
Field1, Field2: TField;


DS := TADODataSet.Create(nil);
DS.Connection := MeineConnection;
MeineConnection.OpenSchema(siColumns, VarArrayOf([NULL, NULL, MeineTabelle]), EmptyParam, DS);
Field1 := DS.FindField('COLUMN_NAME');
Field2 := DS.FindField('COLUMN_DEFAULT');
SQLText := 'ALTER TABLE ' + MeineTabelle + ' ALTER COLUMN ' + Field1.AsString + ' SET DEFAULT ' + Field2.AsString;
MeineQuery.SQL.Text := SQLText;
MeineQuery.ExecSQL();

Viele Grüße