if (not) exists

[Ykcim]

Hallo Zusammen,

vielen Dank für die Anregungen. Sowohl die Abfrage des RecordCount (1=Spalte vorhanden; 0=Spalte nicht vorhanden), als auf Query.EOF (False=Spalte vorhanden, True=Spalte nicht vorhanden) funktioniert.

Ich habe es jetzt mit einer vorgeschaltenen Abfrage gelöst:

Delphi-Quellcode:

procedure TDownload.ColumnDel(Query: TUniQuery; Tabelle: string; Spalte: string);
begin
   Query.SQL.Clear;
   Query.SQL.Add('Show columns from '+Tabelle+' ');
   Query.SQL.Add('where field= :Spalte ');
   Query.ParamByName('Spalte').AsString:=Spalte;
   Query.Open;
   if Query.Eof=false then
      showmessage('Spalte wird gelöscht, weil schon vorhanden');
end;

procedure TDownload.ColumnAdd(Query: TUniQuery; Tabelle: string; Spalte: string);
begin
   Query.SQL.Clear;
   Query.SQL.Add('Show columns from '+Tabelle+' ');
   Query.SQL.Add('where field= :Spalte ');
   Query.ParamByName('Spalte').AsString:=Spalte;
   Query.Open;
   if Query.Eof=true then
      showmessage('Spalte wird hinzugefügt, weil noch nicht vorhaden');

Vielen Dank
Patrick