Löschen via Query (ADO -> Jet -> mdb) ab Datum

[Bitworm]

Hi !

Ich möchte gerne in einer Tabelle (ADO -> Jet -> mdb) alle alten Eintrag ab
einem bestimmten Datum löschen. Dazu habe ich folgendes versucht:

Code:

      MCP.querycleanup.Close; 
      MCP.querycleanup.SQL.Text := 'DELETE FROM telegramme WHERE datum < :datumswert'; 
      MCP.querycleanup.ParamCheck := True;  
      MCP.querycleanup.Parameters.ParamByName('datumswert').DataType := ftDateTime; 
      MCP.querycleanup.Parameters.ParamByName('datumswert').Value := now-parameter.HaltezeitFMS; 
      MCP.querycleanup.Open;

Als Antwort kriege ich einen OLE-Fehler 80040E10 querycleanup ist vom Typ ADOQuery.
Hat jemand einen Tip für mich, was ich da die ganze Zeit falsch mache ?

[omata]

Moin,

für Abfragen die kein Ergebnis liefern (UPDATE, INSERT, DELETE) muss ExecSQL aufgerufen werden. Open wird nur für SELECT-Anweisungen benutzt.

MfG
Thorsten

[Bitworm]

@Omata: Danke für den Tip, aber leider hat es nicht viel gebracht. Der OLE-Fehler kommt immer noch

[omata]

Moin,

dann würde ich die Anweisung erstmal ohne Parametersteuerung ausprobieren.

Dieser eine Parameter kann doch auch direkt in die SQL-Anweisung geschrieben werden.

Delphi-Quellcode:

MCP.querycleanup.Close;
MCP.querycleanup.SQL.Text := 
  'DELETE FROM telegramme WHERE datum < '''+DateTimeToStr(now-parameter.HaltezeitFMS)+'''';
MCP.querycleanup.ExecSQL;

Hoffe, das hilft weiter

MfG
Thorsten

[Robert_G]

Zitat von omata:

Dieser eine Parameter kann doch auch direkt in die SQL-Anweisung geschrieben werden.

Wäre es eine Zahl (ohne Komma) OK, aber bei einem Datum?
@BitWurm
Das MUSS mit dem Parameter gehen!
Du benutzt auch wirklich ExecSql() und KEIN Open() ?

[Bitworm]

Guten Morgen,

das Problem ist gelöst . Der OLE-Fehler nach Änderung des Aufrufs nach ExecSQL wurde durch das Abfragen der falschen Feldbezeichnung ausgelöst (hatte ich zwischenzeitlich geändert ). Im ausgeschlafenen und wachen Zustand fiel es mir direkt auf. Danke allen die mir geholfen haben.