报错 当前提供程序不支持从当一执行返回多个纪录集 如何解决！

Question

adoquery1.open;
ADOQuery1.append;
ADOQuery1.fieldvalues['时间']:=DateTimeToStr(Now);
ADOQuery1.fieldvalues['井口温度']:=strtofloat(edt_tt1.text);
ADOQuery1.fieldvalues['出口温度']:=strtofloat(edt_tt2.text);
ADOQuery1.fieldvalues['蒸汽温度']:=strtofloat(edt_T.text);
ADOQuery1.fieldvalues['流量']:=strtofloat(edt_G.text);
ADOQuery1.fieldvalues['ph']:=strtofloat(edt_ph.text);
ADOQuery1.fieldvalues['电导率']:=strtofloat(edt_dt.text);
ADOQuery1.fieldvalues['污垢热阻']:=strtofloat(edt_rs.text);
ADOQuery1.fieldvalues['采样计算']:=strtofloat(edt_rscy.text);
ADOQuery1.post;
ADOQuery1.refresh;
adoquery1.close;
报错  当前提供程序不支持从当一执行返回多个纪录集 如何解决！

Answer 1

是post 报错，还是什么报错了，

Answer 2

另外一段程序我将其放在时间事件里，但结果数据插入不了数据库中，插入的数据总是为空
procedure Tfrm_system.Timer1Timer(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(' insert into sj ');
adoquery1.SQL.Add('( 时间,进口温度,出口温度,蒸汽温度,流量,PH,电导率,污垢热阻,采样计算 )');
adoquery1.SQL.Add(' values ');
adoquery1.SQL.Add('(:time1,:tt1,:tt2,:T,:G,:ph,:dt,:rs,:rscy)');
adoquery1.ExecSQL;
with ADOQuery1.Parameters do
begin
  ParamByName('time1').Value := Now;
  if edt_tt1.Text<>''then begin
  ParamByName('tt1').Value := StrToFloat(edt_tt1.Text);  end;
  if edt_tt2.Text<>''then begin
  ParamByName('tt2').Value := StrToFloat(edt_tt2.Text);end;
  if edt_t.Text<>''then begin
  ParamByName('T').Value := StrToFloat(edt_t.Text);end;
  if edt_g.Text<>''then begin
  ParamByName('G').Value := StrToFloat(edt_g.Text);end;
  if edt_ph.Text<>''then begin
  ParamByName('ph').Value := StrToFloat(edt_ph.Text);end;
  if edt_dt.Text<>''then begin
  ParamByName('dt').Value := StrToFloat(edt_dt.Text);end;
  if edt_rs.Text<>''then begin
  ParamByName('rs').Value := StrToFloat(edt_rs.Text);end;
  if edt_rscy.Text<>''then begin
  ParamByName('rscy').Value := StrToFloat(edt_rscy.Text);end;
end;
end;
望赐教

Answer 3

晕倒，将
adoquery1.ExecSQL;
放在：
with ADOQuery1.Parameters do
begin
……
end;
之后。—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

Answer 4

第一段中的：
ADOQuery1.refresh;
没用的，去掉。—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

Answer 5

但是报错的问题怎么解决？我第一次真正用delphi写东西，所以，诸多问题不会

Answer 6

这种情况不是用open，而是用execsql

Answer 7

我记得用TTABLE时用POST是提交不成功的