SQL2005 检测数据库中表示否存在

最近开始学SQL，留下一点小技巧，以备以后翻看。

 

 

代码

     Private   Sub  Button1_Click( ByVal  sender  As  System.Object,  ByVal  e  As  System.EventArgs)  Handles  Button4.Click
         Using  CONN  As   New  SqlConnection(source)
            CONN.Open()

             '  这里检测数据库中存在多少表
             Dim  sqlc1  As  SqlCommand  =  CONN.CreateCommand
            sqlc1.CommandText  =   " select COUNT(*) from sys.tables "
             MsgBox (sqlc1.ExecuteScalar)

             '  这里用 DataGridView 显示表的详细信息
             Dim  da  As   New  SqlDataAdapter( " select * from sys.tables " , CONN)
             ' da.SelectCommand = New SqlCommand("select * from sys.tables", CONN)
             Dim  ds  As   New  DataSet
            da.Fill(ds)
            DataGridView1.DataSource  =  ds.Tables( 0 )

             '  这里检测是否包含某个表
             Dim  sqlc2  As  SqlCommand  =  CONN.CreateCommand
            sqlc2.CommandText  =   " select COUNT(*) from sys.tables where name='tablename' "
             MsgBox (sqlc2.ExecuteScalar)

            CONN.Close()
         End   Using
     End Sub