如果网络或别的原因,总会报这个错误:(我要等好长时间)
"[dbnetlib][connectionopen(connect).]sql server 不存在或拒绝访问"


我想第一时间捕捉到这个错误,然后用"application.terminate"去终止它,如何做啊?

多谢

編輯記錄

1.Connection可以設定Timeout的值，試著設定短一點。
2.測試SQL SERVER可否連的上，可以使用 try...except, try...finally來寫，而不用搞的那麼麻煩！
var
Success:Boolean;
try
Success:=true;
try
.....//連線設定
aConnection.Open;
except
ShowmMessage('連線錯誤，請檢查');
Success:=false;
end;
//...其他程式碼
finally
aConnection.Close;
if not Success then
Application.Terminate;
end;
===================引 用 hua2000 文 章===================
如果网络或别的原因,总会报这个错误:(我要等好长时间)
"[dbnetlib][connectionopen(connect).]sql server 不存在或拒绝访问"
我想第一时间捕捉到这个错误,然后用"application.terminate"去终止它,如何做啊?
多谢

上面的代码好用,多谢啦




对了,怎么不能结案啊 我在哪里给此帖结案啊

因為你提出問題的時候，項目沒有選成「問題」所以不能結案，看看自己是否能夠修改，如果不能修改要請版大幫你修改後結案。

可以修改，多謝

好久沒貢獻東西了...

參考看看...

http://delphi.ktop.com.tw/board.php?cid=31&fid=79&tid=88659

忘了 MSSQL 預設的 Port 了.

Default Port 1433
===================引 用 Mickey 文 章===================
好久沒貢獻東西了...

參考看看...

http://delphi.ktop.com.tw/board.php?cid=31&fid=79&tid=88659

忘了 MSSQL 預設的 Port 了.

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

如何來用啊？

大大，可以興個例子嘛


多謝

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure TesterDone (Sender:TObject; Host:string; Port:Integer; ServiceIsOn:boolean);
end;

implementation

{$R *.dfm}
uses ServerTester;

procedure TForm1.Button1Click(Sender: TObject);
begin
CheckService(Self, '192.168.2.253', 1433, TesterDone);
end;

procedure TForm1.TesterDone(Sender: TObject; Host: string; Port: Integer;
ServiceIsOn: boolean);
begin
if ServiceIsOn then
ShowMessage('On')
else ShowMessage('Off');
end;

===================引 用 hua2000 文 章===================
如何來用啊？

大大，可以興個例子嘛


多謝