Zugriff auf Access DB sehr langsam

[grenzgaenger]

an deiner stelle würd ich auch mal die datenbank komprimieren... vielleicht hift dies...

[der_karlheinz]

Komprimiert hatte ich die DB schon, hat nur ein paar Sekunden gebracht, leider
das nicht den gewünschten erfolg gebracht.
Das Abrufen der Daten aus der DB funktioniert ja wunderbar,
nur schreiben dauert ewig.

Werde mich heut abend mal dran setzen, das Schreiben mit
dem ADOQuery fertig zu Programmieren.

[der_karlheinz]

Soo, der Schreibzugriff auf die Datenbank ist jetzt schon erheblich fixer,...

hab in der FAQ was gefunden, und ausprobiert

Delphi-Quellcode:

DataModule1.ADOQuery.SQL.Text := 'SELECT * FROM tabelle WHERE 0=1';
DataModule1.ADOQuery.Open;

DataModule1.ADOQuery.Append;
DataModule1.ADOQuery['Date'] := now;
DataModule1.ADOQuery['Time'] := now;
...
...
DataModule1.ADOQuery.Post;

DataModule1.ADOQuery.Close;

Jetzt hängts nur noch beim Programmstart (für ne Zeitlang > 50% Auslastung).
Ich habe ja noch eine DBGird und eine TeeChart Komponente, die auf die DB zugreifen, um das ganze zu Visualisieren.

Dafür habe ich noch ein TADOTable, das ich zusammen mit TADOConnect auf Activ bzw. Connected = TRUE gestellt habe.

Ich denke das das beim Programmstart dafür sorgt, das die CPU erstmal in die Knie geht.

Gibt es da vielleicht einen ähnlichen Lösungsweg für?

Die Tabelle und das Diagramm sollten alle Paar Minuten einen Refresh durchführen, das klappt auch wunderbar,
ohne das das Programm hängt. Nur beim Starten des Programms, dauerts.

[hoika]

Hallo,

<< Ich denke das das beim Programmstart dafür sorgt, das die CPU erstmal in die Knie geht. >>

Warum probierst du das nicht einfach aus ?.
BreakPoint auf deine 1. Anweisung und los geht's.

In meinen Programmen wird beim Start nur ein Connect gemacht.
Alles andere, wenn der Nutzer was will.

Isdt das DBGrid offen beim Start ?
Was steht drin ?
Alle Einträge? Wenn ja, warum ?


Heiko

[der_karlheinz]

Hallo Heiko,

hab mich mal mit dem Debugger durch den Programmaufruf bewegt.

In der Projekt Unit hängts bei Application.CreateForm(DatenModul) (hoffe ich habs jetz richtig geschrieben,
habs Programm auf einem andern Rechner).

Hmm, ich habe eine seperate Form, in der ich das DBGird habe, und eine seperate Form,
wo ich das TeeChart drin habe,
das DBGird zeigt mir alle Datensätze an.
Es müssten nicht alle Einträge angezeigt werden, mir würden von den 50000 Datensätzen
z.B. die letzten 100 reichen, wenn ich die Möglichkeit habe mich dann noch über
Schaltflächen oder einen Filter weiter zu bewegen (in alten Datensätzen).

Im TeeChart bewege ich mich ja mit der Next und Previous Methode in den Datensätzen
(da wird wohl nicht die ganze DB erst gelesen???)

Ich denke ich habe das Problem verstanden,
mir fehlt nur der Lösungsansatz.

Gibt es eigentlich spezielle Bücher oder ebooks, die sich mit SQL im Bezug auf Borlands Delphi beschäftigen?

[hoika]

Hallo,

dann setz mal nen Breakpoint in das Create des DataModuls.
Ist die Query (für das DBGrid) zur Designzeit schon offen?
Mache es mal zu und erst im Create des DataModusl auf.

Dein Problem wird wohl das "50000 Datensätze sein".

