通过 excel VBA 加入 SQL 表时出错答案

【问题标题】：Getting an error while joining the SQL tables through excel VBA通过 excel VBA 加入 SQL 表时出错
【发布时间】：2015-05-19 15:58:56
【问题描述】：

我需要一些帮助。我正在尝试通过具有联接查询的 excel 中的 SQL 提取数据，但是在运行以下代码时出现调试错误..

recset.Open strSQL, con, adOpenDynamic, adLockOptimistic

错误 - 运行时错误 -2147467259

下面是代码.....请帮助:confused:

Sub Show_data()

    Dim con As ADODB.Connection
    Dim recset As ADODB.Recordset
    Dim ConnectionString As String
    Dim strSQL As String

    Set con = New ADODB.Connection
    Set recset = New ADODB.Recordset

''Check for the connectivity or connected to the xx network
    On Error GoTo errHandler

errHandler:
    If Err.Number = -2147467259 Then
        MsgBox "Please check for the xx connectivity ", vbExclamation + vbOKOnly
        Exit Sub
    End If


    ConnectionString = "Provider=MSDASQL;User ID=myuser;password= mypass;Data Source=mys"

    con.Open ConnectionString

    'Set and Excecute SQL Command'

        strSQL = "SELECT B.USER_NAME AS CREATED_BY, A.CREATION_DATE, C.USER_NAME, A.LAST_UPDATE_DATE, A.PFIZER_ITEMCODE, A.SYSTEM_ITEMCODE AS ORACLE_ITEM_CODE," & _
        "A.ITEM_DESCRIPTION, A.BATCH_NUMBER, A.MFR_CODE, A.MFR_DESC AS MFR_DESCRIPTION, TO_CHAR(A.MFR_DATE,'DD-MON-YYYY')As MFR_DATE, TO_CHAR(A.EXPIRY_DATE,'DD-MON-YYYY')As EXPIRY_DATE," & _
        "TO_CHAR(A.EFFECTIVE_FROM,'DD-MON-YYYY') AS EFFECTIVE_FROM," & _
        "A.EFFECTIVE_TO, A.EXCISE AS EXCISE_AMOUNT, A.EXCISE_RATE, A.P2S, A.P2R, A.MRP, A.STATE_CODE, A.STATE," & _
        "(CASE SUBSTR(A.SYSTEM_ITEMCODE,6,2) WHEN ('PI') THEN 'OIP' WHEN ('PF') THEN 'OPF' ELSE 'OWL' END )AS LEGAL_ENTITY" & _
        "FROM xxdhl_pf_batch_pricing A, fnd_user B, fnd_user c" & _
        "WHERE 1=1" & _
        "AND A.CREATED_BY = B.USER_ID" & _
        "AND A.LAST_UPDATED_BY = C.USER_ID"

        If (ActiveSheet.cmbLE.Text) <> "" Then
        strSQL = strSQL & " LEGAL_ENTITY='" & ActiveSheet.cmbLE.Text & "'"
        End If

        If (ActiveSheet.cmbProduct.Text) <> "" Then
            If (ActiveSheet.cmbLE.Text) <> "" Then
                strSQL = strSQL & " AND [ORACLE_ITEM_CODE]='" & ActiveSheet.cmbProduct.Text & "'"
            Else
                strSQL = strSQL & " [ORACLE_ITEM_CODE]='" & ActiveSheet.cmbProduct.Text & "'"
            End If
        End If

        If (ActiveSheet.txtBatch.Text) <> "" Then
            If (ActiveSheet.cmbLE.Text) <> "" Or (ActiveSheet.cmbProduct.Text) <> "" Then
                strSQL = strSQL & " AND [BATCH_NUMBER]='" & ActiveSheet.txtBatch.Text & "'"
            Else
                strSQL = strSQL & " [BATCH_NUMBER]='" & ActiveSheet.txtBatch.Text & "'"
            End If
        End If



    'Open Recordset

    Set recset.ActiveConnection = con
    recset.Open strSQL, con, adOpenDynamic, adLockOptimistic

    'Copy the data
    If recset.RecordCount > 0 Then
    Sheets("Sheet2").Range("A1").CopyFromRecordset recset
'    ActiveSheet.Range("A1").CopyFromRecordset recset
    Else
    MsgBox "No Data Available", vbExclamation + vbOKOnly
    Exit Sub
    End If

recset.Close
con.Close

End Sub

根据您的所有要求，我已打印 strSQL

    SELECT B.USER_NAME AS CREATED_BY, A.CREATION_DATE, C.USER_NAME, 
    A.LAST_UPDATE_DATE, 
    A.PFIZER_ITEMCODE, A.SYSTEM_ITEMCODE AS ORACLE_ITEM_CODE, 
    A.ITEM_DESCRIPTION, A.BATCH_NUMBER, 
        A.MFR_CODE, A.MFR_DESC AS MFR_DESCRIPTION, 
        TO_CHAR(A.MFR_DATE,'DD-MON-YYYY')As MFR_DATE, 
    TO_CHAR(A.EXPIRY_DATE,'DD-MON-YYYY')As EXPIRY_DATE, 
        TO_CHAR(A.EFFECTIVE_FROM,'DD-MON-YYYY') AS EFFECTIVE_FROM, 
