VBA用户窗体公共变量无法传递至模块导致数据库连接失败

核心问题 #

你在窗体类和普通模块中分别声明了同名的Public strConnectionString，这是两个完全独立的变量：

• 窗体里的公共变量属于窗体对象的实例，只有当窗体被加载/实例化后，这个变量才存在且对应窗体实例的赋值；
• 普通模块里的公共变量是全局作用域的变量，但你从未给它赋值，所以它始终是空字符串，自然会导致ODBC连接报错（空字符串无法识别数据源），写入单元格也无内容。

解决方案 #

方案1：直接引用窗体实例的公共变量

删除普通模块里的Public strConnectionString声明，在模块中通过窗体实例访问该变量：

• 如果窗体是模态打开（比如UserForm1.Show vbModal），直接用窗体类名访问：

  ' 普通模块中的代码
  Sub TestConnection()
      Dim conn As ADODB.Connection
      Set conn = New ADODB.Connection
      ' 直接引用窗体的公共变量
      conn.Open UserForm1.strConnectionString
      ' 后续操作...
      conn.Close
      Set conn = Nothing
  End Sub
  

• 如果窗体是非模态打开，要确保使用同一个窗体实例：

  ' 普通模块中的代码
  Dim frmLogin As UserForm1 ' 声明模块级的窗体实例变量
  
  Sub ShowLoginForm()
      Set frmLogin = New UserForm1
      frmLogin.Show vbModeless
  End Sub
  
  Sub TestConnection()
      Dim conn As ADODB.Connection
      Set conn = New ADODB.Connection
      ' 通过已创建的窗体实例访问变量
      conn.Open frmLogin.strConnectionString
      ' 后续操作...
      conn.Close
      Set conn = Nothing
  End Sub
  

方案2：使用标准模块的全局变量统一存储

只在普通模块中声明全局变量，窗体中直接给该变量赋值，避免重复声明：

1. 普通模块中声明：

   Public strConnectionString As String
   

2. 窗体中删除同名的Public声明，直接赋值：

   Private Sub cmdConfirm_Click()
       ' 根据用户输入生成连接字符串
       strConnectionString = "Driver={SQL Server};Server=你的服务器名;UID=" & txtUser.Text & ";PWD=" & txtPW.Text & ";Database=你的数据库名"
       Me.Hide
   End Sub
   

3. 普通模块中直接使用该全局变量即可：

   Sub TestConnection()
       Dim conn As ADODB.Connection
       Set conn = New ADODB.Connection
       conn.Open strConnectionString
       ' 后续操作...
       conn.Close
       Set conn = Nothing
   End Sub
   

验证技巧 #

在窗体赋值后，立即用Debug.Print输出变量值，确认赋值成功：

• 方案1：在窗体的确认按钮中加Debug.Print Me.strConnectionString
• 方案2：在窗体的确认按钮中加Debug.Print strConnectionString
  然后在普通模块中调用前也加Debug.Print strConnectionString（或对应窗体实例的变量），就能快速定位变量是否正确传递。

内容的提问来源于stack exchange，提问作者Rafael Rodrigues Santos