procedure TForm1.BitBtn2Click(Sender: TObject);
var
sql:string;
begin
table1.refresh;
sql:='select * from product';
query1.close;
query1.sql.clear;
query1.sql.add(sql);
query1.open;
end;
这是我的原代码,我运行程序后,delete了几条record,然后刷新,但是它总是出错,我在另外一个程序上运行他就可以!为什么??请大虾帮忙!谢谢
var
sql:string;
begin
table1.refresh;
sql:='select * from product';
query1.close;
query1.sql.clear;
query1.sql.add(sql);
query1.open;
end;
这是我的原代码,我运行程序后,delete了几条record,然后刷新,但是它总是出错,我在另外一个程序上运行他就可以!为什么??请大虾帮忙!谢谢
解决方案 »
- 怎么用DBEdit输入数据
- 求 一个登录界面代码
- RMReport 使用中问题..'0'或'00'等连续为0的字符串显示不出
- 请问如何将(金额)float型的数据,全部用四舍五入法保留两位小数点后插入另一个表?
- 特定排序问题 接分贴
- 界面中有一些dbedit控件,我移到第10条记录,将dbedit10控件text设一值为100,然后我只想把这第二条记录的dbedit10对应的字段10ed值改为1
- 谁能说说VCL的运作机制???
- 我用的是DELPHI7.0 CLIENTDATASET 中文保存,中文过滤,中文LOCATE有问题吗
- 有关注册表
- 已经运行的程序,要在每天的10点钟运行一段代码,应该用那个控件?如何用
- 一个简单的问题,求助!
- 连SQL SERVER的两种情况?!进来看看。
首先你要保证你统计出来的数据表的字段都是相同的,比如只有mc,nr等,然后使用两个数据源.这里假设dbchart的数据源为adoquery1,则修改原代码为
procedure TForm1.BitBtn2Click(Sender: TObject);
var
sql:string;
begin
table1.refresh;
sql:='select * from product';
query2.close;
query2.sql.clear;
query2.sql.add(sql);
query2.open;
adoquery1:=adoquery2;
end;这是为了防止当adoquery断开时,dbchart没有数据源时而引发异常,我的就是这么解决的,当然错误可能不一样,如果不是,你把你出错信息贴出来,