SQL Abfrage dauert ewig

[p80286]

Zitat von Bernhard Geyer:

hast du auch richtige Curserlocation

Was wäre denn "richtig"?

@value is null
3.8 Mio Datensätze?
und nur IDs wen interessiert das??

Gruß
K-H

OK es sind immer die gleichen Rückfragen, die hier gestellt werden.

[Bernhard Geyer]

Zitat von p80286:

Zitat von Bernhard Geyer:

hast du auch richtige Curserlocation

Was wäre denn "richtig"?

Kommt auf die DB an.
MS SQL Server: clUseClient
MS Access: clUseServer

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

3.8 Mio - MS
.eof ;
Offen 15817
Fertig ?? abgebrochen nach 5 Minuten

.Movenext
Offen 15007
Fertig 29827

[value is NULL]

also das is geil!

Delphi-Quellcode:

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

da liegen ja welten dazwischen!

[Bummi]

freut mich dass es Dich freut ...

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