在我的机子上可以得到局域网的所有装有SQL SERVER的机子,在别的机子上运行我的程序，就得不到所在机子的服务器名称

Question

uses  comobj;  
 
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  
   combobox1.Items.Clear;  
     for  i:=1  to  serverlist.count  do  
     combobox1.Items.Add(serverlist.item(i))  ;  
   end;  
 SQLServer:=NULL;  
 serverList:=NULL;  
 
end;  
我们的机子上都装有SQL  SERVER，我的权限是admin，最高权限

Answer 1

不是程序的问题，可能是你SQL SERVER的设置有问题

Answer 2

1、网络通了没有？
2、必须有安装了ODBC驱动
3、不支持非NT平台

Answer 3

有问题的机子装了SQL SERVER 2000 SP4
,我的没有，和这有关系吗