Question

excel VB 链接SQL2005 数据库本机上可用，其他机器就不行

代码如下
Private Sub CommandButton2_Click()
'If (MsgBox("当前的操作是正式帐套(更改),是否确定此次操作？", vbYesNo, "Pimatronics") = vbNo) Then
'GoTo J
'End If
Dim strcn As String
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim BomPn As String
Dim BomPnSql As String
Dim sql As String
Dim PN As String
Dim sht As Worksheet
Dim error As String
Dim i As Integer
PN = InputBox("请输入完整的物料代码", "Pimatronics")
strcn = "Driver={sql server};server=k3server;uid=sa;pwd=sa123;database=AIS2013051419031100"
cn.Open strcn
BomPnSql = "select distinct top 1 Fshortnumber from t_icitem where FshortNumber='" & PN & "'"
On Error GoTo H
error = "操作数据库出错"
rs.Open BomPnSql, cn
If rs.EOF = True Then
error = "在数据中找不到相关的数据"
是在SQL服务器上运行可以，但是在其他客户端就不行

Answer 1

必须要注意的是VBA的运行环境，他的EXCEL版本支持模块吗？你要检查一下，一部分OFFICE是精简版的，可能DAO引用根本就没有注册，你说你怎么用嘛；第二点就是保存EXCEL的时候有没有保存宏安全定义，如下界面你是怎么处理的

设置宏安全性没有，不要只保存个代码进去，宏不起作用

第三个错误可能性就是根本与服务器失去联系，能不能PING上服务器连接？你说在服务器上运行可以，其他的不行看看是不是根本连接不上，server=k3server;  Server=192.168.1.1格式  ,改成IP看看，sa用户权限未必分配到了数据库用户

第四种可能是VBA最常见的，EXCEL所在的OFFICE变更后，要重新导入模块和引用

这就是VBA不方便的地方，固然编写方便，但携带麻烦

Answer 2

引用ADODB了么？估计是strcn = "Driver={sql server};server=k3server;uid=sa;pwd=sa123;database=AIS2013051419031100"
的问题，该换个连接串

追问

该换成什么呢

追答

群238706019里面有个ADO连接串大全，共享里面

追问

可否留下你的QQ 远程帮忙处理下

追答

群里找我即可