5,388
社区成员
发帖
与我相关
我的任务
分享谁知道怎样取得SQL Server 2000 服务器的名称？？
取得当前网络中可以使用的数据库服务器名称，以便于在程序运行中连接不同的服务器？？多谢！
...全文
请发表友善的回复…
发表回复
I_wanttoknow 2002-10-10
- 打赏
- 举报
多谢，结贴！
debussy 2002-10-10
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
var
SQLServer:Variant;
ServerList:Variant;
i,nServers:integer;
sRetValue:String;
begin
SQLServer := 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;
在精华区里面有
var
SQLServer:Variant;
ServerList:Variant;
i,nServers:integer;
sRetValue:String;
begin
SQLServer := 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;
在精华区里面有
