Wie füge ich zur Laufzeit ein Feld in eine Accesstabelle ein

[niao]

Hi,

vielen Dank! Jetzt funktioniert es.

procedure SetNewFiled(aConnection: TADOConnection; TableName, FieldName: String);
var
ADOQuery: TADOQuery;
begin
with ADOQuery.Create(nil) do
try
ConnectionString := GetDSN;
Connection := aConnection;
SQL.Text := 'ALTER TABLE ' + TableName + ' ADD COLUMN ' + FieldName +' varchar(200)';
ExecSQL;
finally
Free;
end;
end;