0

您好：我在手动输入的 OLEDB 数据连接中成功使用长 SQL (Oracle) 作为命令文本。然后我通过 VBA 成功输入了 SQL（因为我需要它根据不断变化的项目列表进行更新），并且只运行联合查询的第一部分作为测试。

但是，当我进行最后一次更改时，将第二部分添加到联合查询并使 strQuery 命令包含三个单独的查询字符串，现在它在下面的代码行中向我抛出了一个错误： .CommandText = StrQueryAll

StrQueryAll = StrQueryBegin & StrQueryAZ & StrQueryCO & StrQueryEnd

    With ActiveWorkbook.Connections("connection_name").OLEDBConnection
        .CommandText = StrQueryAll
        .Refresh
    End With

下面是删除了实际 sql 的整个代码。sql代码太长有问题吗？或者可能是另一个问题，但它间接说有一个错误？也许它不喜欢 strQueryAll 命令？我可以通过添加具有延续限制的字符串来做一个大的 sql 字符串，但认为它可能会更干净地分解 sql。

谢谢你的帮助！

Private Sub Refresh_Data()

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim ConnectionString As String
Dim StrQueryAll As String
Dim StrQueryBegin As String
Dim StrQueryAZ As String
Dim StrQueryCO As String
Dim StrQueryCA As String
Dim StrQueryEnd As String
Dim Item_List As String
Dim wksItemList As Worksheet
Dim wksDataTable As Worksheet
Dim rngItems As Range
Dim rngDatatbl As Range

Dim myMSG As String
'Dim pt As PivotTable

myString = "Refreshing Tables - Please Wait"
Application.StatusBar = myString

'With Application
    '.EnableEvents = False
    '.ScreenUpdating = False
'End With

    Set wksItemList = Worksheets("Items")
    Set rngItems = wksItemList.Range("E4")
    Set wksDataTable = Worksheets("data")
    Set rngDatatbl = wksDataTable.Range("A3")

Item_List = rngItems.Value

StrQueryBegin = "SELECT " & Chr(13) & "" & Chr(10) & _
   ..... more sql....

   .... next sql string ....
            StrQueryAZ = "    -- ****  AZ  ****" & Chr(13) & "" & Chr(10) & _
            "  select" & Chr(13) & "" & Chr(10) & _
   ..... more sql....

   .... next sql string ....
StrQueryCO = Chr(13) & "" & Chr(10) & " UNION " & Chr(13) & "" & Chr(10) & _
            "    -- ****  CO SYS  ****" & Chr(13) & "" & Chr(10) & _
            "  select " & Chr(13) & "" & Chr(10) & _
   ..... more sql....

   .... next sql string ....
StrQueryEnd = "            ) " & Chr(13) & "" & Chr(10) & _
            " ORDER BY  " & Chr(13) & "" & Chr(10) & _
            "   ITEM_NBR, WHS  " & Chr(13) & "" & Chr(10)

Debug.Print StrQueryBegin & StrQueryAZ & StrQueryCO & StrQueryEnd
StrQueryAll = StrQueryBegin & StrQueryAZ & StrQueryCO & StrQueryEnd


    With ActiveWorkbook.Connections("connection_name").OLEDBConnection
        .CommandText = StrQueryAll
        .Refresh
    End With
4

1 回答 1

1

在进行更多搜索和测试后，问题是 CommandText 字符总数已超过允许的 32,767 个字符。

user1274820：在某种程度上，你是正确的，你需要看到整个代码。由于我们的表的设置方式，sql 很长，而且 sql 长度是必要的。我将研究其他选项来运行它。

于 2017-09-05T23:08:30.633 回答