AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi Löschen via Query (ADO -> Jet -> mdb) ab Datum

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

Ein Thema von Bitworm · begonnen am 18. Jan 2005 · letzter Beitrag vom 19. Jan 2005
Antwort Antwort
Benutzerbild von Bitworm
Bitworm

Registriert seit: 28. Jun 2004
Ort: Bockhorn
90 Beiträge
 
Delphi 11 Alexandria
 
#1

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

  Alt 18. Jan 2005, 23:54
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 ?

Rolf Heinen
Bye und bis denne

Bitworm
  Mit Zitat antworten Zitat
omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#2

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

  Alt 19. Jan 2005, 00:40
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
  Mit Zitat antworten Zitat
Benutzerbild von Bitworm
Bitworm

Registriert seit: 28. Jun 2004
Ort: Bockhorn
90 Beiträge
 
Delphi 11 Alexandria
 
#3

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

  Alt 19. Jan 2005, 01:10
@Omata: Danke für den Tip, aber leider hat es nicht viel gebracht. Der OLE-Fehler kommt immer noch
Rolf Heinen
Bye und bis denne

Bitworm
  Mit Zitat antworten Zitat
omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#4

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

  Alt 19. Jan 2005, 02:16
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
  Mit Zitat antworten Zitat
Robert_G
(Gast)

n/a Beiträge
 
#5

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

  Alt 19. Jan 2005, 02:20
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() ?
  Mit Zitat antworten Zitat
Benutzerbild von Bitworm
Bitworm

Registriert seit: 28. Jun 2004
Ort: Bockhorn
90 Beiträge
 
Delphi 11 Alexandria
 
#6

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

  Alt 19. Jan 2005, 08:55
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.
Rolf Heinen
Bye und bis denne

Bitworm
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:41 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz