简单问题,我却不会!!

Question

Q_cjtzd.Close;
             Q_cjtzd.SQL.Clear;
             Q_cjtzd.SQL.Add('insert into cjtzd(fs) values (:fs) ');
             Q_cjtzd.Parameters.ParamByName('fs').Value :=strtofloat(Edit1.text);
             Q_cjtzd.Prepared;
             Q_cjtzd.ExecSQL; 为什么不成功!数据库中字段 fs 为float 类型.这样才可以成功呢?

Answer 1

Q_cjtzd.Close;
             Q_cjtzd.SQL.Clear;
             Q_cjtzd.SQL.Add('insert into cjtzd(fs) values (:fs) ');
             Q_cjtzd.Parameters.ParamByName('fs').Value :=strtofloat(Edit1.text);
             Q_cjtzd.Prepared;
             try
                Q_cjtzd.ExecSQL;
             except
                Raise;
             end;捕捉一下错误看看，是不是设了主键，数据重复了.... 

Answer 2

Q_cjtzd.Close;
Q_cjtzd.SQL.Clear;
Q_cjtzd.SQL.Add('insert into cjtzd(fs) values(:fs)');
Q_cjtzd.Parameters.ParamByName('fs').DataType:=ftFloat;
Q_cjtzd.Parameters.ParamByName('fs').Value :=strtofloatdefEdit1.text,0);
Q_cjtzd.Prepared;
Q_cjtzd.ExecSQL;