Как решить системную ошибку & H80040E14 (-2147217900) в соединении Excel ADOB - PullRequest
Новая
       24

Как решить системную ошибку & H80040E14 (-2147217900) в соединении Excel ADOB

0 голосов
/ 05 июня 2018

Я пытаюсь получить данные из базы данных SQL через Excel, я использую соединение ADOB.Он работал нормально, и теперь я получаю ошибку во время выполнения, не знаю, что является причиной этого.Я не изменил код.Мой следующий код: 

    Public Sub SQL_Connection()

    Dim con As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim StrQuery As String
    Set con = New ADODB.Connection
    Set rs = New ADODB.Recordset

    With ActiveSheet()
    .Unprotect Password:=*****
    End With

    Sheets(2).Range("A2:H2").ClearContents
    ........
    If CheckBox4.Value = True Then  
    strCon = "Provider=SQLOLEDB;Data Source=******\SQLEXPRESS;" & _
            "Initial Catalog=testdata;" & _
            "User ID=test;Password=*****;"
    End If
    ........

If CheckBox4.Value = True Then
Const DB_CONNECT_STRING = "Provider=SQLOLEDB;Data Source=******\SQLEXPRESS;Initial Catalog=testdata;user id ='test';password=*****"
Set myConn = CreateObject("ADODB.Connection")
Set myCommand = CreateObject("ADODB.Command")

myConn.ConnectionTimeout = 15
myConn.Open DB_CONNECT_STRING1

Set myCommand.ActiveConnection = myConn
myCommand.CommandText = "UPDATE Rewind SET Cause = '" & Sheets(2).Range("I2") & "' WHERE RewindID = '" & Sheets(2).Range("J2") & "'"
myCommand.Execute
myConn.Close
End If

With ActiveSheet
    .Protect Password:=66090
End With

End Sub

Пожалуйста, помогите.

...