ADO - Refresh-Problem oder so

[hoika]

Hallo,

hoffentlich benutzt du query1 nicht noch an einer anderen Stelle.
Ich würde hier mal eine eigene Query nehmen, die auch nur hier benutzt wird (lokale Variable).


Heiko

[Rainer Wolff]

Zitat von hoika:

Hallo,

hoffentlich benutzt du query1 nicht noch an einer anderen Stelle.
Ich würde hier mal eine eigene Query nehmen, die auch nur hier benutzt wird (lokale Variable).


Heiko

Doch, genau das mache ich, eine procedure weiter beim einfügen von Datensätzen in selbige Tabelle. Ich werde das mal ändern, aber warum gibts damit Probleme?

Rainer

[Rainer Wolff]

Zitat von Rainer Wolff:

Zitat von hoika:

Hallo,

hoffentlich benutzt du query1 nicht noch an einer anderen Stelle.
Ich würde hier mal eine eigene Query nehmen, die auch nur hier benutzt wird (lokale Variable).


Heiko

Doch, genau das mache ich, eine procedure weiter beim einfügen von Datensätzen in selbige Tabelle. Ich werde das mal ändern, aber warum gibts damit Probleme?

Rainer

Das war aber auch nicht die Lösung des Problems. Ich habe eine separate Query fürs Löschen eingebaut, der Fehler kommt aber wieder.

[Bernhard Geyer]

Kannst du zwischendurch mal die Connection zu machen und wieder öffnen? Evtl. mal den Cache der JET-Engine leeren wie hier beschrieben.

Access/JET ist hier teilweise eine Schrottimplementierung die bei externen Zugriff über ADO probleme bereitet.

[Rainer Wolff]

Zitat von Bernhard Geyer:

Kannst du zwischendurch mal die Connection zu machen und wieder öffnen? Evtl. mal den Cache der JET-Engine leeren wie hier beschrieben.

Access/JET ist hier teilweise eine Schrottimplementierung die bei externen Zugriff über ADO probleme bereitet.

Thread mal wieder nach oben schubs....

Auch dieses habe ich inzwischen erfolglos probiert:

Delphi-Quellcode:

  query2.SQL.Text:='Delete from tbl_rueckmelden where ControlKey=:wert and Datum<:datum';
  query2.Parameters.ParamByName('wert').Value:=true;
  DelDate:=Date-DaysToKeep;
  query2.Parameters.ParamByName('datum').Value:=DelDate;
  query2.ExecSQL;
  FlushCache;
end;

procedure TdmProdProtokollBasis.FlushCache;
var
  aJet : IJetEngine;
  aConn : _Connection;
begin
//  ADOConnection1.Connected := True;
  aJet := CoJetEngine.Create;
  aConn := ADODB_TLB._Connection(Connection.ConnectionObject);
  aJet.RefreshCache(ADODB_TLB._Connection(aConn));