Registriert seit: 24. Mai 2006
Ort: Sachsen
65 Beiträge
Delphi 7 Enterprise
|
Re: Löschabfrage
24. Sep 2006, 18:08
Hey,
Delphi-Quellcode:
procedure TMainForm.Stundenlschen1Click(Sender: TObject);
begin
with ABSQuery1 do
begin
sql.Text := ' Delete from tblBstAZ '
+' WHERE Datum BETWEEN :von and :bis ';
ParamByName(' von').AsDateTime := StrToDateTime(InputBox(' InputBox',' Erstes Datum angeben!',' Anfangswert'));
ParamByName(' bis').AsDateTime := StrToDateTime(InputBox(' InputBox',' Zweites Datum angeben!',' Endwert'));
open;
end;
MessageDlg(' Daten gelöscht!', mtInformation,[mbOk], 0);
end;
Das Problem ist leider immer noch.
mfg Norbert
Norbert Springer
|
|
Zitat
|