数据的批量接收

gpgpgp

前提是：在某一个文件夹中的所有数据库中的表的数量和名称都是一样的，并且当前打开的数据库与用浏览按钮找到的这个文件夹中的所有数据库中的表的数量和名称也都是一样的。

目的：想要实现的是选定list1中要接收的数据库和ist2中要接收的数据库中的那些表后，按照对应的数据库表的名称把数据批量接收到当前打开的数据库的各表中来。

再次对andymark版主这些日子帮助表示衷心的感谢！如有没有说清楚的地方，请明示，我在做补充说明。现将范例上传。

andymark

把文件夹的mdb加载到list1

  

gpgpgp

这些日子非常感谢andymark版主和其他老师的帮助，想完成《数据的批量接收》这项功能，已经看到了希望，现在只剩下两个问题，由于自己能力所限，恳请各位老师帮助完成。


前提：是在某一个文件夹中的所有数据库中的表的数量和名称都是一样的，并且当前打开的数据库与用浏览按钮找到的这个文件夹中的所有数据库中的表的数量和名称也都是一样的。


目的：想要实现的是选定list1中要接收的数据库和list2中要接收的数据库中的那些表后，按照对应的数据库表的名称把数据批量接收到当前打开的数据库的各表中来。





两个问题是在上传的范例里数据接收按钮要完成：


1.    删除当前数据库（就是我上传的范例数据库）中在list2里选择的（是多选）表中的所有记录。


2.    将选定list1中要接收的数据库和list2中要接收的数据库中的那些表后，按照对应的数据库表的名称把数据批量接收到当前打开的数据库的各表中来。

fan0217

第一个问题：

Dim strTableList As String, varArray As Variant
Dim i As Integer

    strTableList = Me.List2.RowSource

    varArray = Split(strTableList, ";", -1)
   
    For i = 0 To UBound(varArray)
        DoCmd.RunSQL "Delete * from " & varArray(i) & ";"
    Next
   

[此贴子已经被作者于2006-7-11 18:01:58编辑过]

fan0217

第二个问题：参考：http://www.office-cn.net/forum.php?mod=viewthread&tid=19442&replyID=&skin=1

andymark

我想知道所谓接收的数据是替换，还是追加到当前数据库

如果是替换，可直接将当前数据库删除，直接将选定表的COPY或导入

如果是合并追加，还必须考虑数据唯一完整性的问题（即不能重复追加)

gpgpgp

andymark版主您好！

就是直接将当前数据库删除，直接将选定表的COPY或导入

andymark

在LIST1中取消了多选,我觉得把全部数据一起导进来,最终结果,也只有最后导进的数据库的数据

gpgpgp

andymark版主您好！

我之所以要对ＬＩＳＴ１进行多选，就是要将选择的文件夹中的这些数据库中各表的记录连续不断的追加到当前的数据库中来，而现在只将选择的一个数据库的记录导入进来了．

目的：将选定list1中要接收的数据库和list2中要接收的数据库中的那些表后，按照对应的数据库表的名称把数据批量接收到当前打开的数据库的各表中来。

道理我知道，就是要循环增加，但代码不会写，恳请大家把最后这个问题帮助解决．

[此贴子已经被作者于2006-7-13 10:06:39编辑过]

andymark

追加前把数据库清空,然后按选定的数据库 选定的表追加到当前数据库指定的表