Query = nil nach Query.open...aber nicht immer

[noisy_master]

Hallo Gemeinde,

mir ist ein völlig schräges Problem über den Weg gelaufen, und ich habe keine Idee, wie dies zu fixen ist:
ich habe ein query1(TQuery) auf der Form. Das ist komplett richtig gefüllt(Datenbank, etc.) Dann fülle ich das SQL mit einem richtig simplen query: Select * FROM MYTABLE.Db WHERE MEINFELD='wasauchimmer'
dann gibt es das obligatorische query1.open.

Meistens geht alles gut, aber ab und an(keine Ahnung unter welchen Umständen) ist das query1 nach dem Open NIL!!!
Und dann schmeißt sich das Programm natürlich bei Abfrage auf query1.recordcount mit einer Exception auf den Rücken ;-(

Hat irgendwer das auch schon mal gehabt und kennt dafür vielleicht auch zufällig eine Lösung?

Danke im Voraus!

[Neutral General]

Ich schätze fast dass das nichts mit der Query zu tun hat, sondern dass du da irgendwelche Speicher/Pointer Probleme hast die dir manchmal deine Query-Variable zerschießen.
Benutzt du irgendwo "in der Nähe" Pointer oder greifst du auf irgendeine (COM-)API o.ä. zu? Ist da irgendwo vllt. eine Schleife die z.B. in ein Array schreibt und übers Ziel hinausschießt? (-1 vergessen?)

[noisy_master]

das interessante daran ist, wenn ich durchsteppe komme ich noch zu dem query.sql.add(querystring),
query.open(bis hierher ist das query auch noch gültig) und wenn ich über das query.open drübersteppe ist das query hinterher= nil!!

Keine Threads, keine Timer, kein COM kein nichts....

[DeddyH]

Zeig doch mal Code.

[noisy_master]

nicht hübsch und nicht spannend:

Delphi-Quellcode:

function TDataModule1.OpenCommand(query : string;field:string;var value: string; firstrecord : boolean = True) : boolean;
begin
  query1.close;
  query1.sql.clear;
  query1.sql.add(query);                          // hier ist es noch ok
try
  value := '';
  query1.Open;                                    // hier auch noch
  if query1.RecordCount > 0 then                  // rumms.....
  begin
    if not firstrecord then
      query1.last;
    value := query1.fieldbyname(Field).AsString;
  end;
  query1.close;
  result := true;
except
  query1.close;
  result := false;
end;
end;

aber wie schon gesagt: es funktioniert nicht prinzipiell nicht sondern nur manchmal!

[Neutral General]

Zitat:

Zitat von noisy_master (Beitrag 1326896)

aber wie schon gesagt: es funktioniert nicht prinzipiell nicht sondern nur manchmal!

Gerade dieses "manchmal" ist sehr verdächtig.
Rufst du diese Methode aus nem Thread heraus auf? Oder irgendwelche anderen asynchronen Geschehnisse?

[noisy_master]

ja, sehe ich genau so, aber: siehe oben: kein Thread, kein Timer, kein COM, kein nichts ;-)

[Bernhard Geyer]

Zitat:

Zitat von noisy_master (Beitrag 1326899)

ja, sehe ich genau so, aber: siehe oben: kein Thread, kein Timer, kein COM, kein nichts ;-)

Aber Paradox und BDE.
Ich will ja nicht Meckern - Aber muss man bei dieser Konstellation und aktuellen Windows-Versionen nicht mit allen möglichen Problemen rechnen - außer das was funktioniert?
BDE und zugriff auf ODBC-Quelle geht ja noch notfalls (in Legacy-Apps).

[Neutral General]

Zitat:

Zitat von noisy_master (Beitrag 1326899)

ja, sehe ich genau so, aber: siehe oben: kein Thread, kein Timer, kein COM, kein nichts ;-)

Ob die Methode von einem Thread aufgerufen wird kann man an dem Code nicht erkennen ;)

Rufst du irgendwo an anderer Stelle FreeAndNil auf oder setzt Query1 auf nil?
Falls ja setz mal einen Breakpoint an diese Stellen.

Hat die Query irgendwelche Ereignisse oder ist die Query über eine Datasource mit einem oder mehreren Controls verbunden die Ereignisse haben?
Falls ja: Mach mal Breakpoints in diese Ereignisse und beobachte mal Query1 wärend du durchstepst.

Falls das alles nicht zutrifft (oder du es trotzdem mal probieren willst):

Knallt es auch wenn du eine lokale Query-Variable anlegst und dieser Query1 zuweist und damit weiter arbeitest?
Quasi so:

Delphi-Quellcode:

