if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[test]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
能麻烦把ACCESS和mssql都说说
通用的方法:Function QueryTable(TabelName As String) As Boolean Dim con As ADODB.Connection Dim rs As ADODB.Recordset
Set con = New ADODB.Connection con.Open "............" Set rs = con.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE")) Do While Not rs.EOF If rs!TABLE_NAME = TabelName Then QueryTable = True Exit Do End If rs.MoveNext Loop Set rs = Nothing Set con = Nothing
能麻烦把ACCESS和mssql都说说
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Set con = New ADODB.Connection
con.Open "............"
Set rs = con.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
Do While Not rs.EOF
If rs!TABLE_NAME = TabelName Then
QueryTable = True
Exit Do
End If
rs.MoveNext
Loop
Set rs = Nothing
Set con = Nothing
End Function