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;
Könnt ihr mir hier ein wenig weiter helfen ?