以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  导入表和删除表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91261)
--  作者：machle
--  发布时间：2016/10/5 19:53:00
--  导入表和删除表
access中有很多个表，有很多个access文件，每个文件中的表名都一样，通过点击文件名切换查看表中的数据。
想先导进表来，再删除表。现在是删除，用下面的代码删不掉。

请老师们帮看看，谢谢！

Dim str2 As String

For Each t As Table In Tables
    
    str2 = """" & t.name & """"
    Dim Builder As New ADOXBuilder
    Builder.Open()
    With Builder
        If str2.contains("导入表") Then
           
            \'messagebox.show(str2)
            \'DataTables.UnLoad("""" & str2 & """")
            DataTables.UnLoad(str2)
        End If
    End With
    Builder.Close()
    
Next
--  作者：machle
--  发布时间：2016/10/5 20:13:00
--  回复：（machle）导入表和删除表
能否帮我写一下正确的导入表和删除表的代码。

常常是导入的时候，告诉我，已存在。
删除的时候，找不到。

谢谢！！！
--  作者：狐狸爸爸
--  发布时间：2016/10/5 22:22:00
--  
删除的：

If DataTables.Contains("表A") Then
    Dim Builder As New ADOXBuilder
    Builder.Open()
    With Builder
        .DeleteTable("表A")
    End With
    Builder.Close()
    DataTables.Unload("表A")
End If
--  作者：machle
--  发布时间：2016/10/8 22:06:00
--  回复：（狐狸爸爸）删除的：If DataTables.Contains("...
谢谢您！