請問各位先進,

程式碼如下：

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOConnection1.Connected:=True;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('EXEC sp_setapprole ''AP_Role'', ''Test''');
ADOQuery1.ExecSQL;
ADOConnection1.Connected:=False;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ADOConnection1.Connected:=True;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select top 10 * from TestTable');
ADOQuery1.Open;

end;

如果我先按下BUTTON1再按下BUTTON2 就會出現連線失敗

不知道這樣的問題該如何解決

謝謝

請問各位先進,

程式碼如下：

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOConnection1.Connected:=True;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('EXEC sp_setapprole ''AP_Role'', ''Test''');
ADOQuery1.ExecSQL;
//ADOConnection1.Connected:=False; //利用sp_setapprole 啟動應用程式角色之後，該角色會保持作用中，直到使用者從伺服器中斷連接 或執行sp_unsetapprole。
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ADOConnection1.Connected:=True;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select top 10 * from TestTable');
ADOQuery1.Open;

end;

如果我先按下BUTTON1再按下BUTTON2 就會出現連線失敗

不知道這樣的問題該如何解決

謝謝

謝謝您的回答,不過我在sql裡面找不到sp_unsetapprole這個預儲程序,我使用的是ms sql 2000

現在的問題很怪,因為我執行ADOConnection1.Connected:=False,理論上應該角色就不作用了,

但是當我再 ADOConnection1.Connected:=True;然後open一個query,並不是說角色不作用或是角色仍然作用,

而是直接連線失敗,感覺上是ole db的connecting pooling在作怪,但是卻找不到解決的方法,

再麻煩各位先進了,謝謝

===================引 用 文 章===================

===================引 用 文 章===================

請問各位先進,

程式碼如下：

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOConnection1.Connected:=True;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('EXEC sp_setapprole ''AP_Role'', ''Test''');
ADOQuery1.ExecSQL;
//ADOConnection1.Connected:=False; //利用sp_setapprole 啟動應用程式角色之後，該角色會保持作用中，直到使用者從伺服器中斷連接 或執行sp_unsetapprole。
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ADOConnection1.Connected:=True;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select top 10 * from TestTable');
ADOQuery1.Open;

end;

如果我先按下BUTTON1再按下BUTTON2 就會出現連線失敗

不知道這樣的問題該如何解決

謝謝