一分一个

[xinfei]

if adoquery6.active then
adoquery6.active:=false; //如果换成adoquery6.close;　有什么区别
ADOQuery6.SQL.Clear;
ADOQUERY6.SQL.Add('select * from gxid');
ADOQUERY6.ExecSQL;
ADOQUERY6.Active:=TRUE;
end;



另外我要定义一个过程要怎样申明，　　好像我不用在type下定义，在implementation定义，在后面也可以引用，　这是为什么

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure cai (var x:integer);
begin
end;

[li_zhifu]

if adoquery6.active then
adoquery6.active:=false; //如果换成adoquery6.close;　有什么区别
若adoquery6原是Active的，上述方法无区别；若Adoquery6原是非Active的，则如无if adoquery6.active then 这句的话，用Adoquery6.Active:=False;不会出错；用Adoquery6.Close;则会报一个错。

[li_zhifu]

在implementation前定义的方法可以在别的Unit中引用，在其后定义的则只能在本单元中引用。

[xinfei]

to li_zhifu(东北人)


我刚刚试过用if adoquery6.active then
adoquery6.close;不会报一个错。

想问一下， 上面的这段代码有没有错误
ADOQUERY6.ExecSQL;
ADOQUERY6.Active:=TRUE;
在adoquery6.execsql;后面不加adoquery6.active:=True;将会怎样。

另外我发现一个不正常的现象



if adoquery6.active then
adoquery6.active:=false; ADOQuery6.SQL.Clear;
ADOQUERY6.SQL.Add('select * from gxid');
ADOQUERY6.ExecSQL;
ADOQUERY6.Active:=TRUE;
end;

//我用同样这代码，只是把select 换成了delete * from gxid

它报Commandtext does not return a result set

我把最后一行adoquery6.active:=true;就没事， 不知为什么