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?

[ibp]

Zitat von 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!

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;

[nahpets]

Zitat von DeddyH:

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.