如何通过IF语句验证VBA表单Teradata数据库连接有效性？

你的问题核心是ADODB.Connection.Open方法失败会直接抛出运行时错误，导致程序中断，根本无法执行后续的连接状态判断。不能用If Cn.Open sConnect = True的方式验证，因为Open方法没有布尔返回值，且失败会触发错误中断程序。

正确的做法是通过VBA的错误捕获机制处理连接失败场景，以下是修改后的代码：

Private Sub cmdLogin_Click()    
    Dim Cn As ADODB.Connection
    Dim user As String
    Dim password As String
    Dim sConnect As String
    Dim connectSuccess As Boolean
      
    user = Me.txtUserID.Value
    password = Me.txtPassword.Value
    
    sConnect = "Driver={Teradata};DBCname=TDPREP01;DatabaseName=DBADMIN ;Uid=" & user & ";Pwd=" & password & "; Authentication=LDAP;"
    
    Set Cn = New ADODB.Connection
    connectSuccess = False
    
    ' 开启错误捕获，让程序遇到错误时不中断
    On Error Resume Next
    Cn.Open sConnect
    
    ' 检查是否触发错误：Err.Number为0表示无错误，连接成功
    If Err.Number = 0 Then
        ' 双重确认连接状态是否为打开（adStateOpen = 1）
        If Cn.State = 1 Then
            connectSuccess = True
        End If
    End If
    
    ' 重置错误捕获机制
    On Error GoTo 0
    
    If connectSuccess Then        
        Unload Me
        Application.Visible = True
        Worksheets("do not open!").Cells(1, 1) = user
        Worksheets("do not open!").Cells(2, 1) = password
        ' 验证完成后关闭连接，后续模块可使用存储的凭据重新连接
        Cn.Close
    Else
        MsgBox "无效的登录凭据，请重试。", vbOKOnly + vbCritical, "登录失败"
    End If
    
    ' 释放对象资源
    Set Cn = Nothing
End Sub

关键修改说明： #

• 错误捕获机制：用On Error Resume Next让程序在连接失败时不崩溃，继续执行后续代码；通过Err.Number判断是否触发连接错误。
• 双重验证：无错误时再检查Cn.State是否为1（即adStateOpen，连接已打开），确保连接确实有效。
• 资源清理：验证完成后关闭连接并释放Connection对象，避免资源泄漏。

内容的提问来源于stack exchange，提问作者user12722902