MaxRecords wird in ADOQuery ignoriert

[Nalincah]

Auszug:

Delphi-Quellcode:

  
...
ExportQuery.DisableControls;
ExportQuery.MaxRecords := 200;
ExportQuery.Close;
ExportQuery.SQL.Text := Query.SQL.Text;
ExportQuery.Open;
ShowMessage(IntToStr(ExportQuery.MaxRecords)+', '+IntToStr(ExportQuery.RecordCount));
FrmSQLVorschau.MemoVorschau.Clear;
ExportQuery.First;
...

Das Problem ist: MaxRecords und RecordCount ist nicht gleich. Müsste doch eigentlich beides "200" sein, oder?? Der lädt immer 9089 Datensätze

Was hab ich falsch gemacht?

[Nalincah]

*push*

[edit=Sharky] :warn: Nach 70 Minuten zu pushen ist ja wohl der Hammer! Bitte halte dich an die Regeln. Mfg, Sharky[/edit]

[edit]SORRY[/edit]

[Bernhard Geyer]

Ich vermute mal einen Implementierungsfehler der ADOExpress-Komponenten. Falls Du MS-SQL-Server verwendest, so schau mal mit dem SQl-Profiler auf die erzeugten Anweisungen
Einfacher ist es deine Anweisung mit TOP xyz zu versehen.

Code:

SELECT TOP 200 FROM xyz

[Robert_G]

Zitat:

Zitat von Bernhard Geyer

Einfacher ist es deine Anweisung mit TOP xyz zu versehen.

Code:

SELECT TOP 200 FROM xyz

Das ist auch für den DB Server einfacher ;)
Wenn man ihm einen StopKey verpasst sieht der Query Plan meist ganz anders aus.
Für < 100/200 Einträge wird er wohl nicht auf Durchsatz, sondern auf Antwortzeit optimieren. MaxRecords in ADO wird wahrscheinlich im Normalfall alle späteren DS ignorieren.

[Nalincah]

Ich benutzt aber SAP DB 7.4 und das kennt kein TOP

Mit der ADOTable klappt es auch nicht
Hab mal ein Beispielprog drangehängt

Die Connection müsste dabei angepasst werden

[Bernhard Geyer]

Zitat:

Zitat von General2004

Ich benutzt aber SAP DB 7.4 und das kennt kein TOP

Evtl. gibt es einen entsprechenden ersatz. Schau mal die Doku durch.

Zitat:

Zitat von General2004

Mit der ADOTable klappt es auch nicht
Hab mal ein Beispielprog drangehängt
Die Connection müsste dabei angepasst werden

1, Das Beispielprogramm konnte ich nicht öffnen (hab nur ~dsk-Datei gesehen). Kannst Du es evtl als ZIP anlegen?
2, Ich habe es mit einem eigenen Testprogramm mit MS-SQL 2000 probiert und da funktioniert es problemlos.
Evtl. unterstützt der OLEDB-Profider von SAP DB das gewünschte nicht bzw. hat 'ne Macke.

[Nalincah]

Neue Version...

[Bernhard Geyer]

Keine Problem. Liefert 200 al RecordCount (bei MS-SQL über ODBC). Also wirds am Treiber für die SAP-DB liegen

[trifid]

einen

SQL-Code:

SELECT Count(*) FROM Tabelle

würde ich immer einen ADO.RecordCount oder ADO.MaxRecords vorziehen :!:

[shmia]

Zitat:

Zitat von General2004

Das Problem ist: MaxRecords und RecordCount ist nicht gleich. Müsste doch eigentlich beides "200" sein, oder?? Der lädt immer 9089 Datensätze

Die ADO-Express Komponenten von Borland haben einen Bug:
Bei der ersten Verwendung einer ADOQuery wird das Property MaxRecords auf das unterliegende RecordSet
übertragen.
Spätere Änderungen von MaxRecords werden ignoriert. :cry:

[trifid]

vielleicht ist es anders bei einen TADODataSet
oder die Kompo's von TADOBetterDataSet ?

[Nalincah]

Zitat:

Zitat von trifid

einen

SQL-Code:

SELECT Count(*) FROM Tabelle

würde ich immer einen ADO.RecordCount oder ADO.MaxRecords vorziehen :!:

Toll, da steht dann wieviel Datensätze in der Tabelle vorhanden sind, kann sie aber nicht beschränken.

[shmia]

Zitat:

Zitat von trifid

vielleicht ist es anders bei einen TADODataSet ?

Das Bug wurde schon in TCustomADODataSet eingeführt. :?
siehe Unit ADODB.pas Line 3445 ff:

Delphi-Quellcode:

  procedure InitializeRecordset;
  begin
    FRecordsetObject := CreateADOObject(CLASS_Recordset) as _Recordset;
    Recordset.CursorLocation := CursorLocationValues[FCursorLocation];
    Recordset.CacheSize := FCacheSize;   // <-------
    Recordset.MaxRecords := FMaxRecords; // <-------
    if FIndexName <> '' then
    begin
      Recordset.Index := FIndexName;
      RefreshIndexFields;
    end;
    EnableEvents;
  end;

var
  VarRecsAffected: OleVariant;
begin
  if not Assigned(Recordset) then
  begin
    InitializeConnection;
    // InitializeRecordset wird nur aufgerufen, wenn noch kein Recordset erzeugt wurde.
    // blöderweise werden dabei auch CacheSize & MaxRecords zugewiesen
    // 
    InitializeRecordset;
    Recordset.Open(Source, ActiveConnection,
      CursorTypeValues[FCursorType], LockTypeValues[FLockType],
      CommandTypeValues[CommandType] + ExecuteOptionsToOrd(ExecuteOptions));

Zitat:

Zitat von trifid

oder die Kompo's von TADOBetterDataSet ?

Könnte sein; weiss nicht.
Andererseits könntest du auch mal versuchen:

Delphi-Quellcode:

   ADOQuery1.RecordSet.MaxRecords := 100;