procedure TForm1.Button1Click(Sender: TObject);
var sp_bianma:string;
cbj:double;
begin
sp_bianma:='1001';
cbj:=2;
ADOkc_cbj.Close ;
ADOkc_cbj.SQL.Clear ;
* ADOkc_cbj.SQL.Add('update sp_kc set sp_cbj='+'''+cbj+''''');
adokc_cbj.SQL.Add('where sp_id = '+''''+sp_bianma+'''');
ADOkc_cbj.Open ;end;
标示行提示出错,怎样去得double类型的值呀?
var sp_bianma:string;
cbj:double;
begin
sp_bianma:='1001';
cbj:=2;
ADOkc_cbj.Close ;
ADOkc_cbj.SQL.Clear ;
* ADOkc_cbj.SQL.Add('update sp_kc set sp_cbj='+'''+cbj+''''');
adokc_cbj.SQL.Add('where sp_id = '+''''+sp_bianma+'''');
ADOkc_cbj.Open ;end;
标示行提示出错,怎样去得double类型的值呀?
execsql吧!
另外,这样写:
'update sp_kc set sp_cbj='+floattostr(cbj)