最近开始学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

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