使用VB检索MSSQL中所有的数据库或数据库中的用户表

1.要检索所有的数据库名，使用

          rs.Open "sp_helpdb", cnMain, adOpenDynamic, adLockOptimistic
          '使用此方法得到一个记录集，然后可在此记录集中，查找指定的数据库名是否存在。

2.检索某个数据库中的所有用户表，使用

          rs.Open "SELECT name From sysobjects WHERE xtype = 'u'"
          ' sysobjects为数据库中的系统表，在数据库内创建的每个对象（表、约束、默认值、日志、规则、存储过程等)都放在这张表里，xtype为对像的类型,u代表用户表

3.检索指定的数据库名或表名是否存在

        While Not rs.EOF
            If StrComp(CStr(rs.Fields("name")), txtDBName, 1) = 0 Then
                MsgBox "数据库 " & txtDBName & " 已经存在！", vbInformation
                rs.Close
                Exit Sub
            End If
            rs.MoveNext
        Wend