检测数据库服务器

在VB中我如何能够检测电脑上的SQL服务器名？ 问题点数：50、回复次数：2Top

1 楼tanaya（唐博士http://blog.csdn.net/tanaya）回复于 2005-05-22 11:16:23 得分 50

利用SQLDMO，在窗体上加入一个List1   一个   Command1  
   
  Private   Sub   Command1_Click()  
          On   Error   GoTo   err  
          Dim   i   As   Integer  
          Dim   oNames   As   SQLDMO.NameList  
          Dim   oSQLApp   As   SQLDMO.Application  
          List1.Clear:   List1.Refresh  
          Set   oSQLApp   =   New   SQLDMO.Application  
          Set   oNames   =   oSQLApp.ListAvailableSQLServers()  
          For   i   =   1   To   oNames.Count  
                  List1.AddItem   oNames.Item(i)  
                  DoEvents  
          Next   i  
          Exit   Sub  
  err:  
          List1.Clear  
          List1.AddItem   err.Description  
  End   Sub  
   
   
   
   
  Top

2 楼awnu88（awnu88）回复于 2005-05-22 19:30:14 得分 0

thanksTop

相关问题

• 检测
• 服务器
• application
• osqlapp
• onames
• sqldmo
• list1
• additem
• command1
• clear

• 帖主：awnu88
• tanaya

• Visual Basic类图书
• Visual Basic类源码下载