以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]导出项目数据时提示无效密码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=71305)

--  作者:chnfo
--  发布时间:2015/7/8 23:31:00
--  [求助]导出项目数据时提示无效密码
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:导出项目数据时提示无效密码.zip

导出项目数据时(也就是CS窗口里的button),总提示无效密码,请教各位大神,到底是什么地方的问题?
注意:
1、要导出2007格式的,便于导出的数据库表加密
2、这里只是做了一个示例,本来是要遍历所有的外部表,全部导出。当然了,是有条件的,不过为了简化起见,条件没有列出。

--  作者:大红袍
--  发布时间:2015/7/9 9:27:00
--  
Dim q As new QueryBuilder
q.TableName = "aaa"
q.ConnectionName = "MicvyPM"
q.SelectString = "select * f rom {tbuser}"
q.Build
Dim ex As new Exporter
ex.SourceTableName = "aaa"
ex.FilePath = "C:\\dc.accdb"
ex.Format = "Access2007"
ex.PassWord = "123"
ex.NewTableName = "aaa"
ex.Export

--  作者:chnfo
--  发布时间:2015/7/9 9:56:00
--  
袍兄,这样恐怕不行哦,如果我有20个表都要导出,不能去建20个querybuilder呢。我的想法是用fill把这20个表数据分别填到aaa表中,然后exporter,但总提示无效密码
--  作者:大红袍
--  发布时间:2015/7/9 9:58:00
--  

 汗,以前给你写过啊。

 

 只需要一个aaa表啊


--  作者:chnfo
--  发布时间:2015/7/9 10:13:00
--  
看看这样有什么问题
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:dcxm.txt


--  作者:大红袍
--  发布时间:2015/7/9 10:15:00
--  
 QueryBuilder 写在循环里面去。
--  作者:chnfo
--  发布时间:2015/7/9 10:20:00
--  
我附件中的代码问题在哪里呢
--  作者:大红袍
--  发布时间:2015/7/9 10:23:00
--  

 

[此贴子已经被作者于2015/7/9 10:23:56编辑过]

--  作者:大红袍
--  发布时间:2015/7/9 10:24:00
--  
For Each dt As DataTable In DataTables
    If dt.Type = 3 And dt.Name <> "aaa" Then
        Dim q As new QueryBuilder
        q.TableName = "aaa"
        q.ConnectionName = "MicvyPM"
        q.SelectString = "select * f rom {" & dt.Name & "}"
        q.Build
        Dim ex As new Exporter
        ex.SourceTableName = "aaa"
        ex.FilePath = "D:\\CS\\SQL\\a.accdb"
        ex.Format = "Access2007"
        ex.PassWord = "123"
        ex.NewTableName = dt.Name
        ex.Export
    End If
Next

--  作者:chnfo
--  发布时间:2015/7/9 10:31:00
--  
袍兄,这样肯定不行的,因为第一个datatable时,就建了一个“aaa"表,导第二个表的时候,aaa表已经存在了,不可能再QueryBuilder