怎么样判断数据库中一个是否已经存在？

Question

Thaks!

Answer 1

Set rs = cn1.OpenSchema(adSchemaTables)
  
  lstTable1.Clear
  
  lblStatus1.Caption = "数据源连接成功，正在检索数据表..."
  
  DoEvents
  
  Do Until rs.EOF
    If Trim(rs!TABLE_TYPE) = "TABLE" Then lstTable1.AddItem Trim(rs!TABLE_NAME)
    rs.MoveNext
  Loop
  
  rs.Close
  Set rs = Nothing这是取出数据库中所有表的!!

Answer 2

SQL:if not (select object_id(庫..表)) is null then drop table 表

Answer 3

if not exist(select * from sysobjects where name=youtablename and xtype='u') then
............

Answer 4

Function CheckTab(Cnn As ADODB.Connection, TabName As String) As Boolean
         
         Dim StrSql As String
         
         On Error Resume Next
         StrSql = "select top 1 * from " & TabName
         CheckTab = (Err.Number = 0)
         Err.Clear
End Function