Automatische Felder in der Access-DB erzeugen

[MrSpock]

Hallo m-werk,

irgendwo im Sichtbereich der Stelle, an der du darauf zugreifst.

Also z.B.:

Code:

procedure TForm1.Button1Click(Sender: TObject);
const
   FeldName : array[1..4] of String = ('Kinder', 'Geld', 'BlaBla', 'Hallo');
var i : string;
begin
  for i := 1 to 4 do
  begin
    if Not DataModule2.TheTable.FindField(FeldName[i]) then
    begin
       DataModule2.ADOQuery1.Close;
       DataModule2.ADOQuery1.SQL.Clear;
       DataModule2.ADOQuery1.SQL.Add(InsertStr[i]);
       DataModule2.ADOQuery1.ExecSQL
     end
   end
end;

Greifst du auch noch an anderen Stellen darauf zu, dann musst du die Deklaration z.B. for die Klassendeklaration der unit schreiben.