如何查找局域网存在的MS SQLSERVER2000服务器

Question

小弟菜鸟一只，这二天遇到一个问题，拿出来请各位指条明路!谢谢!
在DELPHI里如何用下拉列表框将局域网存在的MS SQLSERVER2000服务器表示出来，
再根据所选择的服务器对象进行连接？!!!

Answer 1

uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
SQLServer:Variant;
ServerList:Variant;
i,nServers:integer;
sRetValue:String;
beginSQLServer := CreateOleObject('SQLDMO.Application');
ServerList:= SQLServer.ListAvailableSQLServers;
nServers:=ServerList.Count;
for i := 1 to nservers do
ListBox1.Items.Add(ServerList.Item(i));
SQLServer:=NULL;
serverList:=NULL;
end;

Answer 2

连接?
你指什么
用delphi的数据集控件访问数据库吗
那只要动态的更改连接串不就可以了吗