Das DBGrid lädt alle Datensätze, um sie in dem Grid anzuzeigen,
im DB-Entwicklung mit Delphi (Andreas Kosch)
stand aber zumindestens mal was mit Verwendung von Bookmarks.

Warum müssen 500000 angezeigt werden ?
Das macht überhaupt keinen Sinn.
Baue eine Suchfunktion ein,
die immer nur eine kleine Teilmenge anzeigt.


Heiko

[der_karlheinz]

So, ich versuche jetzt die Datensätze im DBGird zu Filtern,

wenn ich folgendes Versuche (Die Variablen filter_von und filter_bis sind als TDateTime Global definiert)

Delphi-Quellcode:

procedure TTabelle.B_Filter_updateClick(Sender: TObject);
var
Datumsformat: TFormatSettings;
von: String;
bis: String;
begin
  Datumsformat.DateSeparator:='-';
  Datumsformat.ShortDateFormat:='yyyy-dd-mm';
  Datumsformat.TimeSeparator:=':';
  Datumsformat.ShortTimeFormat:='HH:mm:ss';

  von:= (E_von_jahr.Text + ('-') + E_von_monat.Text + ('-') + E_von_tag.Text);
  bis:= (E_bis_jahr.Text + ('-') + E_bis_monat.Text + ('-') + E_bis_tag.Text);
  filter_von:=(StrToDateDef(von, -10, Datumsformat) + StrToTimeDef('00:00:00', -10, Datumsformat));
  filter_bis:=(StrToDateDef(bis, -10, Datumsformat) + StrToTimeDef('23:59:00', -10, Datumsformat));

  Edit1.Text:=datetostr(filter_von);
  Edit2.Text:=datetostr(filter_bis);

  DataModule1.ADOQuery_DBGird.Close;
  DataModule1.ADOQuery_DBGird.SQL.Text := 'SELECT * FROM tabelle WHERE Date BETWEEN filter_von AND filter_bis';
  DataModule1.ADOQuery_DBGird.Open;


end;

bekomme ich beim Ausführen die Fehlermeldung "filter_von" hat keinen Standartwert.

Woran kann das liegen???

[hoika]

Hallo,

DataModule1.ADOQuery_DBGird.SQL.Text := 'SELECT * FROM tabelle WHERE Date BETWEEN filter_von AND filter_bis';

Du schreibst das direkt als String.

Delphi-Quellcode:

DataModule1.ADOQuery_DBGird.SQL.Text :=
  'SELECT * FROM tabelle WHERE Date BETWEEN :filter_von AND :filter_bis'; 
DataModule1.ADOQuery_DBGird.ParamByName('filter_von').AsDateTime:= tdtFilter_von;
DataModule1.ADOQuery_DBGird.ParamByName('filter_bis').AsDateTime:= tdtFilter_bis;

Ich habe auch gleich mal nen tdt davorgesetzt,
dann ist es leichter zu verstehen, was eine Variable für einen Typ hat.


Heiko

[der_karlheinz]

Das Problem ist gelöst,...

Delphi-Quellcode:

  DataModule1.ADOQuery_Ofen_DBGird.Close;
  DataModule1.ADOQuery_Ofen_DBGird.SQL.Text := 'SELECT * FROM Ofen20 WHERE Date BETWEEN :filter_von AND :filter_bis';
  DataModule1.ADOQuery_Ofen_DBGird.Parameters.ParamByName('filter_von').Value:= tdtFilter_von ;
  DataModule1.ADOQuery_Ofen_DBGird.Parameters.ParamByName('filter_bis').Value:= tdtFilter_bis;
  DataModule1.ADOQuery_Ofen_DBGird.Open;

mal sehen, ob das Programm jetzt schneller startet.

Wie sieht das mit dem DBChart aus?
Wird da auch erst die ganze Tabelle eingelesen?


Gruß
Stephan

[hoika]

Hallo,

kommt auf das DataSource -> DataSet an des DBChart an.


Heiko