Hallo Henrik,
verwende eine TDatabase-Komponente, um den Datenpfad festzulegen. Mit einem Doppelklick auf die Komponente öffnest du den property editor. Vergib einen Namen für die Datenbank und setze den Treiber auf STANDARD. Wenn du dann die Vorgaben abrufst, erhältst du einen leeren PATH-Eintrag. Den kannst du manipulieren, wie es dir gefällt - vorzugsweise zur Laufzeit beim Erzeugen deines Datenmoduls. Durch den Eintrag DEFAULT DRIVER =
PARADOX kannst du auf die Erweiterung .db bei deinen Tabellen-Namen verzichten und es werden trotzdem nicht alle bekannten Erweiterungen gesucht.
Dein INSERT-Statement birgt die Gefahr, dass eine runtime
exception geworfen wird, wenn in einer der Variablen (z.B. dbbemerkung) ein Apostroph vorkommt. Mach es besser so:
Delphi-Quellcode:
const
ins = '
INSERT INTO %s VALUES(:datum, :uhrzeit, :bz, :be, :bolus, :bemerkung)';
var
tn:
String;
begin
tn := '
tblname';
// hier dein Tabellen-Name
with query1
do
begin
SQL.Text := Format(ins, [tableName]);
Params.ParamValues['
bemerkung'] := dbbemerkung;
Params.ParamByName('
datum').AsDateTime := dbdatum;
// ...
ExecSQL;
end;
Grüße vom marabu