以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何把易表的库结构快速迁移到狐表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=23860)
--  作者：Fotable
--  发布时间：2012/9/21 22:37:00
--  如何把易表的库结构快速迁移到狐表

想把易表的程序转换成狐表

第一步，就是建立和易表对应的数据库。

我的易表有二十多张表，有的表有七八十列。现在发现重建这个库都很繁琐。

不知大家有什么好的方法，快速“复制”一个狐表格式的数据库出来。
--  作者：blackzhu
--  发布时间：2012/9/22 8:17:00
--  
将易表导出  然后在狐表导入
--  作者：lin_hailun
--  发布时间：2012/9/22 8:52:00
--  
 楼上正解...
--  作者：Fotable
--  发布时间：2012/9/22 11:04:00
--  
以下是引用blackzhu在2012-9-22 8:17:00的发言：
将易表导出  然后在狐表导入

高速导入的时候，只能一张一张表导入，如果有100多张表，也挺繁琐，希望增加一个选项，导入所有表
--  作者：lin_hailun
--  发布时间：2012/9/22 11:27: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
--  作者：Fotable
--  发布时间：2012/9/22 11:29:00
--  
如果是access格式呢？
--  作者：lin_hailun
--  发布时间：2012/9/22 11:39:00
--  
 循环的内容相同，关键是取得表的名字。
 
 Connections.Add("test","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\abc.mdb;Persist Security Info=False")

 Connections(test).GetTableNames

 Connections.Delete("test")
[此贴子已经被作者于2012-9-22 11:39:36编辑过]
--  作者：my668866
--  发布时间：2013/6/17 22:36:00
--  
导出Microsoft Excel 工作表.xls然后狐表导入，或许可以，我也是新手