• 全部
  • 基础类
  • 应用实例
  • 新技术前沿

如何列举局域网内的所有SQL server服务??(在线)

baiyongchun 2003-05-08 01:57:08
如何列举局域网内的所有SQL server服务??(在线)
...全文
6 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
angelior 2003-06-10
不是吧!
lwk_hlj(披着狼皮的人)是Delphi中的。。。。
呵呵!
也真行!
回复
baiyongchun 2003-05-08
我象:
lwk_hlj(披着狼皮的人)
做了,不知为什么部分服务器不能列出(有时候又能找到),本机SQL SERVER也列不出,为什么啊??
回复
pengdali 2003-05-08
OSQL -L > C:\SERVERLIST.TXT
回复
lwk_hlj 2003-05-08
function TFormDataSet.GetSQLServer(ComboBox: TComboBox): Boolean;
var
SQLServer: Variant;
ServerList: Variant;
i, nServers: integer;
sRetValue: string;
begin
ComboBox.Items.Clear;
Result := False;
try
Screen.Cursor := crHourGlass;
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList := SQLServer.ListAvailableSQLServers;
nServers := ServerList.Count;
for i := 1 to nServers do
ComboBox.Items.Add(ServerList.Item(i));
SQLServer := NULL;
ServerList := NULL;
Result := True;
cbSQLServer.Style := csDropDownList;
except
end;
Screen.Cursor := crDefault;
end;
回复
baiyongchun 2003-05-08
SQL server服务器
回复
相关推荐
发帖
MS-SQL Server
创建于2007-09-28

3.3w+

社区成员

MS-SQL Server相关内容讨论专区
申请成为版主
帖子事件
创建了帖子
2003-05-08 01:57
社区公告
暂无公告