vba远程服务器不可用,[求助]vba中如何连接远程MSSQL SERVER?

str_connect = "ODBC;DRIVER={SQL Server};UID=sa;DATABASE=数据库名称;SERVER=机器ip

ba425db2258241ded4626fc0af11c6dd.gifWD=密码"

ls_select = "SELECT * From table1 "

With ThisWorkbook.Worksheets("test").QueryTables.Add(Connection:= _

str_connect, Destination _

:=ThisWorkbook.Worksheets("test").Range("A1"))

.Sql = Array(ls_select)

.FieldNames = False

.RefreshStyle = xlOverwriteCells

.RowNumbers = False

.FillAdjacentFormulas = False

.RefreshOnFileOpen = False

.HasAutoFormat = False

.BackgroundQuery = False

.TablesOnlyFromHTML = False

.Refresh BackgroundQuery:=False

.SavePassword = True

.SaveData = False

End With

这样就ok了  这个查询远程服务器上的   table1表放到 ThisWorkbook.Worksheets("test").Range("A1")起始的区域放置

你新建立一个execl然后把一个sheet命名为:test  在这个上面放个按钮  直接把这部分代码copy到按钮下面

把字符串  str_connect  改为你需要的  把table1换为你的数据库里有的表就ok了

[此贴子已经被作者于2007-12-19 9:04:33编辑过]

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

表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
©️2021 CSDN 皮肤主题: 数字20 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值