Hallo Lombi,
ich würde erstens kein
DB-Code direkt in Forms ausführen.
Das macht den Code unübersichtlich und schwer portierbar.
Weil du ja demnächst weg von
Paradox musst
Der Code ist ansonsten viel zu wenig, um einen Fehler zu finden.
Aber naja.
Bsp.-Code mit einer anderen
Query
Ich gehe mal davon aus, dass
die Tabelle "Einstellungen" nur einen Record haben soll das Feld "RNr" heisst.
Delphi-Quellcode:
procedure SetNo(
const theNumber: Integer);
var
bExists: Boolean;
begin
with Query do
begin
// Anzahl der Records prüfen
SQL.Clear;
SQL.Add('
Select Count(*) From Einstellungen');
Open;
try
bExists:= Fields[0].AsInteger>0;
finally
Close;
end;
// update oder insert
SQL.Clear;
if bExists
then
begin
SQL.Add('
Update Einstellungen Set RNr=:RNr');
end
else
begin
SQL.Add('
Insert Into Einstellungen(RNr) Values(:RNr)');
end;
ParamByName('
RNr').AsInteger:= theNumber;
ExecSQL;
end;
end;
Heiko