VB6.0出现‘未为一个或多个必填参数提供值’报错的技术问询

• 字符串字段未加引号：SQL语句中dept是字符串类型字段，但直接拼接cmb_dept_name.Text时未加单引号，数据库会把输入的文本当成参数名而非字段值，因此触发“未为一个或多个必填参数提供值”的错误。
• 循环逻辑错误：Do While rs1.EOF的条件完全颠倒——如果记录集有数据，初始时rs1.EOF为False，循环根本不会执行；只有记录集为空时才会进入循环，完全不符合遍历数据的需求。
• 存在SQL注入风险：直接把用户输入拼进SQL语句，不仅容易出现语法问题，还可能被恶意利用篡改数据库数据。

1. 临时修复：给字符串值加单引号 #

修改SQL语句，给cmb_dept_name.Text包裹单引号，同时处理输入中的单引号（把单个'替换成''，避免语法错误）：

Private Sub cmb_dept_name_LostFocus()
    Call CloseAllConnections

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data.mdb;Persist Security Info=False"

    Dim q1 As String
    ' 处理输入中的单引号，同时给值加单引号
    Dim deptValue As String
    deptValue = Replace(cmb_dept_name.Text, "'", "''")
    q1 = "Select * from master where dept='" & deptValue & "'"
    
    rs1.Open q1, cn, adOpenDynamic, adLockOptimistic
    ' 修正循环条件：遍历所有非空记录
    Do While Not rs1.EOF
        cmb_deadstock_no.AddItem rs1.Fields("Dead_Stock_No")
        rs1.MoveNext
    Loop
        
    Call CloseAllConnections
End Sub

2. 推荐方案：使用参数化查询 #

彻底避免字符串拼接的问题，同时防止SQL注入，写法更规范安全：

Private Sub cmb_dept_name_LostFocus()
    Call CloseAllConnections

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data.mdb;Persist Security Info=False"

    Dim q1 As String
    q1 = "Select * from master where dept=?" ' 用?作为参数占位符
    
    Dim cmd As New ADODB.Command
    Set cmd.ActiveConnection = cn
    cmd.CommandText = q1
    ' 添加参数并赋值，50为字段长度，可根据实际调整
    cmd.Parameters.Append cmd.CreateParameter("dept", adVarChar, adParamInput, 50, cmb_dept_name.Text)
    
    Set rs1 = cmd.Execute
    ' 修正循环条件
    Do While Not rs1.EOF
        cmb_deadstock_no.AddItem rs1.Fields("Dead_Stock_No")
        rs1.MoveNext
    Loop
        
    Call CloseAllConnections
    ' 释放对象，避免内存泄漏
    Set rs1 = Nothing
    Set cmd = Nothing
End Sub

额外注意 #

• 可添加cmb_dept_name.Text的空值判断，避免生成dept=''的SQL语句返回空记录集。
• 操作完记录集后，显式释放对象（如参数化代码中的Set rs1 = Nothing），减少内存占用。

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