Office中国论坛/Access中国论坛

标题: 用Vba如何导入另外一个access中的表？ [打印本页]

作者: olderdream2007@ 时间: 2013-6-20 07:16
标题: 用Vba如何导入另外一个access中的表？
Access用Vba如何导入另外一个access中的表？. 把当前access中的表如何导出成access? 请高人指点

作者: access学习交流 时间: 2013-6-20 10:42
不是很看得懂，但是表插入到另一张表，可以用insert into select 语句来完成！

作者: todaynew 时间: 2013-6-20 14:38
http://www.office-cn.net/forum.p ... C%C8%EB%B5%BC%B3%F6

作者: olderdream2007@ 时间: 2013-6-20 21:28

todaynew 发表于 2013-6-20 14:38
http://www.office-cn.net/forum.php?mod=viewthread&tid=92629&highlight=%B5%BC%C8%EB%B5%BC%B3%F6

谢谢版主指点不过版主给的例子是导入EXCEL的。我想要的例子是从另外的ACCESS中导入其中的一个表到当前的ACCESS现有表中。可否就我的例子给个实际例子或代码？
（非常感谢刚入门你帖子中的例子有些看不太懂）

作者: todaynew 时间: 2013-6-21 11:20

olderdream2007@ 发表于 2013-6-20 21:28
谢谢版主指点不过版主给的例子是导入EXCEL的。我想要的例子是从另外的ACCESS中导入其中的一个表到当 ...

TransferDatabase 方法
参阅参阅参阅参阅在 Visual Basic 中，TransferDatabase 方法执行 TransferDatabase 操作。

expression.TransferDatabase(TransferType, DatabaseType, DatabaseName, ObjectType, Source, Destination, StructureOnly, StoreLogin)
expression    必需。返回“应用于”列表中的一个对象的表达式。

TransferType 可选 AcDataTransferType。

AcDataTransferType 可以是下列 AcDataTransferType 常量之一：
acExport
acImport 默认
acLink
如果将该参数留空，将采用默认常量 (acImport)。

注释  Microsoft Access 项目 (.adp) 不支持 acLink 转换类型。

DatabaseType 可选 Variant 型。字符串表达式，表示一类可用来导入、导出或链接数据的数据库类型的名称。

数据库的类型
Microsoft Access（默认值）
Jet 2.x
Jet 3.x
dBase III
dBase IV
dBase 5.0
Paradox 3.x
Paradox 4.x
Paradox 5.x
Paradox 7.x
ODBC 数据库
WSS
在“宏”窗口中 TransferDatabase 操作的“数据库类型”操作参数的列表中可以查看数据库类型。

DatabaseName    可选 Variant 型。字符串表达式，表示要用来导入、导出或链接数据的数据库的完整名称（包括路径）。

ObjectType 可选 AcObjectType。

AcObjectType 可以是下列 AcObjectType 常量之一：
acDataAccessPage
acDefault
acDiagram
acForm
acFunction
acMacro
acModule
acQuery
acReport
acServerView
acStoredProcedure
acTable 默认
该参数是指要对其数据进行导入、导出或链接的对象的类型。仅当在两个 Microsoft Access 数据库之间导入或导出数据时，才可以指定 acTable 外的对象。如果要将 Microsoft Access 选择查询的结果导出为另一类型的数据库，请指定 acTable 参数。

如果将该参数留空，将采用默认常量 (acTable)。

注释  显示在该参数“自动列表成员”列表中的 acDefault 常量对于该参数是无效的。必须选择上述常量列表中的常量。

Source    可选 Variant 型。字符串表达式，表示要对其数据进行导入、导出或链接的对象的名称。

Destination    可选 Variant 型。字符串表达式，表示目标数据库中所导入、导出或链接的对象的名称。

StructureOnly    可选 Variant 型。使用 True (–1) 可以只导入或导出数据库表的结构。使用 False (0) 将导入或导出表的结构及其数据。如果将该参数留空，将采用默认值 (False)。

