如何获得局域网内所有的SQL Server服务器名称？

断肠人在天涯 2004-09-16 08:14:13

...全文

286 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

yknb 2004-09-17

打赏
举报

自习机上装的SQL怎么好像检测不到呢。

bat800 2004-09-16

打赏
举报

zzjzhao 2004-09-16

打赏
举报

俺学了一招

断肠人在天涯 2004-09-16

打赏
举报

Exception: [SQL-DMO]存储空间不足，无法完成此操作。

麻烦各位大虾了！！！

qizhanfeng 2004-09-16

打赏
举报

呵呵

Tensionli 2004-09-16

打赏
举报

uses comobj; //没有引用COMOBJ单元

rockswj 2004-09-16

打赏
举报

uses comobj;

断肠人在天涯 2004-09-16

打赏
举报

SQLServer := CreateOleObject('SQLDMO.Application'); 编译此句时报错，报告CreateOleObject 为未定义标识符，请问是怎么回事？

chxy 2004-09-16

打赏
举报

先装sqlserver2000，再。。。

wzn0521 2004-09-16

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);
var
SQLServer:Variant;
ServerList:Variant;
i:integer;
begin
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList:= SQLServer.ListAvailableSQLServers;
if serverlist.count <1 then
begin //如果服务器不存在，则退出系统
showmessage('服务器不存在，请检测服务器是否已经开机或者服务是否打开了');
Exit;
End;
for i:=1 to serverlist.count do
listbox1.Items.Add(serverlist.item(i));
end;

end.

jabcf 2004-09-16

打赏
举报

procedure TForm1.FormShow(Sender: TObject);
var
SQLServer:Variant;
ServerList:Variant;
i:integer;
begin

SQLServer := CreateOleObject('SQLDMO.Application');
ServerList:= SQLServer.ListAvailableSQLServers;
if serverlist.count<1 then application.Terminate
else
begin
sncombobox1.Items.Clear;
for i:=1 to serverlist.count do
sncombobox1.Items.Add(serverlist.item(i)) ;
end;
SQLServer:=NULL;
serverList:=NULL;

end;