function TDataModule1.OpenCommand(query : string;field:string;var value: string; firstrecord : boolean = True) : boolean;
var dummyQuery: TQuery; // Oder welche Query Klasse du auch immer verwendest
begin
  dummyQuery := query1;

  dummyQuery .close;
  dummyQuery .sql.clear;
  dummyQuery .sql.add(query); // hier ist es noch ok
try
  value := '';
  dummyQuery .Open; // hier auch noch
  if dummyQuery .RecordCount > 0 then // rumms.....
  begin
    if not firstrecord then
      query1.last;
    value := dummyQuery .fieldbyname(Field).AsString;
  end;
  dummyQuery .close;
  result := true;
except
  dummyQuery .close;
  result := false;
end;
end;

[Uwe Raabe]

Gibt es irgendwelche Events, die direkt oder indirekt mit der Query verdrahtet sind?

[noisy_master]

Okay, das mit dem lokalen Query werde ich nochmal versuchen... und ja, du hast Recht, das der Aufruf der Funktion nicht aus einem Thread kommt kann man wirklich nicht erkennen...aber dafür hatte ich es ja auch extra hingeschrieben ;-)
FreeAndNil mache ich definitiv auch nicht..


Das die Benutzung der BDE nicht mehr state-of-the-art ist ist mir schon klar!


Nein, keine events, die mit dem Query verdrahtet sind weder direkt noch indirekt... alles extrem straight-forward ohne irgendwelche "Schleifchen" dran

[nahpets]

Zitat:

Zitat von DeddyH (Beitrag 1326894)

Zeig doch mal Code.

und nenne uns das Betriebssystem.

Die BDE zickt unter XP schon sehr arg rum, unter neueren Betriebssystemen wird das (vermutlich) kaum besser geworden sein.

Die gleichzeitige Funktion mehrerer Programme, die die BDE nutzen, ist unter XP schon häufig nicht möglich, auch eine saubere Beendung der Programme kann scheitern.
Den bleiben unbrauchbare Reste der BDE im Speicher, die später dann irgendwie "zuschlagen".

BDE-Programme nutzen (soweit ich das mitbekommen habe) einen gemeinsamen Speicherbereich. Wenn das nicht sauber funktioniert, dann kann da jeder beliebige "Müll" im Arbeitsspeicher entstehen. Warum nicht auch mal 'ne zerschossenen Query?

Je nach Datenbank kann dieser Quellcode mit der BDE auch scheitern:

Delphi-Quellcode:

 if query1.RecordCount > 0 then // rumms.....
  begin
    if not firstrecord then
      query1.last;
    value := query1.fieldbyname(Field).AsString;
  end;

query1.RecordCount zählt die Sätze, indem es durch die Datenmenge läuft. Ist der letzte Satz erreicht, enthält RecordCount die Anzahl der Sätze. Der Datensatzzeiger der Query steht dann auf dem letzten Satz.

Hier wäre eventuell ein

Delphi-Quellcode:

begin
    if firstrecord then query1.First else    query1.last;

sinnvoller.

Hierbei möchte ich nicht ausschließen, dass, abhängig vom Dateninhalt der Abfrage, beim Durchlaufen der Datenmenge, um RecordCount zu ermitteln, irgendwas im Speicher "zerschossen" wird.

Um festzustellen, ob überhaupt etwas in der Ergebnismenge ist, könnte eventuell auch sowas reichen:

Delphi-Quellcode:

 if not query1.EoF then
  begin
    if firstrecord then query1.First
    else query1.last;
    value := query1.fieldbyname(Field).AsString;
  end;

[nahpets]

Falls es mit der BDE nicht klapp, schau bitte mal, ob Du Dir über die ODBC einen Treiber für Paradox einrichten kannst, da sollte eigentlich einer von Microsoft vorhanden sein.

Wenn das geht, könntest Du statt der BDE eventuell ADO-Componenten nutzen.

[p80286]

Versuch es mal mit

Delphi-Quellcode:

self.Query1

ich meine mich zu erinnern, daß ich mal vor die selbe wand gelaufen bin.

Gruß
K-H

[Bernhard Geyer]

Zitat:

Zitat von nahpets (Beitrag 1326909)

Falls es mit der BDE nicht klapp, schau bitte mal, ob Du Dir über die ODBC einen Treiber für Paradox einrichten kannst, da sollte eigentlich einer von Microsoft vorhanden sein.

Wenn das geht, könntest Du statt der BDE eventuell ADO-Componenten nutzen.

Es gibt doch auch native Delphi-Komponenten die ohne BDE auf Paradox zugreifen können.
Mit ADO und ODBC kommt ja auch u.U. die BDE wieder ins Spiel da der MS-Treiber (Access-JET-Treiber) bei installierter BDE diesen verwendet.

[HeZa]

Ich gehe davon aus das du bewusst oder unbewusst dein Quere Objekt freigibst.

