主题：[求助]局域网的数据库数据导出

你成功添加了这个数据源了吗？如果Access数据库加密，看看这里 http://www.foxtable.com/help/topics/1808.htm

导出空白？这是不可能的吧？你直接用菜单的 导出呢？

或者直接用 Tables("xxx").SaveExcel("", "xxx") 呢？

如果可以，用代码直接导出应该也是可以。不应该有你这种为才对。

 测试了一下，你这样做吧。拼SQL语句就不帮你做了。

Dim q As new QueryBuilder
q.C
q.TableName = "临时表"
q.SelectString = "Select * from {TbCon} "
q.Build

For Each dt As DataTable In DataTables
    If dt.name <> "临时表" Then
        DataTables("临时表").Fill("select * from {" & dt.name & "}", "pmcs", True)
    End If

    Dim ex As New Exporter
    ex.SourceTableName = "临时表" '指定导出表
    ex.FilePath = "e:\cs1000.accdb" '指定目标文件
    ex.Format = "Access2007" '导出格式为Access 2007
    ex.PassWord = "aaa"
    ex.NewTableName = dt.Name
    ex.Export() '开始导出
Next