使用excel VBA验证Oracle凭据

我正在使用宏从Oracle数据库中提取数据，并将结果返回到excel工作表。我能够在硬编码凭证时连接到数据库。但是，我需要一个解决方案，该解决方案将提示用户输入他们的凭据，并验证连接是否成功、凭据是否无效或密码是否已过期或即将过期。如果连接不成功，则应显示一个弹出窗口，指示错误消息。 我们将非常感谢为实现这一目标提供的任何帮助

以下是我当前连接到DB的方式：

Sub ConnectToOracle()

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mtxData As Variant
Dim oraQuery As String

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.Open ( _
"User ID=XXXXX" & _
";Password=XXXXX" & _
";Data Source=MBRSTGPTNS" & _
";Provider=OraOLEDB.Oracle")

rs.CursorType = adOpenForwardOnly
'QUERY'
mtxData = rs.GetRows

Worksheets("Sheet1").Activate
ActiveSheet.Range("b1:c1000") = mtxData

Set cn = Nothing
Set rs = Nothing

End Sub

---

到底是哪一部分给你带来了问题？您可以使用Userform来收集用户的凭据（例如，从工作表中获取凭据）。使用错误处理程序在打开连接时捕获任何错误，并使用messagebox显示详细信息。现有的代码都没有给我带来问题，我希望在登录时实现错误处理。您提供的链接为我提供了实施错误处理更改所需的指导。非常感谢。