遍历数据库服务器中的数据库

怎样用VB在一个指定的SQL服务器中找出所有用户所建立的数据库? 问题点数：20、回复次数：3Top

1 楼zgvslch（烟花离落）回复于 2005-07-24 12:51:15 得分 20

Dim   ServerName()   As   String  
  Dim   DataName()   As   String  
  Dim   Server   As   String  
  Dim   I   As   Long  
  Dim   j   As   Long  
   
  Public   Function   SQLServerList(ByRef   strServerName()   As   String,   _  
                                                              Optional   ByRef   rlngErrNum   As   Long,   _  
                                                              Optional   ByRef   rstrErrDescr   As   String)   As   Boolean  
                                                               
        Dim   objServerApp   As   SQLDMO.Application  
        Dim   objServers   As   SQLDMO.NameList  
        Dim   lngServerCount   As   Long  
        On   Error   GoTo   SQLServerListErr  
         
        SQLServerList   =   False  
        Set   objServerApp   =   New   SQLDMO.Application  
        Set   objServers   =   objServerApp.ListAvailableSQLServers  
         
        lngServerCount   =   objServers.Count  
        ReDim   strServerName(lngServerCount   -   1)  
         
        For   I   =   1   To   lngServerCount  
         
              strServerName(I   -   1)   =   objServers.Item(I)  
         
        Next   I  
         
        SQLServerList   =   True  
         
        Err.Clear  
  SQLServerListErr:  
        Set   objServers   =   Nothing  
        Set   objServerApp   =   Nothing  
         
        rlngErrNum   =   Err.Number  
        rstrErrDescr   =   Err.Description  
  End   Function  
   
  Public   Function   SQLDatabaseList(ByVal   vstrServer   As   String,   _  
                                                              strDatabase()   As   String,   _  
                                                              Optional   ByVal   vstrUser   As   String   =   "sa",   _  
                                                              Optional   ByVal   vstrPassWord   As   String   =   "",   _  
                                                              Optional   rlngErrNum   As   Long,   Optional   rstrErrDescr   As   String)   As   Boolean  
                                                               
        Dim   objServer   As   SQLDMO.SQLServer  
        Dim   lngDatabaseCount   As   Long  
        On   Error   GoTo   SQLDatabaseListErr  
         
        SQLDatabaseList   =   False  
        Set   objServer   =   New   SQLDMO.SQLServer  
         
        objServer.Connect   "lch",   vstrUser,   vstrPassWord  
   
        lngDatabaseCount   =   objServer.Databases.Count  
        ReDim   strDatabase(lngDatabaseCount   -   1)  
         
        For   I   =   1   To   lngDatabaseCount  
              strDatabase(I   -   1)   =   objServer.Databases.Item(I,   "dbo").Name  
        Next   I  
         
        SQLDatabaseList   =   True  
         
        Err.Clear  
  SQLDatabaseListErr:  
        Set   objServer   =   Nothing  
         
        rlngErrNum   =   Err.Number  
        rstrErrDescr   =   Err.Description  
   
  End   Function  
   
   
  Private   Sub   Command1_Click()  
  Call   SQLServerList(ServerName())  
  For   I   =   0   To   UBound(ServerName)  
  Text1   =   Text1   &   ServerName(I)   &   vbCrLf  
   
  Call   SQLDatabaseList(ServerName(I),   DataName())  
  For   j   =   0   To   UBound(DataName)  
  Text2   =   Text2   &   DataName(j)   &   vbCrLf  
  Next  
  Next  
   
  End   Sub  
   
  找服务器和数据库Top

2 楼Athoncj（阿龙）回复于 2005-07-24 15:45:42 得分 0

select   name   from   sysdatabases   where   dbid>6Top

3 楼Sidneylee（为静）回复于 2005-07-25 08:39:20 得分 0

为什么有几台服务器搜索不到，有的可以？Top

相关问题

• 数据库
• 服务器
• application
• lngservercount
• objserverapp
• objservers
• sqlserverlist
• stringdim
• strservername
• rlngerrnum

• 帖主：Sidneylee
• zgvslch

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