当前位置:编程问答 > Delphi >

delphi sql语句出错

问题:aquery1.edit;
  for I := 1 to aquery1.RecordCount+1 do
  begin

    aquery1.Fields[2].value := stringgrid1.Cells[3,i];
    if not aquery1.eof then  aquery1.Next;

  end;
  aquery1.post;
运行说  dataset  not in edit or insert mode
如果把if not aquery1.eof then  aquery1.Next;
不会报错
请问怎么修改
答案:

这样写当然不对了!按钮事件代码可以这样写:

 

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i:integer ;
begin

  Query1.First ;
  i:=1 ;
  while not Query1.Eof do
  begin
    Query1.Edit ;
    Query1.Fields[2].Value :=StringGrid1.Cells[3,i] ;
    Query1.Post ;
    i:=i+1 ;
    Query1.Next ;
  end;
end;

 

上一个:delphi的控件问题
下一个:delphi登陆界面代码

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,