線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1386
推到 Plurk!
推到 Facebook!

如何检测sqlserver数据库是否打开

尚未結案
rainside
一般會員


發表:7
回覆:3
積分:2
註冊:2005-06-14

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-08-18 13:51:27 IP:59.41.xxx.xxx 未訂閱
我使用ADOQuery连接服务器的SQlserver数据库,但是如果数据库没有打开或者网络存在故障就会发生错误,请问如何实现在form建立时先检测网络是否畅通,且检测数据库是否打开!
kevinguo
初階會員


發表:1
回覆:31
積分:31
註冊:2002-11-20

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-08-18 14:23:52 IP:61.30.xxx.xxx 未訂閱
rainside,您好:     這樣可以嗎 .  < class="code"> try ADOConnection1.Connected:=true; except on e:exception do showmessage('無法連接資料庫-' e.message); end;
Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-08-18 17:44:44 IP:210.65.xxx.xxx 未訂閱
Hi rainside,    請參考:    http://delphi.ktop.com.tw/topic.php?topic_id=29149 並更改 Port 設定,SQL Server 預設的 Port 是 1433,可以參考 http://delphi.ktop.com.tw/topic.php?topic_id=45153 檢查 Port ---------------------------------- 小弟才疏學淺,若有謬誤尚請不吝指教 ----------------------------------
------
Fishman
rainside
一般會員


發表:7
回覆:3
積分:2
註冊:2005-06-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-08-19 09:17:02 IP:59.41.xxx.xxx 未訂閱
Fishman,你好! 你介绍的帖子很好,但是帖子的介绍好像并不能达到我的要求: 1,需要先检测网络情况,即本机是否和Internet是连通的!比如,网络连接已禁用,或者网线故障无法连上Internet. 检测的结果若是成功则进行下一步,若不成功,则中止操作! 2,若网络是通畅的,那么检测sqlserver数据库是否正在服务,若是则进行下一步查询,否则中止操作!
cxg
中階會員


發表:116
回覆:192
積分:76
註冊:2004-02-12

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-08-21 11:04:19 IP:222.35.xxx.xxx 未訂閱
你可以用以下办法检测是否连接INTERNET: function InternetConnected: Boolean; const // local system uses a modem to connect to the Internet. INTERNET_CONNECTION_MODEM = 1; // local system uses a local area network to connect to the Internet. INTERNET_CONNECTION_LAN = 2; // local system uses a proxy server to connect to the Internet. INTERNET_CONNECTION_PROXY = 4; // local system's modem is busy with a non-Internet connection. INTERNET_CONNECTION_MODEM_BUSY = 8; var dwConnectionTypes : DWORD; begin dwConnectionTypes := INTERNET_CONNECTION_MODEM INTERNET_CONNECTION_LAN INTERNET_CONNECTION_PROXY; Result := InternetGetConnectedState(@dwConnectionTypes, 0); end; 然后用TELNET来检测SQL的端口。
rainside
一般會員


發表:7
回覆:3
積分:2
註冊:2005-06-14

發送簡訊給我
#6 引用回覆 回覆 發表時間:2005-08-22 12:01:57 IP:59.41.xxx.xxx 未訂閱
cxg你好; InternetGetConnectedState是什么?
cxg
中階會員


發表:116
回覆:192
積分:76
註冊:2004-02-12

發送簡訊給我
#7 引用回覆 回覆 發表時間:2005-08-22 12:49:09 IP:222.35.xxx.xxx 未訂閱
引言: cxg你好; InternetGetConnectedState是什么?
USE WinInet; 在Delphi7\Source\Rtl\Win\WinInet.pas中
系統時間:2024-06-27 1:21:43
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!