如何：将一个ACCESS库中的一系列表导入到另一个ACCESS库中 ( 积分: 100 )

一个库中DB1有一系列表，如：2004xx,2004tjwat,2004cjtk等，导出到另一个库中（如DB2），要用一过程自动找出DB1中的这一系列表并导出到DB2中！

直接复制,就可以了.

问题是如何查找到文件，即列出需要导出的文件呀<br>请大侠给个代码看看吧

要复杂的话可以编程实现,一条记录一条记录的过<br><br>--------------------------------<br>www.waibaoinfo.com

FUNCTION&nbsp;Dcdata(CONST&nbsp;filename:&nbsp;STRING):&nbsp;boolean;<br>VAR<br>&nbsp;&nbsp;i&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:&nbsp;integer;<br>&nbsp;&nbsp;ts&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:&nbsp;tstrings;<br>BEGIN<br>&nbsp;&nbsp;ts&nbsp;:=&nbsp;tstringlist.Create;<br>&nbsp;&nbsp;WITH&nbsp;ts,&nbsp;adoconnection1&nbsp;DO<br>&nbsp;&nbsp;&nbsp;&nbsp;TRY<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;GetTableNames(ts);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FOR&nbsp;i&nbsp;:=&nbsp;0&nbsp;TO&nbsp;ts.Count&nbsp;-&nbsp;1&nbsp;DO<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Execute(format('select&nbsp;*&nbsp;into&nbsp;%s&nbsp;in&nbsp;%s&nbsp;from&nbsp;%s',&nbsp;[Strings,&nbsp;filename,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Strings]));<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;result&nbsp;:=&nbsp;false;<br>&nbsp;&nbsp;&nbsp;&nbsp;FINALLY<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ts.Free;<br>&nbsp;&nbsp;&nbsp;&nbsp;END;<br>END;