SQL?SQL?

[testnet]

为什么我用了ExecSQL后DBGrid就不显示了，一用Query.OPEN就死掉。消息是Error Creating　Cursor Handle 怎样解决
我是用UPDATA.
Query是不是每Add一次就要ExecSQL一次，可不可以連接几个Add再用ExecSQL

[neusoftlan]

dbgrid1.active:=true;

[neusoftlan]

sorry,错了，应该是：
Query1.active:=true;

[ch81]

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 3 do
begin
IBQuery1.Close;
IBQuery1.SQL.Text:='Insert into Index1 Values('+inttostr(i)+',1)';
IBQuery1.ExecSQL;
end;
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Text:='Select * From Index1';
IBQuery1.Open;
DataSource1.DataSet:=IBQuery1;
end;
我是可以，刚试过，win2000+delphi6+ib6

[testnet]

感激，成功了，原来我没有CLEAR AQL 送分送分。