将 Excel 导出到多个 Oracle 表时出现系统错误答案

【问题标题】：System error when exporting Excel to multiple Oracle tables将 Excel 导出到多个 Oracle 表时出现系统错误
【发布时间】：2019-10-19 10:44:22
【问题描述】：

我正在处理一个将其内容上传到 Oracle SQL 数据库的 Excel 文件。它应该能够上传到“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 部分存在问题，但我根本无法弄清楚。就像我说的，感谢任何帮助！

【问题讨论】：

你没有使用传给上传子的参数
@Tim Williams 嗨，我不太明白。你能详细说明一下吗？

标签： excel vba oracle-sqldeveloper

【解决方案1】：

当您调用xUpload 时传入strEnv，然后忽略它并继续从工作表范围填充Environ（尽管您没有Case "All"：因此您会看到错误）

Select Case Environ

应该是

Select Case strEnv

【讨论】：