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

问题是导出数据需要加密，2003以下的版本随便解密了

用户名、密码？

aaa,aaa

 测试了一下，你这样做吧。拼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

真心佩服……………………