請問要如何搜尋SQL Server 的伺服器名稱 |
答題得分者是:shinjie
|
Stupidman is me
一般會員 ![]() ![]() 發表:4 回覆:7 積分:2 註冊:2004-07-13 發送簡訊給我 |
|
shinjie
資深會員 ![]() ![]() ![]() ![]() ![]() 發表:12 回覆:275 積分:287 註冊:2003-03-19 發送簡訊給我 |
------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。 得之;我幸。不得;我命。 |
Stupidman is me
一般會員 ![]() ![]() 發表:4 回覆:7 積分:2 註冊:2004-07-13 發送簡訊給我 |
我還是沒有搜尋到 網路中的 SQL SERVER的伺服器名稱
我的 Source Code 如下, 不知道哪裡錯誤<textarea class="cpp" rows="10" cols="60" name="code"> void __fastcall TForm1::SearchSqlServer(TStrings *pStrList) { Variant vSQLServer; Variant vServerList; int nServers; int i ; try { vSQLServer = CreateOleObject("SQLDMO.Application"); } catch(...) { ShowMessage("Did not search any SQL server"); return; } vServerList = vSQLServer.OleFunction("ListAvailableSQLServers"); nServers = vServerList.OlePropertyGet("Count"); pStrList->Clear(); for( i=0; i < nServers ; i ) { pStrList->Add(vServerList.OleFunction("Item",i)); vSQLServer = Unassigned; vServerList = Unassigned; } } </textarea> |
Stallion
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:52 回覆:1600 積分:1995 註冊:2004-09-15 發送簡訊給我 |
|
Stupidman is me
一般會員 ![]() ![]() 發表:4 回覆:7 積分:2 註冊:2004-07-13 發送簡訊給我 |
|
Stupidman is me
一般會員 ![]() ![]() 發表:4 回覆:7 積分:2 註冊:2004-07-13 發送簡訊給我 |
各位先進, 感謝各位的幫忙, 我已經解決了, 把 Source Code 改成下面的方式就可以了<textarea class="cpp" rows="10" cols="60" name="code">
void __fastcall TForm1::SearchSqlServer(TStrings *pStrList)
{
Variant vSQLServer;
Variant vServerList;
int nServers;
int i ;
try
{
vSQLServer = CreateOleObject("SQLDMO.Application");
}
catch(...)
{
ShowMessage("Did not search any SQL server");
return;
}
vServerList = vSQLServer.OleFunction("ListAvailableSQLServers");
nServers = vServerList.OlePropertyGet("Count");
pStrList->Clear();
for( i=0; i < nServers ; i )
{
pStrList->Add(vServerList.OleFunction("Item",i));
}
vSQLServer = Unassigned;
vServerList = Unassigned;
}
</textarea>
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |