delphi+sql编程问题,总是报错,求解决办法。

我的意思是想要将一个表中的sumje字段累加后将结果写入另一个表中的相应字段,但总是报错,下面是代码:ADOQuery1.close;ADOQuery1.SQL.Clea... 我的意思是想要将一个表中的sumje字段累加后将结果写入另一个表中的相应字段,但总是报错,下面是代码:
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(' delete from zy_inbase_cx ');
ADOQuery1.SQL.Add(' insert into zy_inbase_cx(ks_code,ks_name) select ks_code,ks_name from zd_ks where 1=1');
ADOQuery1.ExecSQL;

ADOTable1.Prior;
for i:=0 to ADOTable1.RecordCount-1 do
begin
ADOQuery2.close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select sum(sumje) as total from zy_inbase where kscode=ADOTable1.fields[0].value');
ADOQuery2.ExecSQL;
ADOTable1.Fields[2].Value:=ADOQuery2.Fieldbyname('total').asinteger;
ADOTable1.next;
end;
展开
 我来答
dodolon
2013-11-11 · TA获得超过7713个赞
知道大有可为答主
回答量:4477
采纳率:84%
帮助的人:2181万
展开全部
ADO部件用过很多,但还没有象楼主这样用过,没有去尝试过这样用行不行,我一般的判定是:1、TADOQuery中的SQL它不是存储过程,每次只能执行一条SQL语句。
2、对如不需要使用返回数据集的数据库操作,如INSERT, DELETE, UPDATE, ALTER TABLE, 和CREATE TABLE.,建议使用TADOCommand,而不使用TADOQuery。同样每次也只执行一条SQL命令。
3、TADOQuery中用SELECT语句返回数据集,要使用OPEN方法,或将Active属性设置为TRUE,而不是使用ExecSQL方法。典型用法示例:

const
SQLStr = 'SELECT * FROM sysdatabases WHERE (dbid > 4)';
var
s: string;
begin
ComboBox1.Items.Clear;
with DataModule1 do
begin
ADOQuery1.Connection:=ADOConnection1;
ADOQuery1.SQL.Text:=SQLStr;
ADOQuery1.Open;
while not ADOQuery1.Eof do
begin
s:=ADOQuery1.FieldByName('name').AsString;
ComboBox1.Items.Add(s);
ADOQuery1.Next;
end;
end;
end;
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
ydf521521
2013-11-11 · 超过10用户采纳过TA的回答
知道答主
回答量:51
采纳率:0%
帮助的人:33.8万
展开全部
不要使用ADOQuery2.close;
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式