1. Das könntest du wie folgt prüfen:
2. Übersetze dein Programm mit Debug DCUs
3. Setze einen Breakpoint im Destructor der Query
4. Wenn dein Programm an der Stelle anhält analysierst du den Aufrufstack

.

Findest du da keine Stelle die dir Spanisch vorkommt, dann hast du ein anderes Problem :-D

[ibp]

Zitat:

Zitat von noisy_master (Beitrag 1326896)

nicht hübsch und nicht spannend:

Delphi-Quellcode:

function TDataModule1.OpenCommand(query : string;field:string;var value: string; firstrecord : boolean = True) : boolean;
begin
  query1.close;
  query1.sql.clear;
  query1.sql.add(query);                          // hier ist es noch ok
try
  value := '';
  query1.Open;                                    // hier auch noch
  if query1.RecordCount > 0 then                  // rumms.....
  begin
    if not firstrecord then
      query1.last;
    value := query1.fieldbyname(Field).AsString;
  end;
  query1.close;
  result := true;
except
  query1.close;
  result := false;
end;
end;

aber wie schon gesagt: es funktioniert nicht prinzipiell nicht sondern nur manchmal!

Ich würde auf Recordcount nicht abfragen, dass kann nur in die Hose gehen.


Wie wäre es mit....

Delphi-Quellcode:

function TDataModule1.OpenCommand(query : string;field:string;var value: string; firstrecord : boolean = True) : boolean;
var
  aQuery : TQuery;
begin
  Result := False;
  value := '';
  aQuery := TQuery.Create(nil);
  try
    try
      aQuery.Database := XYZ
      aQuery.sql.text := query;
      aQuery.Open;
      if not aQuery.Eof then
      begin
        if not firstrecord then aQuery.last;
        value := aQuery.fieldbyname(Field).AsString;
        Result := True;
      end
      else
      begin
        Value := 'Keine Ergebnismenge!'
      end;
      aQuery.Close;
    except
      On e.Exception .....
    end;
  finally
    aQuery.Free
  end;
end;

[noisy_master]

da sind ja ein paarinteressante Tips bei...Danke euch allen erstmal!
Werde mal testen und dann berichten....

[Dejan Vu]

Wo wird Query1 deklariert?
Wenn Du einen Buffer-Overrun hast, dann kann Query1 plötzlich 'zerstört' sein. Beispiel

Delphi-Quellcode:

Var
  EinArray : Array [0..10] of Byte;
  Query1 : TQuery;
  i : integer;

begin
  Query1 := TQuery.Create;

  for i:=0 to 14 do EinArray[i] := 0;
  // Query1 ist Nil;

Das geht nur, wenn RangeChecks ausgeschaltet sind (sind sie aber per Default).

Obskure Fehler dieser Art sollten sich mit FastMem finden lassen.

[nahpets]

Zitat:

Zitat von Bernhard Geyer (Beitrag 1326911)

Zitat:

Zitat von nahpets (Beitrag 1326909)

Falls es mit der BDE nicht klapp, schau bitte mal, ob Du Dir über die ODBC einen Treiber für Paradox einrichten kannst, da sollte eigentlich einer von Microsoft vorhanden sein.

Wenn das geht, könntest Du statt der BDE eventuell ADO-Componenten nutzen.

Es gibt doch auch native Delphi-Komponenten die ohne BDE auf Paradox zugreifen können.
Mit ADO und ODBC kommt ja auch u.U. die BDE wieder ins Spiel da der MS-Treiber (Access-JET-Treiber) bei installierter BDE diesen verwendet.

Kenne nur eine Komponente, die auf dBase-Dateien zugreifen kann, sie kann aber kein SQL.

Microsoft hat(te) einen eigenen Treiber für Paradox, der per ADO auch dann funktioniert, wenn keine BDE installiert ist.

[HolgerX]

Für Paradox mit ADO wird kein weiterer Treiber benötigt, die Jet-Engine reicht aus..

Als Connection-String einfach:

Code:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Temp\;Extended Properties=Paradox 5.x;Persist Security Info=False

verwenden.

Hierzu bei 'Data Source' das Verzeichnis angeben.

Mit der Jet-Engine können neben Paradox auch dBase Datenbankdateien geöffnet werden.

Dann z.B. mit einem ADOQuery ein Select * from <Tabellenname> und fertig.

[noisy_master]

Hallo zusammen,

es wird immer schräger, aber jetzt funktioniert es, warum auch immer:
Ich habe es mit dem lokalen Query probiert, danach ging es -soweit so gut! Etwas später habe ich dann testhalber den lokalen Query wieder rausgeschmissen und es funktioniert immer noch!!!

Das verstehe wer will... aber wie dem auch sei: Danke an euch alle!