SQL?SQL?

Question

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

Answer 1

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

Answer 2

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