使用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"
   

  • 0
    点赞
  • 1
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

打赏
文章很值,打赏犒劳作者一下
相关推荐
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页

打赏

DeD

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值