使用ADO操作SQL SERVER 通过'OLE DB 访问 ACCESS 数据库 ，实现数据交换

使用的存储过程简介
1、sp_addlinkedserver --- 为sql server 添加一个link server
2、sp_addlinkedsrvlogin --- 为link server 添加一个 login
3、sp_droplinkedsrvlogin --- 删除link server的login
4、sp_dropserver  --- 删除link server
详细请参考 sql server book online
使用的命令
1、use 切换到一个指定的数据库
2、openquery 从一个现有的link server  执行一个查询

    dim cn as adodb.connection
    dim strsql as string
    dim rs as adodb.recordset
   
    '打开连接
    set cn = new adodb.connection
    cn.open "连接"
    strsql = "use master"
    cn.execute strsql
    '添加一个linkserver
    strsql = "exec sp_addlinkedserver"
    strsql = strsql & " @server = 'accessdatasrv',"
    strsql = strsql & " @provider = 'microsoft.jet.oledb.4.0',"
    strsql = strsql & " @srvproduct = 'ole db provider for jet',"
    strsql = strsql & " @datasrc = 'c:\test.mdb'"
    cn.execute strsql
    '添加一个linkserver login 如果你的数据库有密码和用户认证的话
    'strsql = "exec sp_addlinkedsrvlogin 'accessdatasrv', 'false', '当前用户', '用户', '密码'"

    strsql = "exec sp_addlinkedsrvlogin 'accessdatasrv', 'false'"
   
    cn.execute strsql
   
    strsql = "use tt"
    strsql = "insert into testlinsrv(id,field2)"
    strsql = strsql & " select * from openquery(accessdatasrv,'select a1,a2 from testlinksrv')"
   
    cn.execute strsql
   
    strsql = "use master"
   
    cn.execute strsql
    '删除linksrv的login
    strsql = "exec sp_droplinkedsrvlogin 'accessdatasrv', null"
   
    cn.execute strsql
    '删除linksrv
    strsql = "exec sp_dropserver 'accessdatasrv'"
   
    cn.execute strsql
    '返回数据
    strsql = "select * from testlinsrv"