SQL Abfrage dauert ewig

[value is NULL]

cool DANKE

Flutscht einwandfrei

[gmc616]

Zitat von Bummi:

versuch mal statt while not eof ... next, ist um Welten schneller

Delphi-Quellcode:

   while not Adodataset1.RecordSet.EOF do
    begin
       sl.Add(Adodataset1.RecordSet.Fields[0].Value);
       Adodataset1.RecordSet.MoveNext;
    end;

Kurze Zwischenfrage, wo ist der Unterschied?

[p80286]

Ich schließe mich dieser Frage an, da dies hier nur Fehler produzier:

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
var
  liste:TStringList;
  sz1 :Integer;
  sz2 : Integer;
  sz3 : Integer;
begin
  liste:=TStringList.Create;
  sz1:=0;
  sz2:=0;
  sz3:=0;
  adoquery1.Close;
  sz1:=gettickcount;
  adoquery1.open;
  sz2:=GetTickCount;
  Form1.Caption:=IntToStr(liste.Count)+'  '+IntToStr(sz2-sz1)+' >>Open  '+IntToStr(sz3-sz2)+' >>GetData';
  Application.ProcessMessages;
  if not(adoquery1.Eof) then
    repeat
      liste.Add(adoquery1.Fields[0].asstring);
      adoquery1.Next;
    until adoquery1.eof;
  sz3:=GetTickCount;
  adoquery1.Close;
  Form1.Caption:=IntToStr(liste.Count)+'  '+IntToStr(sz2-sz1)+' >>Open  '+IntToStr(sz3-sz2)+' >>GetData';
  liste.Free;
end;

procedure TForm1.btn2Click(Sender: TObject);
var
  liste:TStringList;
  sz1 :Integer;
  sz2 : Integer;
  sz3 : Integer;
begin

  liste:=TStringList.Create;
  sz1:=0;
  sz2:=0;
  sz3:=0;
  adoquery1.Close;
  sz1:=gettickcount;
  adoquery1.open;
  sz2:=GetTickCount;
  Form1.Caption:=IntToStr(liste.Count)+'  '+IntToStr(sz2-sz1)+' >>Open  '+IntToStr(sz3-sz2)+' >>GetData';
  Application.ProcessMessages;
  if not(adoquery1.recordset.Eof) then
    repeat
      liste.Add(adoquery1.Recordset.Fields[0].value);
      adoquery1.Recordset.MoveNext;
    until adoquery1.eof;
  sz3:=GetTickCount;
  adoquery1.Close;
  Form1.Caption:=IntToStr(liste.Count)+'  '+IntToStr(sz2-sz1)+' >>Open  '+IntToStr(sz3-sz2)+' >>GetData';
  liste.Free;
end;

---------------------------
Project1
---------------------------
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
---------------------------
OK
---------------------------

Gruß
K-H

[Bummi]

auch bei
 While not adoquery1.RECORDSET.EOF

[p80286]

Zauberei:

Delphi-Quellcode:

 while not(adoquery1.recordset.Eof) do begin
    liste.Add(adoquery1.Recordset.Fields[0].value);
    adoquery1.Recordset.MoveNext;
  end;

warum wird repeat ..until .eof so verschmäht?

Gruß
K-H

P.S.
Das fluppt wirklich!!

[Bummi]

Ist IMHO nicht intuitiv ....

Ich denke das Problem lag hier ...

adoquery1.Eof statt adoquery1.recordset.Eof

[p80286]

*schäm*
*schäm*

Du hast Recht, bleibt die Frage warum. Zumindest die OH von 2006 warnt davor das RecordSet zu nutzen:

Zitat:

Hinweis:
Verwenden Sie diese Eigenschaft nur, wenn Sie mit ADO-Objekten und speziell mit ADO-Verbindungsobjekten vertraut sind. Die entsprechenden Informationen finden Sie in der Hilfe zum Microsoft SDK.

Gruß
K-H

[shmia]

@Value is NULL:
Welche konkreter Typ hat bei dir eigentlich der Parameter DestList: TStrings ?
Ich frage deshalb, weil es ein Riesenunterschied (Faktor 50) in Bezug auf die Performance ist ob man eine TStringList (schnell) oder TMemoStrings (langsam) verwendet.

[Bummi]

@p80286

nicht ganz umsonst, TAdoDataset packt einen Haufen Watte um die Recordsets, mit den Varianten bei NULL-Sätzen gilt es umzugehen ... die "Oberfläche" ab TADODataset kann sich desynchronisieren etc.
Aber für Fälle wie in o.g. Anforderung sehe ich kaum Probleme ...

[Furtbichler]

Soweit ich mich erinnere, war 'Next' der Pferdefuß