使用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

阅读更多
想对作者说点什么?

博主推荐

换一批

没有更多推荐了,返回首页