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