Question

delphi 在做生成表时出错：运行时报错是：CommandText does not return a result set. 请高手帮忙看看！

procedure Tsztj.SpeedButton1Click(Sender: TObject);
begin
with dm.srglADOQ do
begin
close;
sql.Clear;
sql.Add('select 收入日期,收入类型,收入金额 from srgl where 收入日期 between :d1 and :d2');
parameters.ParamByName('d1').Value:=datetimepicker1.Date;
parameters.ParamByName('d2').value:=datetimepicker2.Date;
open;
end;
with dm.zcglADOQ do
begin
close;
sql.clear;
SQL.Add('select 支出日期,支出类型,支出金额 from zcgl where 支出日期 between :d1 and :d2');
parameters.ParamByName('d1').Value:=datetimepicker1.Date;
parameters.ParamByName('d2').value:=datetimepicker2.Date;
open;
end;
try
with dm.sztjADOQ do
begin
close;
sql.Clear;
sql.Add('insert into szb values(:a,:b,:c,:d,:e,:f)');
parameters.ParamByName('a').Value:=dm.srglADOQ.fieldbyname('收入日期').Value;
parameters.ParamByName('b').Value:=dm.srglADOQ.fieldbyname('收入类型').Value;
parameters.ParamByName('c').Value:=dm.srglADOQ.fieldbyname('收入金额').Value;
parameters.ParamByName('d').Value:=dm.zcglADOQ.fieldbyname('支出日期').Value;
parameters.ParamByName('e').Value:=dm.zcglADOQ.fieldbyname('支出类型').Value;
parameters.ParamByName('f').Value:=dm.zcglADOQ.fieldbyname('支出金额').Value;
open;
end;
finally
end;
end;
先谢谢各位高手。

Answer 1

insert语句没有返回结果集，调用时应该用ExecSQL方法而不是Open

追问

没有错误了，可是DBgrid表格没有显示数据，不知道什么原因，可以帮看看吗？

追答

DBGrid是否已经正确连接了数据集呢？如果是说连接sztjADOQ的DBGrid没有显示，这是理所当然的，因为insert语句没有返回数据集，要显示这个的更新结果，就要再作一次查询。

Answer 2

你dbgrid datasource 和datasource的dataset 设置好了米有啊

追问

好了