关于access中删除表的问题，各位大虾帮帮忙，急！！！

Question

Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path + "\data\bym.mdb")
Set tabdef = db.CreateTableDef("tj")
Set field = tabdef.CreateField("公司产量", dbDouble, 4)tabdef.Fields.Append field
db.TableDefs.Append tabdef这些是我建表的语句，可是创建后，我用
tabdef.Fields.delete field
db.TableDefs.delete tabdef
都无法删除，小弟很急，忘各位大虾帮帮忙，谢谢！

Answer 1

Option Explicit'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Combo1_Click()
    rs.Open "SELECT * FROM TABLENAME WHERE NAME = '" & txtName.Text & "'", cn, adOpenDynamic, adLockOptimistic
    If Not rs.EOF Then
        Label1.Caption = rs!ID
        Label2.Caption = rs!Memo
    End If
   
    rs.AddNew
    rs!ID = "编号"
    rs!Memo = "备注"
    rs.Update
End SubPrivate Sub Command1_Click()
    cn.Execute "DROP TABLE TABLENAME"
End SubPrivate Sub Form_Load()
    cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _
        App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
        "DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
        "MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
    "Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"
    cn.Open
    '查询字符串可以上这里查
    'http://www.connectionstrings.com/
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Answer 2

'引用microsoft activex data object 2.x library
Option Explicit
Private conn As adodb.ConnectionPrivate Sub Command3_Click()
Set conn = New adodb.Connection
Dim dbfilename As String
dbfilename = App.Path & "\article.mdb"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfilename & ";Persist Security Info=False;"
conn.CursorLocation = adUseClient
'使用ado删除
conn.Execute "drop table mz"
End Sub

Answer 3

其实很简单，你用错了参数而已tabdef.Fields.delete field
改成tabdef.Fields.delete field.namedb.TableDefs.delete tabdef
改成：db.TableDefs.delete tabdef.name即可

Answer 4

也可以用DROP TABLE 表名
这样来删除啊

Answer 5

'引用microsoft activex data object 2.x librarydim  conn As New ADODB.Connection
dim  rs As New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\bym.mdb;Persist Security Info=False"  
conn.Open
Set rs = conn.Execute("要删除的表", , adCmdTableDirect)
If err.Number <> 0 Then
   MsgBox "表不存在"
Else
   'MsgBox "表存在"
   sqlstr = "drop table 要删除的表"
   conn.Execute sqlstr
End If
rs.close
set rs=nothing
conn.Close
Set conn = Nothing