主题：确定按钮的代码

 Dim ip as New Importer
ip.SourcePath="Provider=SQLOLEDB.1;Password=1;Persist Security Info=True;User ID=SA;Initial Catalog=master;Data Source=LIHE " '指定数据文件
ip.SourceTableName = "表A" '指定要导入的表
ip.NewTableName ="表A" '导入后的表名
ip.Import()

 

代码大概是这样的。

带数据的定向

如果目标数据源不存在同名同结构的表，那么重定向只是创建一个相同结构的同名空白表，并不会包括任何数据。
如果你需要连同数据一起重定向，那么很简单：

1、外部表定向到内部表
定向结束后，利用菜单中的高速合并功能，将原数据合并过来。

2、外部表定向到新的外部数据源
将原数据源中的相关数据表导入到新的数据源，然后再开始定向。

3、内部表定向到外部数据源
在菜单中单击下面的按钮，会生成一个Access文件，默认包括所有的内部数据表，你可以直接定向到这个Access文件；如果需要定向到一个SQL SERVER数据源，那么只需导入这个Access文件后再开始定向即可。

此功能生成的Access文件，_Identify列的值是重新从1开始排列的，所以_Identify列的值和原始数据可能不同。
这有一个隐患：如果基于_Identify设置了关联，那么可能会导致父子关系的丢失和紊乱。

老兄，不可以要求一个从来没有接触过狐表的人去搞定向的。

Format
指定导入格式，包括Access、Access2007、Excel、Excel2007、dBASE、Delimited、Fixed等格式
其中Delimited为符号分割的文本文件，Fixed为固定列宽的文本文件。
默认为Access。
导入文本文件的时候，最好配合有schema.ini文件，以便于指定列的类型和宽度。

 

 

  你看看狐爸提供的可以导入的格式有没有SQL的东西,基本无解.你还是另走思路,比如将SQL先导出到ACCESS,再导入.或者你自己也做一个SQL数据源,一摸一样的架构.将原数据源做个备份,然后将此备份导入到你那个新的SQL数据源.在工作中万一有问题,立马重定向你的数据源就可以了.

  再说,我认为在工作中经常要换数据源的可能性比较小.

1、也不是无解，狐表是有一个导入窗口的，那两个“确定”按钮里的代码就是我需要的。

2、数据导来导去，对一个普通操作者来说，是一件很不感冒的事，所以也行不通。被审计单位的数据结构如何，事先也不知道，也是无法导入导出的。

3、比如一个审计软件，就要经常换被审计单位，就要经常换数据源，离开被审计单位后，就要切断数据源，定向也不能用了。

只要知道导入窗口那两个“确定”按钮里的代码，一切问题就解决了。

普通的操作者需要的是按一下按钮，数据就到狐表，所以操作不能复杂。

可以用窗口导入SQL，说明是有解的，也可以用代码导入SQL的。

你说得对，可以用窗口导入SQL，肯定也可以用代码导入SQL的。希望贺老师能够告诉我们办法。如果贺老师非要保守，不知这样可不可以（既然贺老师不让走直路，我们只能曲线救国了）？

 

楼主的要求是把SQL里的表导入到狐表中，我们把它分为两步来进行：

 

1、第一步：在狐表中，运行SQL语句，实现把SQL里的表导出为ACCESS格式（这个应该不难，狐表中有运行SQL语句的功能，可以针对任何数据源、任何表）；

2、第二步：利用狐表的代码，把第一步生成的Access文件导入到狐表中。

 

嘿嘿，我保守？ 你以为将foxtable那个按钮的代码贴出来，楼主就用得了吗？你太天真、太敏感了。

我就是用一周的时间，也不见得能从foxtable的源代码中，抽出一段能让楼主直接使用的代码，一段代码的运行，需要很多类型的支持，这可不是砖头，抽出一块就是一块，互不干涉。

那你做个菜单,按狐爸导入的方法不久行了.不对.有一个问题,如果就像你所说的网线断掉了,你也不能导入啊,如果导入其他的,不是和动态调用其他数据源道理一样的.

    如是只是为了这个问题,还是那个办法,将现有的SQL数据源做个备份,然后在新电脑建立一个新的SQL.将备份导入,两个数据源可以导来导去的.然后动态调用数据源就可以了.