Einzelnen Beitrag anzeigen

tom_po

Registriert seit: 5. Feb 2006
137 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: edit-Wert als float in Tabelle speichern

  Alt 28. Feb 2006, 19:44
suuuuper, es funktioniert marabu, bei mir heisst es params!

habe jetzt aber noch das problem, dass obwohl ich als datatype in meiner dbisam-tablle timestamps habe, die uhrzeit nicht übernommen wird, bleibt immer 00
(siehe Bild)

code sieht jetzt so aus, habe noch die feldnamen geändert:

Delphi-Quellcode:
procedure Tmovestock.Button1Click(Sender: TObject);
var
  dt: TDateTime;
  fs: TFormatSettings;
begin
  // weil du im Edit keinen Dezimalpunkt verwendest:
  fs.DecimalSeparator := ',';
  dt := DateTimePicker1.Date;
  with dbisamquery1 do
  begin
    SQL.Text := 'insert into movestock(code, eingang, datum) '
              + 'values (:code, :eingang, :datum)';
    Params.ParamByName('code').Value := combobox1.Text;
    Params.ParamByName('eingang').Value := StrToFloat(edit1.Text);
    Params.ParamByName('datum').Value := date;
    ExecSQL;
  end;
  edit1.Text := '';
  combobox1.Text := '';
end;
Miniaturansicht angehängter Grafiken
time_826.jpg  
  Mit Zitat antworten Zitat