盒子论坛 v2.1

我现在想得到的是局域网中装有SQLServer机器的名字，然后在一个下拉的列表中把所有这些名字都显示出来，可以给我选择。我应该怎么扫描局域网中装有SQLServer的机器呢？

还有如果我选中了一个SQLServer的名字，就在另一个下拉列表中显示在这个SQLServer中的所有数据库，也就是要扫描一个SQLServer中的所有数据库，应该怎么做呢？

大侠们看看，急啊！！！最好给点代码参考一下！
----------------------------------------------
很好！

作者：

cmh (cmh)	★☆☆☆☆	-
	盒子活跃会员

2004/6/25 11:25:13

1楼：

我也在关注中
----------------------------------------------
-

作者：

iamdream (银河恒久远，梦想无止境！)	★☆☆☆☆	-
	大贡献会员

2004/6/25 12:21:35

2楼：

获取SQLServer的一种方法（原创不是我*o#）：

在窗口上放置一个listbox控件，命名为：listbox1；另将ComObj加入到引用中(uses)；

procedure TForm1.FormCreate(Sender: TObject);
var
  SQLServer:Variant;
  ServerList:Variant;
  i,nServers:integer;
begin
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList:= SQLServer.ListAvailableSQLServers;
if serverlist.count<1 then
  begin //如果服务器不存在，则退出系统
     showmessage('服务器不存在，请检测服务器是否已经开机或者服务是否打开了');
     application.Terminate;
  end
else
  begin
   for i:=1 to serverlist.count do
   listbox1.Items.Add(serverlist.item(i)) ;
   showmessage(serverlist.item(1)+'服务器已经打开，可以正常使用本系统');
   //adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security info=False;UserID=sa;InitialCatalog=ideal_db;DataSource='+ServerList.Item(1);
  end;
SQLServer:=NULL;
serverList:=NULL;
end;

----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……

作者：

iamdream (银河恒久远，梦想无止境！)	★☆☆☆☆	-
	大贡献会员

2004/6/25 12:54:46

3楼：

至于取所有数据库名，可用SQL语句来取：
select name from master.dbo.sysdatabases
返回值即是数据库名列表.
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……

作者：

delphiming (delphiming)	★☆☆☆☆	-
	盒子活跃会员

2004/7/3 17:56:26

4楼：

iamdream 大哥
获取SQLServer的一种方法好像有错啊

----------------------------------------------
-

作者：

iamdream (银河恒久远，梦想无止境！)	★☆☆☆☆	-
	大贡献会员

2004/7/5 8:04:00

5楼：

错在啊里？
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……

信息

登陆以后才能回复