有关添加记录

[mei324]

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;
为什么记录并没有添加到表中

[angle097113]

不应该呀
你看看是不是你的ADOQUERY属性是利用的缓存机制呀
没有理由插不进去的呀！奇怪 ，你重新写一遍试试要不然是你的QUERY没有连到数据库 也不可能呀
唉 帮你顶一下吧 建议重写试试

[mei324]

重写过没用，而且我把字符串sql输出来是对的，在sql explor里也能执行，不知道为什么在程序里就不行了，快急死了

[charmess]

如果是三层结构的话，那就是没有更新了。
试着调用一下ApplyUpdates(0);函数试一下。

[angle097113]

post一下呢

[chwdong]

qry.Close;
qry.SQL.Clear;
qry.SQL.text:=sql;
qry.ExecSQL;

[hongqi162]

代码没有问题！

gz