StoreLogin    可选 Variant 型。使用 True 可以存储数据库链接表的连接字符串中、用于 ODBC 数据库的登录标识 (ID) 和密码。如果进行了这种设置，则不必在每次打开表时都进行登录。如果不想存储登录 ID 和密码，则可以使用 False。如果将该参数留空，将采用默认值 (False)。该参数仅可用于 Visual Basic。

说明
有关该操作及其参数如何使用的详细信息，请参阅该操作的主题。

语法中的可选参数允许留空，但是必须包含参数的逗号。如果将位于末端的参数留空，则在指定的最后一个参数后面不需使用逗号。

ODBC 数据库的管理员可以禁用 saveloginid 参数所提供的功能，要求所有的用户在每次连接到 ODBC 数据库时，都必须输入登录标识和密码。

注释  还可以通过使用 Recordset 对象的 ActiveConnection 属性，来使用 ActiveX 数据对象 (ADO) 创建链接。

若要链接到 Windows SharePoint Services 列表，必须为 DatabaseName 参数指定下列语法：

WSS;HDR=NO;IMEX=2;DATABASE=<HTTP Server path>;LIST=<List GUID>;VIEW=;RetrieveIds=Yes;TABLE=<List name>
其中 <HTTP Server path> 是到 Windows SharePoint Services 网站的路径，<List GUID> 是列表的全局唯一标识符，而 <List name> 是列表的友好名称。

获取此信息的最简单方法是执行下列步骤：

在数据库窗口中，创建链接到 Windows SharePoint Services 列表的新表。
在“设计”视图中打开链接表。
单击“视图”菜单上的“属性”。
所需字符串列在 Description 属性中。

示例
下面的示例从 Microsoft Access 数据库 NWSales.mdb 中将“NW Sales for April”报表导入到当前数据库的“Corporate Sales for April”报表中：

DoCmd.TransferDatabase acImport, "Microsoft Access", _
"C:\My Documents\NWSales.mdb", acReport, "NW Sales for April", _
"Corporate Sales for April"

下面的示例将 ODBC 数据库的“Authors”表链接到当前数据库：

DoCmd.TransferDatabase acLink, "ODBC Database", _
"ODBC;DSN=DataSource1;UID=User2

WD=www;LANGUAGE=us_english;" _
& "DATABASE=pubs", acTable, "Authors", "dboAuthors"

下列示例将“Customers”表的内容导出到 Windows SharePoint Services 网站“http://example/WSSSite”中名为“Customer List”的新列表中。

DoCmd.TransferDatabase transfertype:=acExport, databasetype:="WSS", _
                     databasename:="http://example/WSSSite", _
                     objecttype:=acTable, Source:="Customers", _
                     Destination:="Customer List", structureonly:=False

作者: todaynew 时间: 2013-6-21 11:22
本帖最后由 todaynew 于 2013-6-21 11:23 编辑

olderdream2007@ 发表于 2013-6-20 21:28
谢谢版主指点不过版主给的例子是导入EXCEL的。我想要的例子是从另外的ACCESS中导入其中的一个表到当 ...

还有一个简单的方法是写一个查询：
select * from 表名称 in "外部access的文件地址"

比如：
select * from 价格表 in "c:\报价数据库.mdb"

作者: 竹笛 时间: 2013-6-21 16:25
TransferDatabase

作者: olderdream2007@ 时间: 2013-6-21 21:14
谢谢两位版主的指点。学习消化中

作者: olderdream2007@ 时间: 2013-9-12 21:33

竹笛发表于 2013-6-21 16:25
TransferDatabase

版主请教下：用TRANSFERDATABASE会导入整个表（在操作的当前数据库等于增加了一个表）. 那么是否可以实现追加导入呢？（导入到现在已经有的表中）谢谢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)