Löschabfrage

[norbert3]

Hey Leute,
ich komme wieder mal nicht weiter. Mein Problem: Ich möchte nach Auswahl eines Datums Datensätze löschen. Nach der Fehlermeldung "Error creating table handling - Native error 20001" löscht er exakt die Datensätze die er auch soll. Was mach ich den da falsch??

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').asString := InputBox('InputBox','Erstes Datum angeben!','Anfangswert');
    ParamByName('bis').asString := InputBox('InputBox','Zweites Datum angeben!','Endwert');
   open;
   end;
    MessageDlg('Daten gelöscht!', mtInformation,[mbOk], 0);
end;

Danke für eure Mühe im voraus.
mfg Norbert

[mkinzler]

Hast du schon versucht die parameter als TDatetime zu setzen?

[enricoffo]

Es kann aus sein, das du die eingegebenen Datum erst in SQL-Datum wandeln mußt. Das Problem hatte ich oft.
Da ist dann 13.12.2006 nicht möglich, sondern 12/13/2006.

[norbert3]

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

[norbert3]

Hey enricoffo

mit dem Datum anpassen könnte ich ei paar erklärende Worte brauchen. Bitte.

mfg Norbert

[mkinzler]

Zitat von norbert3:

Hey enricoffo

mit dem Datum anpassen könnte ich ei paar erklärende Worte brauchen. Bitte.

mfg Norbert

Dieses Problem umgehst du schon durch den Einsatz von Parametern.

hast du mal in der ABS Doku nachgeschaut was der fehler im Detail bedeutet?

[norbert3]

Hey mkinzler,
in der Doku habe ich nur das gefunden:

Zitat:

5. Running the following code I get the following exception message:
"Error creating table handle - Native error: 2001"
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Query->SQL->Text = "INSERT INTO friends(name) VALUES ('Joseph') " ;
Query->Open();
}

INSERT, UPDATE, and other queries which don't return any data must be called by
TABSQuery->ExecSQL() method instead of TABSQuery->Open().

mfg Norbert

[mkinzler]

Sagt doch alles DML-Abfragen liefern keine ergebnismenge zurück und müßen mit .ExecSQL ausgeführt werden.

[norbert3]

wie rufe ich den diese Function auf?

[mkinzler]

Statt Open; ExecSQL;