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.