应用 SQLServer 链接服务器访问远程 Access 数据库-数据库专栏,MSAccess:站长天空

    web 开发中，经常要用到 access 数据库。但是由于 access 是一种文件型数据库，所以无法跨服务器进行访问。经过笔者的探索，发现可以利用 sql server 的链接服务器，把地理上分散的 access 数据库整合起来，使 access 数据库具有跨越 web 服务器群的能力。这样做，还可以使 access 数据库与 sql server，甚至 oracle 等网络数据库连接起来，实现异构数据库的互连，从而执行分布式的查询、更新、命令和事务。

一、创建链接服务器，连接本地 access 数据库

    创建链接服务器可以用“企业管理器”，也可以执行系统存储过程 sp_addlinkedserver 来完成。用系统存储过程相对快捷一些，格式为：
    sp_addlinkedserver 链接服务器名, 产品名, microsoft.jet.oledb.4.0, access数据库路径及文件名

    指定 microsoft.jet.oledb.4.0 作为 provider_name，指定 access 数据库文件的完整路径名作为 data_source。.mdb 数据库文件必须驻留在本地服务器上，路径必须是服务器上的有效路径。

    例如，本例创建一个名为 mytest 的链接服务器，对 e:\我的文档\ 文件夹下名为 dos.mdb 的 access 数据库进行操作，则在“sql查询分析器”中执行：

    sp_addlinkedserver mytest, access 2000, microsoft.jet.oledb.4.0, e:\我的文档\dos.mdb

二、创建链接服务器登录映射

    同样可以用“企业管理器”或存储过程来完成。存储过程的格式为：

    sp_addlinkedsrvlogin 链接服务器, false, sqlserver登录名, admin, null

    为访问非保密的 access 数据库，试图访问 access 数据库的 sql server 登录应该有一个为用户 admin 定义的没有密码的登录映射，下例使得本地用户 sa 可以访问名为 mytest 的链接服务器:

    sp_addlinkedsrvlogin mytest, false, sa, admin, null

    要访问保密的 access 数据库，需使用注册表编辑器配置注册表，以便使用 access 的正确的工作组信息文件。使用注册表编辑器向该注册表项中添加 access 使用的工作组信息文件的完整路径名称：

    hkey_local_machine oftware\microsoft\jet\4.0\engines ystemdb

    配置了注册表项后，请使用 sp_addlinkedsrvlogin 创建从本地登录到 access 登录的登录映射：

    sp_addlinkedsrvlogin mytest, false, sa, [accessuser], [accesspwd]

    链接服务器和链接服务器登录映射建立完毕，可以在企业管理器里进行查看。

三、链接服务器的测试

    可以在“sql查询分析器”里对创建的链接服务器进行测试。由于 access 数据库没有目录和架构名称，因此，基于 access 的链接服务器中的表可以在分布式查询中使用 [linked_server]...[table_name] 的四部分名称进行引用。下例从名为 mytest 的链接服务器中检索 articles 表的所有行:

    select * from mytest...articles

    或：select * from openquery(mytest, select * from .articles)

四、用代码访问链接服务器的 access 数据库

    只有实现用代码访问链接服务器的 access 数据库，才使得链接服务器发挥了最大的灵活性和实用性。可以使用三中的测试链接服务器的代码建立存储过程，供 asp 代码调用，也可以直接在 asp 代码中调用链接服务器，以下是我通过测试的例子：

<%

dim conn, ssql, rs

conn="provider=sqloledb; server=localhost; uid=sa; pwd=sqlserver;" 用户 sa 的密码为 sqlserver。可以省略数据库名

on error resume next

ssql = "select * from mytest...articles"
set rs = server.createobject("adodb.recordset")
rs.open ssql, conn, 1, 1

rs.movefirst
response.write rs(0) & "<br>"

if err.number<>0 then
    response.write "取数据错误：数据库连接出错，或存取数据表错误!"
else
    response.write "ok!"
end if

%>

                  张庆 2002.10.1 3:58

文章整理：站长天空网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!