没有为一个或多个必需参数给出值。在Vb6.0

Question

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=" &   cmb_dept_name.Text
    
    rs1.Open q1, cn, adOpenDynamic, adLockOptimistic
    Do While rs1.EOF
        cmb_deadstock_no.AddItem rs1.Fields("Dead_Stock_No")
        rs1.MoveNext
    Loop
        
    Call CloseAllConnections
End Sub

Answer 1

您的值似乎是一个名称，因此是文本，因此请尝试使用引号：

q1 = "Select * from master where dept = '" & cmb_dept_name.Text & "'"