以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  建議!! 從access外部數據表新建 或高速導入時 增加全選功能  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=43724)
--  作者：tennis
--  发布时间：2013/12/13 15:39:00
--  建議!! 從access外部數據表新建 或高速導入時 增加全選功能
如題.
--  作者：狐狸爸爸
--  发布时间：2013/12/13 15:44:00
--  

高速导入，有选择所有列的选项啊
--  作者：tennis
--  发布时间：2013/12/13 16:55:00
--  
access中的所有表好像沒有,表一多一次一個很累人的.
[此贴子已经被作者于2013-12-13 16:55:34编辑过]
--  作者：狐狸爸爸
--  发布时间：2013/12/13 16:56:00
--  
这个一次只能导入一个表
--  作者：有点甜
--  发布时间：2013/12/13 19:54:00
--  
 自己写代码导入表呗！一劳永逸。以excel格式为例

SystemReady = False
Dim book As New XLS.Book("d:\\test.xls")
For Each sheet As XLS.Sheet In book.Sheets
    Dim ip As New Importer
    ip.SourcePath = "d:\\test.xls" \'指定数据文件
    ip.SourceTableName = sheet.Name \'指定要导入的表
    ip.NewTableName = sheet.Name \'导入后的表名
    ip.Format = "Excel" \'指定导入格式
    ip.Import()
Next
SystemReady = True
--  作者：有点甜
--  发布时间：2013/12/13 19:55:00
--  
 Access也同样这样写，关键是取得表名，循环。

Connections.Add("test","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\abc.mdb;Persist Security Info=False")

Connections(test).GetTableNames

Connections.Delete("test")
--  作者：tennis
--  发布时间：2013/12/13 22:57:00
--  

谢谢回答,您太厉害了!!

但是要开发项目一开始 access中之各表要迅速导入FT

还是从FOXTABLE 功能组 外部数据-->外部数据表  或高速导入 方便 ,就不知道FT为什么要一表一表的作业了!!