VBA连接局域网内SQL数据库出错

寒江隐居客

各位老师好，


     如题，想用VBA写代码连接局域网内数据库，在本机上测试没有问题，但是别人电脑点开附件所示excel的VBA代码连接时，会报错（如图片）。
说的是“服务器主体XXX无法再当前安全的上下文下访问XXXX”，并且发现这个服务器主体名称就是所在电脑的登录名。
      实在是弄不明白了，请各位路过的老师们帮帮忙、谢谢啦！

寒江隐居客

PS：已参照帖子：如何在sqlserver建立新用户并关联相应的数据库https://jingyan.baidu.com/article/154b46315f97ae28cb8f4156.html进行了访问用户的添加和密码设置

笑着...两年过去

一般用IP地址访问，另外，sql server的TCP/IP协议是不是没有开了？

寒江隐居客

笑着...两年过去 发表于 2017-8-21 10:05
一般用IP地址访问，另外，sql server的TCP/IP协议是不是没有开了？

是用的IP地址访问的，TCP/IP协议已开

笑着...两年过去

寒江隐居客 发表于 2017-8-21 10:10
是用的IP地址访问的，TCP/IP协议已开

代码截图来看

寒江隐居客

笑着...两年过去 发表于 2017-8-21 12:12
代码截图来看

Private Sub Configpostcode()



Dim i As Integer, j As Integer, sht As Worksheet, para 'i,j为整数变量；sht 为excel工作表对象变量，指向某一工作表




Dim cn As Object '定义数据链接对象 ，保存连接数据库信息

Dim rs As Object '定义记录集对象，保存数据表

Set cn = CreateObject("ADODB.Connection") '创建数据链接对象

Set rs = CreateObject("ADODB.RecordSet") '创建记录集对象





'Dim cn As New ADODB.Connection '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用

'Dim rs As New ADODB.Recordset '定义记录集对象，保存数据表

Dim strCn As String, strSQL As String '字符串变量


strCn = "Provider=SQLOLEDB;Initial Catalog=" & "master" & ";User ID=" & "yue.wang" & ";Password=" & "xzy123" & ";Data Source=" & "10.234.207.32,1433" & ";Integrated Security=SSPI;Persist Security Info=True;" '定义数据库链接字符串



strSQL = "SELECT [POSTCODE] FROM [中国邮编].[dbo].[t3] where City_CH = '上海'" '定义SQL查询命令字符串
cn.Open strCn '与数据库建立连接，如果成功，返回连接对象cn

rs.Open strSQL, cn '执行strSQL所含的SQL命令，结果保存在rs记录集对象中



Dim MAB As String
MAB = Empty
Do While Not rs.EOF
'MAB = MAB & rs("POSTCODE").Value
MAB = MAB & rs.Fields("POSTCODE")
MAB = MAB & ","
rs.MoveNext
Loop

Sheets("字符串").Range("A1") = MAB

rs.Close '关闭记录集，至此，程序将把某数据表的字段1和字段2保存在excel工作表sheet1的第1、2列，行数等于数据表的记录数

Set rs = Nothing
cn.Close
Set cn = Nothing

End Sub

寒江隐居客

笑着...两年过去 发表于 2017-8-21 12:12
代码截图来看

老师，附件里边有的。我刚刚把代码也重新给您发了一遍！

笑着...两年过去

ye.wang这个用户没有访问“中国邮编”这个数据库的权限吧，用换sa，或者把用户ye.wang映射到中国邮编这个库上

寒江隐居客

笑着...两年过去 发表于 2017-8-21 14:04
ye.wang这个用户没有访问“中国邮编”这个数据库的权限吧，用换sa，或者把用户ye.wang映射到中国邮编这个库 ...

我之前已参照帖子：如何在sqlserver建立新用户并关联相应的数据库https://jingyan.baidu.com/article/154b46315f97ae28cb8f4156.html进行了访问用户的添加和密码设置。不知道是不是您所说的“把用户ye.wang映射到中国邮编这个库上”？