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 von noisy_master:

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 von noisy_master:

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 von noisy_master:

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?