將Excel導出到多個Oracle表時出現系統錯誤

Question

我正在處理一個Excel文件，將其內容上傳到Oracle SQL數據庫。 它應該能夠上傳到“DEV”，“QA”或“PROD”數據庫。 我正在努力添加一個功能，將其同時添加到所有三個並遇到一些問題。 每次我嘗試將其運行到“ALL”時，我一直收到系統錯誤：未指定的錯誤 。 我提供了以下代碼。 任何幫助深表感謝！

Public Sub zUpload_Click()
Dim Environ As String

Environ = Sheets("Upload Table").Range("Environ").Value

If Environ = "DEV" Then
    xUpload (Environ)
ElseIf Environ = "QA" Then
    xUpload (Environ)
ElseIf Environ = "PROD" Then
    xUpload (Environ)
Else
    xUpload ("DEV")
    MsgBox "Upload to DEV successful"
    xUpload ("QA")
    MsgBox "Upload to QA successful"
    xUpload ("PROD")
    MsgBox "Upload to PROD successful"
End If

End Sub

接下來我的代碼是：

Sub xUpload(strEnv As String)

    Dim conn As New ADODB.Connection
    Dim iRowNo As Integer
    Dim Environ As String
    Dim SrlPort As String, strHost As String, strService_Name As String
    Const IPAddr = ...This is correct...
    Const IPAddr2 = ...This is correct...
    Const IPAddr_FallBack = ...This is correct...

   Environ = Sheets("Upload Table").Range("Environ").Value

    With Sheets("Upload Table")

    Select Case Environ
    Case "QA"
        SrlPort = ...This is correct...
        strHost = ...This is correct...
        strService_Name = ...This is correct...
    Case "DEV"
        SrlPort = ...This is correct...
        strHost = ...This is correct...
        strService_Name = ...This is correct...
    Case "PROD"
        SrlPort = ...This is correct...
        strHost = ...This is correct...
        strService_Name = ...This is correct...
    End Select

        conn.Open "Driver={Microsoft ODBC for Oracle}; CONNECTSTRING=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=" & strHost & ")(PORT=CORRECT))" _
             & "(CONNECT_DATA=(SERVICE_NAME=" & strService_Name & "))); uid=" & IPAddr & " ;pwd=" & SrlPort & ";"

這都在一張代碼中。 沒有任何模塊。 當我運行調試器時，它告訴我當我運行“ALL”時我的conn.Open部分存在問題，但我根本無法理解它。 就像我說的，任何幫助表示贊賞！

Answer 1

當你調用strEnv時xUpload然后忽略它並繼續從工作表范圍填充Environ （雖然你沒有Case "All" ：因此你看到的錯誤）

Select Case Environ

應該

Select Case strEnv