Hallo habe folgenden Source der eine
Exception auslöst, ich denke es ist der Tabellen Name, den ich verkehrt übergebe! Die Tabelle und das Feld existieren aber!
Wenn ich die Zeilen ändere in
"
sql.Add('alter table '+deltable+' drop '+delfld);" dann passiert der gleiche Mist!
http://www.delphipraxis.net/images/smiles/wall_bash.gif
Aber wenn ich es so mache
"
sql.Add('alter table '+edTabTname.Text+' drop '+edTabPrefix.Text+'_'+edFldName.Text);", dann klappt es!
http://www.delphipraxis.net/images/smiles/gruebel.gif Wie geht dem ???
Delphi-Quellcode:
if ifid_pkey='
'
then exit;
deltable:=edTabTname.Text;
// Tabelle
delfld:=edTabPrefix.Text+'
_'+edFldName.Text;
// Feld
with quWorkTables
do begin
sql.clear;
sql.Add('
alter table :tble drop :fld');
params.ParamByName('
tble').AsString := deltable;
params.ParamByName('
fld').AsString := delfld;
try
ExecSQL;
// Tabelle löschen
except
on E:
Exception do ShowMessage('
Fehler beim löschen des Feldes "'+delfld+'
"'+#13+
'
in Tabelle "'+deltable+'
"!'+#13+
E.
Message);
end;
// try..except
end;
// with