A.EFFECTIVE_TO, A.EXCISE AS EXCISE_AMOUNT, 
        A.EXCISE_RATE, A.P2S, 
A.P2R, A.MRP, A.STATE_CODE, A.STATE, 
        (CASE SUBSTR(A.SYSTEM_ITEMCODE,6,2) WHEN ('PI') THEN 'OIP' WHEN ('PF') THEN 'OPF' ELSE 'OWL' END )AS LEGAL_ENTITY 
            FROM xxdhl_pf_batch_pricing A, fnd_user B, fnd_user c 
WHERE 1=1 AND A.CREATED_BY = B.USER_ID AND A.LAST_UPDATED_BY = C.USER_ID  AND [A.LEGAL_ENTITY]='J0012' AND [A.SYSTEM_ITEMCODE]='1407_PI-J0012'

【问题讨论】：

你能在 strSQL 运行之前打印它并附加到问题上吗？
应该将[A.LEGAL_ENTITY] 改为A.LEGAL_ENTITY 或[A].[LEGAL_ENTITY] 等等。

标签： sql excel ms-access vba

【解决方案1】：

你有类似代码的地方

"WHERE 1=1" & _
"AND A.CREATED_BY = B.USER_ID" & _

它会被渲染

"WHERE 1=1AND A.CREATED_BY = B.USER_ID"

即1=1 和 AND 之间没有空格

尝试在每行的右引号前加一个空格：

"WHERE 1=1 " & _
"AND A.CREATED_BY = B.USER_ID " & _

【讨论】：

哪行代码产生了错误？你能打印 strSQL 变量吗？如果使用“SELECT * FROM Table”之类的内容，是否还会出现错误？
此行是否出现错误：recset.Open strSQL, con, adOpenDynamic, adLockOptimistic？要打印 strSQL 的值，请使用该行之前的行 Debug.Print strSQL，并将变量的值写入 IDE 中的即时窗口。
此 sql AND A.LAST_UPDATED_BY = C.USER_ID LEGAL_ENTITY='OIP' AND 中的“LEGAL_ENTITY”之前是否缺少“AND”
我认为您需要注释掉所有 WHERE 代码，然后逐渐取消注释位并运行代码以查找导致问题的位。看起来您在 FROM 子句中使用了两次 fnd_user 表 - 这是故意的吗？
如前所述，我认为您需要注释掉所有 WHERE 代码，运行代码，然后逐渐取消注释位并运行代码以查找导致问题的位。

【解决方案2】：

使用“& _”扩展器可以添加到字符串变量的字符数是有限制的。

Chip 对 Debug.Print 变量的建议会在您尝试执行之前告诉您此查询是否可行。

当我为查询创建 SQL 时，我使用这样的过程来避免截断：

strSQL = "SELECT "
strSQL = strSQL & "Field1, Field2, Field3 "
strSQL = strSQL & "FROM MyTable "

在每行末尾添加一个空格可确保不会发生上述 Andy 指出的问题。

【讨论】：

【解决方案3】：

类似于 Andy Joiner 的建议，您实际上在几个地方的末尾缺少一个空格。例如

"(CASE SUBSTR(A.SYSTEM_ITEMCODE,6,2) WHEN ('PI') THEN 'OIP' WHEN ('PF') THEN 'OPF' ELSE 'OWL' END )AS LEGAL_ENTITY" & _
"FROM xxdhl_pf_batch_pricing A, fnd_user B, fnd_user c" & _

看起来像：

"(CASE SUBSTR(A.SYSTEM_ITEMCODE,6,2) WHEN ('PI') THEN 'OIP' WHEN ('PF') THEN OPF' ELSE 'OWL' END )AS LEGAL_ENTITYFROM xxdhl_pf_batch_pricing A, fnd_user B, fnd_user c" & _

从而消除您的 FROM 子句。

【讨论】：

是的，我尝试了空间，但我仍然面临同样的错误
如前所述，我们需要查看完整的查询，因为它正在传递给 SQL
您好，我已经从调试 sql 的打印中输入了查询...请查看并告诉我是否有...请
LEGAL_ENTITY 是 xxdhl_pf_batch_pricing 表中的一个字段吗？
那你不能使用a.[LEGAL_ENTITY]，你应该使用:(CASE SUBSTR(A.SYSTEM_ITEMCODE,6,2) WHEN ('PI') THEN 'OIP' WHEN ('PF ') THEN 'OPF' ELSE 'OWL' END ) = ''J0012' 代替。看起来它永远不会评估为真......

【解决方案4】：

最后我解决了这个错误.....实际上是在一个编码中，我给出了参数，其中引号给出了问题......即

之前我使用以下代码运行查询，

strSQL & " AND [ORACLE_ITEM_CODE]='"

只是因为有报价

"["

...遇到这个错误。

但删除后它的工作正常......

感谢所有分享知识以解决错误的人...这也有助于我获得知识...

谢谢大家

【讨论】：