求一段vb代码，实现，在数据库里面查一张表，如果表不存在就弹出警告对话框，谁会的告诉我，我是新手比较急，谢谢

Question

求vb编程语句
实现，在数据库里面查一张表，如果表不存在就弹出警告对话框，谁会的告诉我，我是新手比较急，谢谢 

Answer 1

什么数据库？SQL数据库的话， （新建一个数据工程） 放下面代码：要修改
连接字符串，需要查找的表名Private Sub Form_Load()
Dim STR_SQL As String
Dim CONNECT_S As ADODB.Connection
Dim RS As ADODB.RecordsetSet CONNECT_S = New ADODB.Connection
Set RS = New ADODB.Recordset
    CONNECT_S.Open "连接字符串"    STR_SQL = "select COUNT(*) AS object from dbo.sysobjects where id = object_id(N'[dbo].[需要查找的表名]') and OBJECTPROPERTY(id, N'IsUserTable') = 1"
    RS.Open STR_SQL, CONNECT_S, adOpenStatic
    If RS.Fields(0).Value > 0 Then
        MsgBox "表存在！"
    Else
        MsgBox "表不存在！"
    End If
End Sub