如何在VB中获得本机或网络的SQL Server 2000 的服务器名称

Question

请教各位老大，如何在VB中获得本机或网络中的SQL Server 2000 的服务器名称？有相关的API函数吗？应该有的，可是我不知道！谢谢各位了！

Answer 1

'引用Microsoft SQLDMO Object Library
Private Sub Command1_Click()
    Dim Server As SQLDMO.NameList          '名字列表namelist
    Dim appDMO As New SQLDMO.Application   'sqldmo应用
    Dim i As Integer
    
    Set Server = appDMO.ListAvailableSQLServers        '得到所有的sql sever 列表
    
    For i = 1 To Server.Count
        List1.AddItem Server(i)      '加入到cmbServer中,cmbServer是一个combo下拉列表
    NextEnd Sub

Answer 2

'引用Microsoft SQLDMO Object Library
Private Sub Command1_Click()
    Dim Server As SQLDMO.NameList          
    Dim appDMO As New SQLDMO.Application   
    Dim i As Integer
    
    Set Server = appDMO.ListAvailableSQLServers        
    
    For i = 1 To Server.Count
        List1.AddItem Server(i)      
    NextEnd Sub

Answer 3

非常感谢lxcc(虫子|专注于抢分)虫子大侠！按照你上面的做法已经成功获得局域网内部的所有SQL Server 2000 的服务器名称，得到本机的名称为 (local)，我奢侈地再想问一下，能不能得到本机的实际名称，不要为 (local)？（你说的方法已经解决了我的问题！万分感谢！）

Answer 4

EXEC MASTER..XP_CMDSHELL 'OSQL -L'这一句SQL语句 就可以得到当前网络上所有的SQL SERVER 服务器的名称

Answer 5

select SERVERPROPERTY('ServerName') 试试这个吧，得到当前SQL SERVER 服务器名称

Answer 6

SELECT @@SERVERNAME这个也可以

Answer 7

好的，谢谢flyingZFX(★我飞★我飞★我飞呀飞★),你的方法我也已经试过，也已经成功！谢谢！
额外地问一句，能否得到本机的实际实例名，不要为“(local)”?

Answer 8

OK！flyingZFX(★我飞★我飞★我飞呀飞★)！“SELECT @@SERVERNAME”已经成功执行，谢谢了！真是高，实在是高！还有 lxcc(虫子|专注于抢分)，你们真是太厉害啦！小弟对你们的佩服有如长江之水连绵不绝......