MariaDB, SQLQuery & Co., nach erfolgreichem Speichern Verbindung weg

[Ekkehard]

Hallo Ihr Lieben,
vielleicht kann mir mal wieder jemand über die Straße helfen.
Eigentlich will ich etwas ganz Einfaches machen, nämlich mit den in Lazarus vorgesehen Komponenten auf eine SQL-Datenbank zugreifen und dort Einträge holen, ändern und löschen.
Den ersten Teil des Weges habe ich überraschend problemlos hinbekommen, ich kann nämlich mit meiner lokalen MariaDB reden

(Dazu habe ich die Datenbank (https://mariadb.com/downloads/) heruntergeladen und installiert, die in der Installation vorhandene "libmariadb.dll" (in dann "libmysql.dll") umbenannt und in das Lazarus-Verzeichnis und zusätzlich in das Projektverzeichnis kopiert. In Lazarus auf einem Formular die Komponenten TMySQL57Connection, TSQLQuery, TDataSource und TSQLTransaction platziert. In der MySQL57Connection1 den Schalter SkipLibraryCheck = True gesetzt, kann nun die Verbindung aktiviert werden. Im SQLQuery1.Database = MySQL57Connection1 und SQLQuery1.Transaction = SQLTransaction1, zusätzlich die SQLQuery1.Options = [sqoAutoApplyUpdates, sqoAutoCommit]. In TDataSource DataSource1.DataSet = SQLQuery1 und in TSQLTransaction SQLTransaction1.Database = MySQL57Connection1. Zur Ansicht habe ich noch ein TDBEdit DBEdit1.DataSource = DataSource1 und einen TDBNavigator DBNavigator1.DataSource = DataSource1 eingefügt.).

Mit diesem Setup kann ich sowohl in der IDE als auch im laufenden Programm durch alle Datensätze laufen und diese ansehen. Sobald ich aber einen Datensatz ändere, wird die Datenbankverbindung geschlossen und der DBNavigator ausgegraut. Öffnet man die Datenbank wieder, sieht man, dass die Änderung übernommen wurde. Entfernt man eine der Optionen (sqoAutoApplyUpdates, sqoAutoCommit) wird nichts mehr gespeichert.

Fragen.
1.) wie soll das eigentlich funktionieren?
2.) Kann ich das Speichern der Änderungen manuell anstoßen?

Das Projekt habe ich beigefügt. Die angesprochene Datenbank ist sehr einfach eine Tabelle mit einem Integer ID- und einem VarChar Content-Feld. An den Benutzerrechten kann es eigentlich nicht liegen, die habe ich versuchsweise auf "Alles ist erlaubt" gestellt, ohne Verhaltensänderung.

Liebe Grüße
Ekkehard

[juelin]

Hi,
verusch es mal mit Package ZEOS.
Package laden und Komponeten aus ZEOS einfügen.
Das sollte klappen.
Du brauchst aber auch libmariadb.dll.
Gruß
Jürgen

[charlytango]

ohne groß in die Tiefe gegangen zu sein fällt mir auf, dass das SQL Statement in SQLQuery1

Code: Alles auswählen

select * from test  

ist. Versuche es doch mal mit

Code: Alles auswählen

select id, content from test  

Erstmal ist select * ganz schlechter Stil und es macht oft auch Probleme, z.B. wenn Lazarus es nicht schafft den Primary Key zu "erraten".

MariaDB wird im SQLDB Framework nicht wirklich unterstützt, wenn es gar nicht klappt würde ich ZEOS versuchen.

Deine Transaktion steht übrigens auf caRollback, wass dir möglicherweise in die Suppe spuckt

Eine gute Idee bei DB-Entwicklung ist es auch ein SQL Log einzurichten damit du die Nachrichten zum und vom SQL Server auch mitbekommst.
Im OnLog der Connection kannst du etwas wie das Folgende machen;

Code: Alles auswählen

