DefaultExpression aus Access DB wird nicht ausgelesen

[Sommerkind]

Hallo Leute,

vielleicht könte mir jemand mit dem folgenden Problem helfen.
Ich habe zwei MS Access DatenBanken (Access 2000-Dateiformat), eine alte und eine neue. Ich möchte aus der neue die fehlende Felder auslesen und in die alte DB einfügen. Dafür mache ich eine Schleife durch die Felder, prüfe, welche es nicht gibt, lese ihre Namen, Datentyp UND DEFAULTWERT aus usw.
Das alles funktioniert prima, nur das die DefaultExpression komischerweise immer leer bleibt... als ob da nichts steht, aber da stehen die Werte.
Hier ein Stück Code:

SQLdatentype := FieldTypeToSQLType(Data.DB.FieldTypeNames[RefQuery.Fields[x].DataType]);
if SQLdatentype <> '' then
begin
SQLText := 'ALTER TABLE alteTabelle ADD '+ RefQuery.Fields[x].FieldName + ' ' + SQLdatentype;
if SQLdatentype = 'VARCHAR' then
SQLText := SQLText + '(' + RefQuery.Fields[x].Size.ToString + ')';
if RefQuery.Fields[x].DefaultExpression <> '' then // immer leer :(
SQLText := SQLText + ' DEFAULT ' + RefQuery.Fields[x].DefaultExpression;

Der Weg mit DBQuery.Fields.Add(NewField) habe ich auch schon versucht, er spuckt keine Fehler, aber die DB bekommt keine neue Felder.

[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