如何创建访问数据库的VBA子过程并在另一个子过程中调用？

把你的数据库访问逻辑封装成独立子过程，只需将可变的表名和任务类型作为参数传入，主过程中按需调用即可。以下是封装后的代码：

Sub ProcessDatabaseTasks(ByVal tableName As String, ByVal taskTypeFilter As String, ByVal sampleValue As String, ByVal conn As ADODB.Connection)
    Dim strSQL As String
    Dim rst As ADODB.Recordset
    
    ' 构建动态SQL查询，使用传入的表名和筛选条件
    strSQL = "SELECT * FROM " & tableName & " WHERE Sample = '" & sampleValue & "' AND Task_Type = '" & taskTypeFilter & "'"
    
    ' 创建并打开记录集
    Set rst = New ADODB.Recordset
    rst.Open strSQL, conn, adOpenForwardOnly
    
    ' 遍历记录集并处理任务
    While Not (rst.EOF Or rst.BOF)
        SetTaskField Field:="Name", Value:=rst.Fields("Task_Name")
        SetTaskField Field:="Task Type", Value:=rst.Fields("Task_Type")
        SelectTaskField Row:=0, Column:="duration", Width:=2
        SetTaskMode Manual:=True
        EditClear Contents:=True
        SelectRow Row:=1
        InsertTask
        rst.MoveNext
    Wend
    
    ' 清理资源
    rst.Close
    Set rst = Nothing
End Sub

关键说明： #

• 参数设计：子过程接收4个参数，其中tableName对应原代码中的X_Loop（动态表名），taskTypeFilter对应原代码中的Task_Type（筛选条件），sampleValue是查询用到的Sample值，conn是已建立的数据库连接对象
• 变量作用域：在子过程内部声明strSQL和rst，避免与外部代码的变量产生命名冲突
• 资源清理：添加了记录集的关闭和对象释放操作，防止内存泄漏
• SQL注入提示：原代码使用字符串拼接生成SQL，存在SQL注入风险。如果需要提升安全性，建议改用参数化查询，示例如下：

  strSQL = "SELECT * FROM " & tableName & " WHERE Sample = ? AND Task_Type = ?"
  Set rst = New ADODB.Recordset
  rst.Open strSQL, conn, adOpenForwardOnly, adLockReadOnly, adCmdText
  rst.Parameters(0).Value = sampleValue
  rst.Parameters(1).Value = taskTypeFilter
  

主过程调用示例： #

' 假设已建立数据库连接conn，Sample值为"Sample1"
Call ProcessDatabaseTasks("Table_X", "Type_A", "Sample1", conn)
' 当表或任务类型变更时，直接传入新参数调用即可
Call ProcessDatabaseTasks("Table_Y", "Type_B", "Sample1", conn)

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