Erreur d'automation lors de l'exécution du script SQL Server dans Excel VBA

J'ouvre une connection SQL Server dans EXCEL VBA et sur la ligne objMyCmd.Execute lorsqu'il utilise le script SQL. Je reçois ce message d'erreur:

"Erreur d'exécution" -2147217900 (80040e14) ') Erreur d'automation "

J'ai examiné d'autres messages de SO qui semblent faire reference à un problème avec la string de connection elle-même, mais je ne crois pas que ce soit le problème car je peux tirer les premières variables répertoriées lors de l'élimination du rest du script SQL.

J'ai tenté d'examiner le code SQL pour voir si j'utilise un format incorrect ou si la langue n'est pas correctement écrite et je ne peux pas déterminer le problème. J'espère qu'avec quelques questions et réponses, nous pouvons constater quelque chose que j'ai manqué dans la façon dont cela est écrit? S'il vous plaît, faites-moi savoir s'il existe des informations supplémentaires que je peux fournir, ci-dessous le code jusqu'à l'erreur.

• insérez la valeur d'une textbox à une cellule particulière dans excel dans C # .NET
• Hyperlink cellulaire excel vers la même cellule
• Pivot de modification Excel
• C # ChartArea PlotArea TickLabels Ratio
• signature numérique sur une calculasortingce ou une cellule de calcul

Sub SQL_GetAgentChart() Dim dtDate As Date Dim myTable As ListObject Dim DataServer As Ssortingng Dim Database As Ssortingng Dim conssortingng As Ssortingng DataServer = "GLSSQLMADP2" Database = "PERF_MGMT_BWRSRV_PROD" conssortingng = "Driver={SQL Server};Server=" & DataServer & "; Database=" & Database & "; Trusted_Connection=yes" Dim AVStartDate As Date Dim AVEndDate As Date Dim RepID As Long 'Declare variables' Set objMyConn = New ADODB.Connection Set objMyCmd = New ADODB.Command Set objMyRecordset = New ADODB.Recordset Set myTable = Worksheets("Witness").ListObjects("tblWitness") AVStartDate = DateValue("Mar 01, 2016") AVEndDate = DateValue("Mar 31, 2016") RepID = 2040 'Open Connection' objMyConn.ConnectionSsortingng = conssortingng objMyConn.Open 'Set and Excecute SQL Command' Set objMyCmd.ActiveConnection = objMyConn objMyCmd.CommandText = " " & _ "SELECT PERSN_XTRNL_ID_NR, SOURCE, LOGGINGTS, DD7, CUREREASON, CUREDATE, LNSTATUS " & _ "FROM TTB " & _ "WITH INCALL AS (SELECT T.CUREREASON, CUREVALUE " & _ "FROM TTB T " & _ "JOIN PERSONNEL P ON T.PERSONNELID = P.PERSONNELID " & _ "LEFT JOIN CURETRANSLATE C ON T.CUREREASON = C.CUREREASON AND T.LNSTATUS = C.STATUS " & _ "WHERE T.PERSONNELID = " & RepID & " " & _ "AND LOGGINGTS > '" & AVStartDate & "' " & _ "AND LOGGINGTS < '" & AVEndDate + 1 & "' " & _ "AND INCOMING = 1 " & _ "AND DD7 > 0), OUTCALL AS (SELECT T.CUREREASON, CUREVALUE " & _ "FROM TTB T " & _ "JOIN AVAYA A ON T.UID = A.TTBUID " & _ "LEFT JOIN CURETRANSLATE C ON T.CUREREASON = C.CUREREASON AND T.LNSTATUS = C.STATUS " & _ "WHERE PERSONNELID = " & RepID & " " & _ "AND LOGGINGTS > '" & AVStartDate & "' " & _ "AND LOGGINGTS < '" & AVEndDate + 1 & "' " & _ "AND INCOMING = 0 " & _ "AND A.AVAYAGROUP IN ('15', '1A', '1B', '1C', '1D', '1E', '1F', '1G', '1H') " & _ "AND DD7 > 0) " objMyCmd.CommandType = adCmdText objMyCmd.Execute 

• Nombre de lignes selon le paramètre. (Excel VBA)
• Essayer de créer un tableau pivot de vba et j'obtiens un type de type mal en utilisant différentes colonnes
• Besoin d'aide dans la macro Excel "Application définie ou erreur définie par l'object"
• Combinaison d'une déclaration IF avec une opération de RECHERCHE et de soustraction
• Bouton Fermer: condition de cellule vide