procedure TForm1.Button1Click(Sender: TObject);
var
jf,balance : real;
sql : string;
begin
jf := 0.6;
balance := 0.4;
sql := 'insert into TaskJF(ID,JYear,Outlay,Balance) values('+chr(39)+'2'+chr(39)+','+chr(39)+'2001'+chr(39)+','+FloatToStr(JF)+','+FloatToStr(Balance)+')';
showmessage(sql);
qry.Close;
qry.SQL.Clear;
qry.SQL.Add(sql);
qry.ExecSQL;end;
为什么记录并没有添加到表中
var
jf,balance : real;
sql : string;
begin
jf := 0.6;
balance := 0.4;
sql := 'insert into TaskJF(ID,JYear,Outlay,Balance) values('+chr(39)+'2'+chr(39)+','+chr(39)+'2001'+chr(39)+','+FloatToStr(JF)+','+FloatToStr(Balance)+')';
showmessage(sql);
qry.Close;
qry.SQL.Clear;
qry.SQL.Add(sql);
qry.ExecSQL;end;
为什么记录并没有添加到表中
你看看是不是你的ADOQUERY属性是利用的缓存机制呀
没有理由插不进去的呀!奇怪 ,你重新写一遍试试要不然是你的QUERY没有连到数据库 也不可能呀
唉 帮你顶一下吧 建议重写试试
试着调用一下ApplyUpdates(0);函数试一下。
qry.Close;
qry.SQL.Clear;
qry.SQL.text:=sql;
qry.ExecSQL;