请问如何取得本地Sql Server服务器名？

Question

好像是跟本地机器名一样。请问有什么方法取得这个名称吗？

Answer 1

查找局域网上的sqlserver报务器。    uses Comobj;    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;
希望对你有帮助

Answer 2

查找局域网上的sqlserver报务器。    uses Comobj;    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;
希望对你有帮助

Answer 3

谢谢，有可以读取本机器名的函数吗？这个名字应该与Sql server服务器名相同。

Answer 4

取得计算机名。    function tform1.get_name:string;    var  ComputerName: PChar;  size: DWord;    begin        GetMem(ComputerName,255);        size:=255;        if GetComputerName(ComputerName,size)=False then           result:=''        else           result:=ComputerName;        FreeMem(ComputerName);    end;    procedure TForm1.Button1Click(Sender: TObject);    begin      label1.Caption:=get_name;    end;