MyDac Table mit Open und FetchAll

[Edelfix]

Hallo,
es geht sich um folgendes Problem. Ich habe in einer MariaDB Tabelle sehr viele Datensätze.
Der Open Befehl von der TMyTable Komponente braucht 6 Sekunden bis Daten angezeigt werden. Deswegen habe ich die Option FetchAll auf false gestellt.
So weit so gut.

Wenn ich jetzt aber mit Close die Table schließen möchte kommt jedes Mal eine Exception.
Exception-Klasse EMySqlException mit Meldung 'Lost connection to MySQL server during query'.

Wie schließe ich die Table ohne eine Exception zu bekommen?

[Edelfix]

Ist wahrscheinlich ein Defekt in der Komponente. Habe bei Devart ein Ticket erstellt.

[blawen]

Kann es sein, dass dazwischen zuviel Zeit vergeht (Timeout)? Falls ja, würde ich all paar Minuten mit einer zweiten Querry eine Refresh Abfrage starten.

[Edelfix]

Es hat etwas mit der Menge der daten zu tun. Wenn ich eine Tabelle mit 6.000 Datensätzen nehme dann kommt keine Fehlermeldung bei Close.

Eine Tabelle mit 500.000 Datensätzen macht Probleme.

Der Testaufbau ist simpel. Ich klicke "Open" dann werden sofort Daten im DBGrid angezeigt.
Wenn ich dann "Close" klicke kommt die Fehlermeldung. Auch wenn ich 10 Sekunden warte.

Delphi-Quellcode:

unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.Grids, Vcl.DBGrids, MemDS,
  DBAccess, MyAccess, Vcl.StdCtrls;

type
  TForm3 = class(TForm)
    btnOpen: TButton;
    MyConnection1: TMyConnection;
    MyTable1: TMyTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    btnClose: TButton;
    cbFetchAll: TCheckBox;
    cobTableNames: TComboBox;
    procedure btnOpenClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.btnOpenClick(Sender: TObject);
begin
  MyTable1.TableName := cobTableNames.Text;
  //--
  if NOT cbFetchAll.Checked then
    MyTable1.FetchAll := false;
  //--
  MyTable1.Open;
end;

procedure TForm3.btnCloseClick(Sender: TObject);
begin
  MyTable1.Close;
end;

end.

[Edelfix]

Habe noch keine Antwort von Devart bekommen. Sind erst zwei Tage rum.

Um die Zeit zu nutzen habe ich jetzt UniDac Trial ausprobiert. Das funktioniert ohne Fehlermeldung.

Dafür hat die UniDac Komponente keine "FetchAll" Property sondern "SmartFetch". Erst ein mal vielversprechend.

Nur ist es so das die Daten zwar schnell sichtbar sind aber wenn ich ein "SetRange" oder Filter setze mir die Anwendung einfriert.

Ich komme nicht dahinter wie Devart sich die Verarbeitung von vielen Datensätzen mit einer Table Komponente gedacht hat.
Mir ist auch aufgefallen das es schlagartig langsamer wird ab etwa 400.000 Datensätzen.

[himitsu]

Die 6000 Datensätze passen vermutlich noch in die Range rein und werden sofort geladen.
Konnte man nicht irgendwo einstellen, wie groß der Bereich ist, welcher beim Fetching geladen werden soll?