Ich bastle hier so eine Kleine Anwendung, welche fleißig mit einer SQL Lite3 Datenbank Kommuniziert.
Dazu habe ich die beiden Routinen geschrieben :
Code: Alles auswählen
Procedure TForm1.Query(Query: String); // Stellt eine Query in der DB, danach kann die DB ausgelesen werden.
Begin
SQLQuery1.Active := false;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Text := Query;
Try
SQLQuery1.Open;
Except
On e: Exception Do Begin
showmessage(format('Error could not execute query'#13#10'Errorcode : %s', [e.Message]));
End;
End;
End;
Procedure TForm1.ControlQuery(Query: String); // Stellt eine Verwaltungs Query in der DB, danach kann die DB ausgelesen werden.
Begin
SQLQuery1.Active := false;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Text := Query;
Try
SQLQuery1.ExecSQL;
SQLTransaction1.Commit;
Except
On e: Exception Do Begin
showmessage(format('Error could not execute controlquery'#13#10'Errorcode : %s', [e.Message]));
End;
End;
End;
Das Funktioniert auch alles wunderbar. Nun will ich aber das 2 unterschiedliche Instanzen meiner Anwendung Abwechselnd schreibend auf meine Datenbank zugreifen können. Dazu muss die erste Instanz den "Lock" auf die Datenbank auch irgendwie wieder frei geben, nur weis ich nicht wie.
Könnt ihr mir hier ein wenig weiter helfen ?