数据库为sql server,怎样用VB代码判断表MyTable是否存在

Question

数据库为sql server,怎样用VB代码判断表MyTable是否存在？

Answer 1

"select [name] from sysobjects where xType='U' and [name]='MyTable'"

Answer 2

'用ado怎样实现
'工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）
Private Sub Form_Load()
    Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
    '具体的数据库连接请自己改过来
    cn.Open "Provider=SQLOLEDB.1;Password=;Persist Security Info=False;User ID=sa;Initial Catalog=ExamDB;Data Source=image"
    rs.Open "select [name] from sysobjects where xType='U' and [name]='MyTable'"
, cn, adOpenDynamic, adLockOptimistic
    If Not rs.EOF Then
        MsgBox "MyTable已经存在！"
    Else
        MsgBox "MyTable不存在！"
    End If
End Sub