方法'Open'作用于对象'_Connection'时失败

shenj1

各位大侠，我用excel写了一段vba访问SQL数据库，我的电脑上能运行，但是到别人电脑上，出现方法'Open'作用于对象'_Connection'时失败，光标停留在“cnn.Open”，请帮忙看看有什么问题
-----------------------------------------------------------------------------------------
Public Function fnFind_Record()

Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cnnStr As String, strSQL As String
Dim mySource As String
Dim myTable As String
Dim myDB As String
Dim myTB As String
Dim txtModels As String
Dim txtSN As String
Dim txtData As String
Dim c As String
Dim i As Integer
Dim d As Integer

On Error Resume Next

mySource = "192.168.206.86"
myDB = "test_Record"
myTB = ThisWorkbook.Sheets("link").Cells(2, 1)
txtModels = ThisWorkbook.Sheets("link").Cells(1, 3)
txtSN = ThisWorkbook.Sheets("link").Cells(2, 3)

cnn = "Provider=SQLOLEDB; User ID=admin; password=abc; " & " Data Source=" & mySource & ";" & "initial catalog=" & myDB
cnn.Open                    '<<<==到此地报错误，参考附件图片

---------------------下面没执行的代码略-------------------------------------------

extyg

cnn = "Provider=SQLOLEDB; User ID=admin; password=abc; " & " Data Source=" & mySource & ";" & "initial catalog=" & myDB
cnn.Open   
合成一句：
cnn.Open  "Provider=SQLOLEDB; User ID=admin; password=abc; " & " Data Source=" & mySource & ";" & "initial catalog=" & myDB
  

shenj1

好像没有效果，有没有其他的办法？

phsu

(1)cnn是Connection對象，怎麼會等於一串字符？
(2)2樓的寫法是正確的。
(3)檢查一下Provider是否正確，以及ADO元件是否先期綁定。
(4)改成後期綁定看看是否可以：
Dim cnn As Object
Set cnn = CreateObject("ADODB.Connection")

sheep99

我今天遇到和你一样的问题

sheep99

我用的excel做数据库的，在自己电脑是ok的，在别人电脑就出现这个提示

simon30888

我也遇到这种事，但我的情况有点怪，我是用TXT文件做后台数据库的，我用了很长时间没事，但电脑重装后，就出现这种现象了，然后点击帮助，EXCEL 就重新启动，并修复EXCEL ，然后又行了，但用一会，又再出现这个问题，程序肯定是没有问题的，已经用了很长时间了，估计是重新安装电脑与OFFICE 后出现的问题，但为何又像六脉神剑一样，一会可以，一会又不行呢？请问各位高手，知道是怎么一回事，要如何处理？谢谢！

ibilong

我好像遇到了同样的问题，求助

Sub DoSql_Execute1()
   
    Dim TT
    TT = Timer
   
   

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

   
    Dim Sql1 As String, Sql2 As String, Sql3 As String, Sql4 As String, Sql5 As String, Sql6 As String, Sql7 As String, Sql8 As String


Dim a
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = ThisWorkbook.Path


If .Show = 0 Then
    MsgBox ("已取消打开文件，并清空本工作薄"): Exit Sub '判断是否打开文件，点击确定返回-1，点击取消返回0，若返回0 则取消打开文件，显示弹窗并停止运行。

Else
    Sheets(2).Select
   
Set a = Workbooks.Open(.SelectedItems(1))
a.Sheets(1).AutoFilterMode = False
a.Sheets(1).Range("A:XFD").Copy ThisWorkbook.Sheets(2).Range("A1")
a.Close False

End If
End With



    Dim cnn As Object, rst As Object
    Dim Mypath As String, Str_cnn As String, Sql As String

    Dim i As Long
    Set cnn = CreateObject("adodb.connection")
    '以上是第一步，后期绑定ADO
    '
    Mypath = ThisWorkbook.FullName
    If Application.Version < 12 Then
        Str_cnn = "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & Mypath
    Else
        Str_cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & Mypath
    End If
    cnn.Open Str_cnn
    '以上是第二步，建立链接
   

    Sql = "SELECT a,b,c,d,e FROM [sheet2$] where e>" & Sql1 & " and (c>" & Sql2 & " or d>" & Sql3 & ") ORDER BY e DESC "
    'Sql语句，查询Sheet1表成绩大于80……姓名和成绩的记录
    Set rst = cnn.Execute(Sql)
    'cnn.Execute()执行SQL语句，始终得到一个新的记录集rst
    '以上是第三步，编写并使用SQL语句
    '
   
   
    Sheets(3).Select
    [a:z].ClearContents
    '清空[d:e]区域的值
    For i = 0 To rst.Fields.Count - 1
    '利用fields属性获取所有字段名，fields包含了当前记录有关的所有字段,fields.count得到字段的数量
    '由于Fields.Count下标为0，又从0开始遍历，因此总数-1
        Cells(1, i + 1) = rst.Fields(i).Name
    Next
    Range("a2").CopyFromRecordset rst
    '使用单元格对象的CopyFromRecordset方法将rst内容复制到D2单元格为左上角的单元格区域
    '以上是第四步，将SQL查询结果和字段名写入表格指定区域
    Columns("A:A").Select
    Selection.NumberFormatLocal = "yyyy/m/d h:mm"
    Range("a1").Select


    cnn.Close
    '关闭链接
    Set cnn = Nothing
    '释放内存



    MsgBox ("完成！并已另存为新工作薄！" & vbCrLf & "保存路径为宏工具所在位置" & vbCrLf & "用时：" & Format(Timer - TT, "#0.00") & " 秒")
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

laisme888

同求啊，怎么回事呢？

laisme888

找到原因了，打开的文档重新打开保存下就好了