Zitat von
sx2008:
Delphi-Quellcode:
if sender = Button1 then // Wozu? Weg mit der If-Abfrage
Begin
IBSQL1.Close; // unnötig
IBSQL1.SQL.text := 'Insert into tabelle ('+FeldListe+') values ('+WertListe+')';
IBSQL1.ExecQuery;
IBSQL1.Close; // unnötig
end;
Das
"if sender = Button1 then" ist nur da ich verschiedene Versionen teste also TIBSQL,TIBScript usw.
Ich habe es mal in
Delphi-Quellcode:
// if sender = Button1 then
Begin
// IBSQL1.Close;
IBSQL1.SQL.text := 'Insert into PCBCasioZBPos ('+FeldListe+') values ('+WertListe+')';
IBSQL1.ExecQuery;
// IBSQL1.Close;
end;
Geändert : macht ca 0,02Sekunden aus