VBA 链接sqlserver数据库错误提示[DBNETLIB]不存在或者拒绝访问

liushida

Sub 数据库连接()
Set Cnn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Cnn.ConnectionString = "Provider=SQLOLEDB;Persist Security Info=True;User ID=省略;Password=省略;Initial Catalog=省略; Data Source =省略"
Cnn.Open
Sql = "select * from 京东冷链.dbo.商家明细20190228181946$"
Set rs = Cnn.Execute(Sql)
For i = 0 To rs.Fields.Count - 1
Cells(1, i + 1) = rs.Fields(i).Name
Next
Range("a2").CopyFromRecordset rs
End Sub


我觉得是sqlserver那个地方没有配置好，请大神指导下。

x007file

自己用microsoft query 或者ODBC连一下数据库，测试一下，试试。
一般端口未打开，防火墙未配置，用户权限未设置好。

笑着...两年过去

一般这样写cn.Open "Provider=sqloledb;Server=服务器IP;Database=京东冷链;Uid=数据库账号;Pwd=密码;"

liushida

笑着...两年过去 发表于 2019-3-15 08:17
一般这样写cn.Open "Provider=sqloledb;Server=服务器IP;Database=京东冷链;Uid=数据库账号;Pwd=密码;"

这个应该没有关系的。