SQL2005 检测数据库中表示否存在
最近开始学SQL，留下一点小技巧，以备以后翻看。
代码
<!--Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--> 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
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
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/16436858/viewspace-625744/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
