将其他数据库中的数据导入access数据库

 问题：
 
如何引用其他数据库内的表？(查询外部表)
jet sql 中的 in 子句到底怎么用?在哪里用?
 

方法一：

 
select能否查询其他数据库中表的数据？
 

SELECT * FROM tbl_family IN other.mdb"[5556]";

 

方括号[]内的是其他数据库的连接字串

 

方法二：

 
SELECT *
FROM [;database=C:/db2.mdb;pwd=1].表1 AS a, 表1 AS b
WHERE a.ID=b.id

 

上述语句中 pwd=1 代表该 MDB 的打开密码为 1。
注意：如果你的数据库是采取文件共享方式放在服务器的某个目录中，可以用 //server/xxx.mdb 的方式来打开。但是如果这个目录设置了访问密码，那么就无法打开了。因为这是 WINDOWS 的安全限制，如果你的服务器没有加入域，解决方法是：
一、你可以在服务器的 WINDOWS 上创建一个和客户机当前操作用户名和登录密码完全一致的用户。
二、在用链接表访问前手动打开一下那个共享目录
三、编程解决，用 WMI / WIN32 API / SHELL 先访问一下该目录，然后再链接该表即可
这里举例用最简单的 SHELL 完成：
shell "cmd.exe/c ""net use //" & ServerName + "/" & ShareName & " " & Password & " /user:" & UserName & """"

 

请参考：：

下面是有关select语句的帮助，请注意 in

SELECT 语句
命令 Microsoft Jet数据库引擎从数据库里返回信息，作为一组记录。

语法
SELECT [predicate] { * | table.* | [table.]field1 [AS alias1] [, [table.]field2 [AS alias2] [, ...]]}
    FROM tableexpression [, ...][IN外部数据库]
    [WHERE...]
    ]
[GROUP BY...]
    ]
[HAVING...]
    ]
[ORDER BY...]
    ]
[WITH OWNERACCESS OPTION]

IN 子句
标识出外部数据库中的表，例如dBASE或Paradox数据库，或Microsoft Jet外部数据库，Microsoft Jet数据库引擎能够与之相连。

语法
标识目标表：

[SELECT | INSERT] INTO destination IN
    {path | ["path" "type"] | ["" [type; DATABASE = path]]}

标识数据源表：

FROM tableexpression IN
    {path | ["path" "type"] | ["" [type; DATABASE = path]]}

包含 IN 子句的SELECT 语句具有以下几个部分：

部分 说明
destination 外部表的名称，将数据插入表中。
tableexpression 表的名称，可从这些表中获取数据。这个变量可能是一个单独的表名，一个已存查询，或是 INNER JOIN, LEFT JOIN, 或 RIGHT JOIN.
Path 目录或文件的整个路径，而且这些目录或文件包含 table 。
type 数据库类型的名称，如果数据库不是 Microsoft Jet 数据库（例如 dBASE III、dBASE IV、Paradox 3.x或Paradox 4.x），则用此类型创建 table 。

说明
通过 IN 你一次只可以连接一个外部数据库

在某些情况中，path 参数可引用包含数据库文件的目录。例如，当使用 dBASE、FoxPro或 Paradox 数据库表时，path 参数将指定包含 .dbf 或 .db 文件的目录。由 destination 或 tableexpression 参数可得到表文件的名称。

为了指定非 Microsoft JET 数据库，可在名称之后附加分号 (;)，并用单引号 (' ') 或 (" ") 双引号将它括入。例如可用 'dBASE IV;' 或 "dBASE IV;"这两种写法。

也可使用 DATABASE 保留字指定外部数据库。例如，以下示例指定相同的表：

... FROM Table IN "" [dBASE IV; DATABASE=C:/DBASE/DATA/SALES;];

... FROM Table IN "C:/DBASE/DATA/SALES" "dBASE IV;"

 
注意

为改进性能并方便使用，请使用链接表而不要用 IN。

IN 子句示例

下列表显示您如何使用 IN 子句来捕获外部数据库的数据。在每一示例之中，假设客户表是保存在外部数据库之中。

外部数据库 SQL 语句
Microsoft® Jet 数据库 SELECT CustomerID
FROM Customers
IN OtherDB.mdb
WHERE CustomerID Like "A*";
dBASE III 或 IV.
捕获数据由 一 dBASE III 表，以 "dBASE III;" 替代 "dBASE IV;"。 SELECT CustomerID
FROM Customer
IN "C:/DBASE/DATA/SALES" "dBASE IV;"
WHERE CustomerID Like "A*";
dBASE III 或 IV 使用数据库语法。 SELECT CustomerID
FROM Customer
IN "" [dBASE IV; Database=C:/DBASE/DATA/SALES;]
WHERE CustomerID Like "A*";
Paradox 3.x 或 4.x.
若要由一Paradox version 3.x 表捕获数据，以 "Paradox 3.x;" 替代 "Paradox 4.x;"。 SELECT CustomerID
FROM Customer
IN "C:/PARADOX/DATA/SALES" "Paradox 4.x;"
WHERE CustomerID Like "A*";
Paradox 3.x 或 4.x 使用数据库语法. SELECT CustomerID
FROM Customer
IN "" [Paradox 4.x;Database=C:/PARADOX/DATA/SALES;]
WHERE CustomerID Like "A*";
Microsoft EXCEL工作表 SELECT CustomerID, CompanyName
FROM [Customers$]
IN "c:/documents/xldata.xls" "EXCEL 5.0;"
WHERE CustomerID Like "A*"
ORDER BY CustomerID;
在工作表之中的一个命名范围 SELECT CustomerID, CompanyName
FROM CustomersRange
IN "c:/documents/xldata.xls" "EXCEL 5.0;"
WHERE CustomerID Like "A*"
ORDER BY CustomerID;

SELECT * FROM 
[ODBC;Driver=SQL Server;UID=sa;PWD=password;Server=127.0.0.1;DataBase=northwind;].employee

-----------------------------------------------------------------------------------------------------
 

关于文本文件可以这样
select * from [Text;FMT=Delimited;HDR=Yes;DATABASE=C:/;].[aparm#txt];

 

关于在IN子句中查询文本文件如何写链接字串,你可以参考:
http://support.microsoft.com/default.aspx?scid=kb;en-us;234201&Product=acc

 

关于Excel可以这样

insert into 表 SELECT * FROM [Excel 5.0;HDR=YES;DATABASE=c:/test.xls].[sheet1$];

说明:
c:/test.xls 是excel文件名
sheet1是要导入的工作表名
上述方法认为 SHEET1 的第一行为字段名（列标题），如果第一行就是数据用以下代码

insert into 表 SELECT * FROM [Excel 5.0;HDR=NO;DATABASE=c:/test.xls].[sheet1$];

如果要导出到 EXCEL 表格可以用如下方法：
Function JetSQLExportExcel()
    Dim strsql As String
    strsql = "select * into [Excel 5.0;HDR=YES;DATABASE=c:/temp/111test.xls].[sheet1] from admin"
    CurrentProject.Connection.Execute strsql
End Function

其实，你要获取链接字串还有一个方便的办法，就是使用链接向导，先手工链接一个文件到你的数据库中，然后执行以下代码:
Function displayLinkStringFromLinkTable()
    '先到工具菜单->引用 中引用 Microsoft ADO Ext. 2.X for DDL and Security
    '引用 ADOX
    Dim strTableName
    strTableName = "001"
    '001是链接表的名字
    Dim cat As New ADOX.Catalog
    Dim objTable As ADOX.table
    Set cat.ActiveConnection = CurrentProject.Connection
    For Each objTable In cat.Tables
        If objTable.Name = strTableName Then
            Debug.Print objTable.Properties("Jet OLEDB:Link Provider String").Name
            Debug.Print objTable.Properties("Jet OLEDB:Link Provider String").Value
        End If
    Next objTable
End Function

 

'删除其他数据库的表中的数据
Function TestDeleteFromAnotherDb()
    Dim strSql As String
    strSql = "delete * from [;database=" & CurrentProject.Path & "/c2.mdb].表1"
    Debug.Print strSql
    CurrentProject.Connection.Execute strSql
End Function
 

'将当前数据库表中的数据插入到其他数据库的指定表中
Function TestInsertFromAnotherDb()
    Dim strSql As String
    strSql = "insert into [;database=" & CurrentProject.Path & "/c2.mdb].表1(test1) select test1 from 表1"
    Debug.Print strSql
    CurrentProject.Connection.Execute strSql
End Function
 

示例下载：
http://access911.net/csdn/FileDescription.asp?mdb=2009-4-22&id=46