delphi 如何在 LAN 170 中獲取有效的 SQL Server 名稱

function getsqlserverlist(strings:tstrings):boolean;

該函式的實現方式如下：

function : tstrings): boolean;

var 在區域網中獲取有效的 sql server 名稱 sqlserver： variant;

serverlist: variant;

i,sercount:integer;

beginresult:=false;

try sqlserver := createoleobject('');

serverlist := ;

sercount:= ;

if sercount>0 then result:=true;

for i:=1 to sercount doif <>''then ;

sqlserver := null;

serverlist := null;

except

result:=false;

end; end;

說明：sqldmo是乙個單人的dcom服務，只在安裝了sql的機器上，就像word一樣，sqldmo在這方面的資訊很少，它可以完成所有sqlservr的所有功能在程式單元部分，必須新增comctrls，comobj單元才能訪問。

具體應用如下：

初始化列表框。

if getsqlserverlist( thenbegin

end;

如果不知道 IP 位址，則需要列舉類似的埠 1433 並連線。

指定網段內的連線通過連線測試的 IP 位址按順序儲存。

是否要提取資料庫名稱列表或表名稱列表？

女士們，先生們，您好，現在有乙個問題讓我很生氣，我在衝大隊的NT伺服器中設定了乙個專案，該項目的輪換只能由使用者A訪問。 我使用使用者 B 在客戶端上岸，但是我已經知道使用者 B 的使用者名稱和密碼，我使用 delphi 做了乙個 Fadu 示例，這樣 Fadu 示例就可以按照只有使用者 A 才能訪問的順序訪問檔案。

大蝦可以判斷出能在雪地裡送碳，他不能感激！！

女士們，先生們，我剛才犯了乙個錯誤，我應該知道使用者A的使用者名稱和密碼。

不過，您的操作沒有錯誤僅限 SQLSer 企業版也就是說，SQLSserver分為個人版、開發版、標準版和企業版，只有企業版支援這些版本之間的遠端訪問！

SQL Server Enterprise Edition 只能安裝在伺服器版 Windows！

sql2000 安裝 SP4 修補程式，如果 Internet 上沒有此修補程式，則 sql2000 安裝檔案可能具有此修補程式。

XP似乎無法安裝企業版，只能安裝個人版。

開發計算機以外的計算機需要為 SQL Server 安裝一些執行時庫！

這就是我想問的。

拿機器的IP就可以查了，很難找出“當前網路連線”，大神回答！！

使用 try except end

嘗試連線，如果連線成功，則伺服器沒問題。

嘗試連線正常。

您還可以檢查埠 1433 是否開啟。

在資料庫控制項的 Obejct Inspector 的屬性中，連線點為 true，可以測試連線是否不成功！

;showmessage('連線成功');

except

showmessage('連線失敗');

end;