怎么能在运行中知道Access数据库中有没有表存在，如果存在怎么样清除这个表？用什么方法实现。

Question

怎么能在运行中知道Access数据库中有没有表存在，如果存在怎么样清除这个表？用什么方法实现。

Answer 1

Option ExplicitPublic rs As New ADODB.Recordset
Public conn As New ADODB.Connection
Private Sub Command1_Click()
  On Error Resume Next
  Dim strconn As String
  strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\fft030735\桌面\test.mdb;Persist Security Info=False"
  conn.CursorLocation = adUseClient
  conn.Open strconn
  conn.Execute ("111")
 If Err.Number <> 0 Then
    MsgBox "不存在 "
 Else
   MsgBox "存在"
 End If
 
End Sub
如果存在則DROP掉

Answer 2

用adox
在程序中引入microsoft ado ext.2.7 for DLL and security
Dim cat As ADOX.Catalog       '包含描述数据源模式目录的集合
Dim cnn As ADODB.Connection   '定义连接
Dim tbl As ADOX.Table         '定义数据库中的表Set cat = New ADOX.Catalog
Set cnn = New ADODB.Connectioncnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\123.mdb;Persist Security Info=False"Set cat.ActiveConnection = cnnOn Error Resume Next
For Each tbl In cat.Tables
 If Trim(tbl.Name) = "要找的表名" Then
   MsgBox "存在这个表" 
 End If
Next