如何获取局域网中的sql server数据库名，和该主机名（ip或者机器名）

[初心2]

如题目

[hch_45]

Function GetSQLServerList(var List: Tstringlist): boolean;
var
i: integer;
sRetValue: String;
SQLServer: Variant;
ServerList: Variant;
begin
Result := False;
List.Clear;
try
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList := SQLServer.ListAvailableSQLServers;
for i := 1 to Serverlist.Count do
list.Add (Serverlist.item(i));
Result := True;
Finally
SQLServer := NULL;
ServerList := NULL;
end;
end;

它返回的是主机名。也就是SQL SERVER 名

[hch_45]

function GetIPAddrByName(Name: string; var Ip: string): Boolean;
var
wsdata : TWSAData;
hostName : array [0..255] of char;
hostEnt : PHostEnt;
addr : PChar;
begin
WSAStartup ($0101, wsdata);
try
Gethostname (hostName, sizeof (hostName));
StrPCopy(hostName, Name);
hostEnt := gethostbyname (hostName);
if Assigned (hostEnt) then
begin
if Assigned (hostEnt^.h_addr_list) then
begin
addr := hostEnt^.h_addr_list^;
if Assigned (addr) then
begin
IP := Format ('%d.%d.%d.%d', [byte (addr [0]),
byte (addr [1]), byte (addr [2]), byte (addr [3])]);
Result := True;
end
else
Result := False;
end
else
Result := False;
end
else
begin
Result := False;
end;
finally
WSACleanup;
end
end;


通过主机名取到IP

[初心2]

hch_45(んこん)
现在已经能够取得ip和主机名了，
还有一个问题没有解决，就是获取该SQL SERVER下的database。
通过什么方法呢？

[windindance]

exec sp_databases

[初心2]

windindance(风舞轻扬) 的什么意思不是很清楚。

[windindance]

你是要获取某个SQL SERVER实例下的所有数据库吗？
使用exec sp_databases即可

[初心2]

是的，不好意思的是：我不明白你这句话怎么用。。

[hnhb]

学习``````

[wangxl430]

那个是执行系统存储过程

[NetG]

回复人： hch_45(んこん) ( ) 信誉：121 2003-8-21 13:17:15 得分:0



Function GetSQLServerList(var List: Tstringlist): boolean;
var
i: integer;
sRetValue: String;
SQLServer: Variant;
ServerList: Variant;
begin
Result := False;
List.Clear;
try
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList := SQLServer.ListAvailableSQLServers;
for i := 1 to Serverlist.Count do
list.Add (Serverlist.item(i));
Result := True;
Finally
SQLServer := NULL;
ServerList := NULL;
end;
end;

它返回的是主机名。也就是SQL SERVER 名




提示：没有ListAvailableSQLServers的方法？why？