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; 展开
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; 展开
2个回答
展开全部
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;
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;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询