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

[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).

[Uwe Raabe]

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

[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;

[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;

[noisy_master]

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