procedure TForm1.MySQL57Connection1Log(Sender: TSQLConnection;
  EventType: TDBEventType; const Msg: String);
var
  s: string;
begin
  case EventType of
    detCustom:   s:='Custom:  ';
    detPrepare:  s:='Prepare: ';
    detExecute:  s:='Execute: ';
    detFetch:    s:='Fetch:   ';
    detCommit:   s:='Commit:  ';
    detRollBack: s:='Rollback:';
    else s:='Unknown event. Please fix program code.';
  end;
  Memo1.Append(s + ' ' + Msg); //oder auch in ein logfile schreiben
end;  

[Ekkehard]

select id, content from test
hat keine Verbesserung gebracht, dann probiere ich mal das ZEOS aus.
Danke!
Gruß Ekkehard

[charlytango]

lies nochmal meinen editierten Post bezüglich des Logs

[charlytango]

Vorsicht beim aktuellen ZEOS 8 aus dem OPM, das kann etwas Probleme machen.

[Joh]

Deine Transaktion steht übrigens auf caRollback, wass dir möglicherweise in die Suppe spuckt

caCommitRetaining sollte eigentlich passen.
bei caCommit wird die Tabelle nach dem Speichern geschlossen.

Ich hab mir das Testprogramm zwar nicht angeguckt, aber das war das erste, was ich beim Lesen dachte.

Joh

[Ekkehard]

Lieben Dank für die Unterstützung, die tatsächlich (allerdings anders als erwartet) geholfen hat.
Die ersten Zeilen des Logs nach dem Programmstart sind immer gleich:

Code: Alles auswählen

Prepare:  TQuerySQLStatement : select ID, Content from test
Prepare:  TQuerySQLStatement : show index from test
Execute:  TQuerySQLStatement : show index from test
Execute:  show index from test
Fetch:    show index from test
Fetch:    show index from test
Execute:  TQuerySQLStatement : select ID, Content from test
Execute:  select ID, Content from test
Fetch:    SQLQuery1 : select ID, Content from test
Fetch:    SQLQuery1 : select ID, Content from test
Fetch:    SQLQuery1 : select ID, Content from test

Alle beliebigen Einstellungen in der SQLTransaction der Properties Action und Active sind völlig ohne jeden Einfluss.
Im Log stehen dann nachfolgend immer genau diese vier Zeilen:

Code: Alles auswählen

Prepare:  TQuerySQLStatement : update test set `ID`=:"ID",`Content`=:"Content" where (`ID`= :"OLD_ID")
Execute:  TQuerySQLStatement : update test set `ID`=:"ID",`Content`=:"Content" where (`ID`= :"OLD_ID")
Execute:  update test set `ID`=$1,`Content`=$2 where (`ID`= $3)
Commit:   SQLTransaction1 : Committing transaction

Aber stoUseImplicit = True und stoExplizitStart = False in der Property Options lösen das Problem und es funktioniert!
Dann steht im Log

Code: Alles auswählen

Prepare:  TQuerySQLStatement : update test set `ID`=:"ID",`Content`=:"Content" where (`ID`= :"OLD_ID")
Execute:  TQuerySQLStatement : update test set `ID`=:"ID",`Content`=:"Content" where (`ID`= :"OLD_ID")
Execute:  update test set `ID`=$1,`Content`=$2 where (`ID`= $3)

Wie man sieht, es fehlt(!) das Commit. Richtig einsichtig finde ich das Ganze allerdings nicht und so folgt der Murphy-Zustand 3: "Es funktioniert und keiner weiß warum".
Dann versuche ich mal weiter mein Glück.
Vielen Dank!

[Ekkehard]

Ich habe den aktuellen Stand, der das Problem gelöst hat, mal in zwei Beispielprojekte gepackt, eines als GUI- und eines als Kommandozeilen-Anwendung.
Vielleicht hilft das ja noch anderen Menschen.