Access导入导出

最新推荐文章于 2024-11-26 06:10:35 发布

dd922

最新推荐文章于 2024-11-26 06:10:35 发布

阅读量1.2k

点赞数

分类专栏：技術の文章文章标签： access 数据库 excel path database 工作

技術の文章专栏收录该内容

1 篇文章

订阅专栏

问题：

如何引用其他数据库内的表？(查询外部表)
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

请参考：

下面是有关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 [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是要导入的工作表名

如果要导出到 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

摘自 http://access911.net/71FAB21E17DC.htm