FMX - Beim speichern in eine SQL-Datenbank Fehlermeldung

[DeddyH]

Wie ist es denn so (einfach heruntergetippt, deshalb ungetestet):

Delphi-Quellcode:

function Mask(const Fieldname: string): string;
begin
  Result := Format('[%s]', [Fieldname]);
end;

// Es sieht so aus, als sei firmdaten die globale Form-Variable, deshalb besser weglassen
// oder self verwenden
procedure Tfirmdaten.btn_firmpostClick(Sender: TObject);
begin
  firmConnection.Database := System.IOUtils.TPath.GetHomePath + PathDelim +
    'firmpv.dbp'; // db3 nur umbenann in dbp
  try
    firmConnection.Connected := True;
    firmConnection.Options.Direct := True;
    firmQuery.Connection := firmConnection;
    firmQuery.Close;
    firmQuery.SQL.Text := Format('INSERT INTO %s(%s, %s, %s, %s, %s, %s, %s) ' +
      ' Values (:frmnam, :frmstr, :frmplz, :frmort, :frmgew, :frmkon, :frmchf)',
      [Mask('firmenliste'), Mask('firmname'), Mask('firmstrasse'),
      Mask('firmplz'), Mask('firmort'), Mask('firmgewerk'), Mask('firmkontakt'),
      Mask('firmchef')]);
    firmQuery.ParamByName('frmnam').AsString := ed_firmname.Text;
    firmQuery.ParamByName('frmstr').AsString := ed_firmstrasse.Text;
    firmQuery.ParamByName('frmplz').AsString := ed_firmplz.Text;
    firmQuery.ParamByName('frmort').AsString := ed_firmort.Text;
    firmQuery.ParamByName('frmgew').AsString := cb_firmgewerk.Selected.Text;
    firmQuery.ParamByName('frmkon').AsString := ed_firmkontakt.Text;
    firmQuery.ParamByName('frmchf').AsString := ed_firmchef.Text;
    firmQuery.ExecSQL();
    ShowMessage('Datensatz wurde neu angelegt !');
  except
    on E: Exception do
      ShowMessage('Fehler beim Anlegen des Datensatzes: ' + E.Message);
  end;
  firmdaten_laden;
end;

[jmich]

Danke für das Beispiel.
Werde es auch so gerne übernehmen.

Gruß Jmich