从另一个表单加载时 "Data type mismatch in criteria expression"
When loading from another form "Data type mismatch in criteria expression"
我在解决错误方面遇到了麻烦"Data type mismatch in criteria expression"
我想使用其他表单加载人员,但提示错误。我不知道如何解决这个问题。
Ms Access Table Design
我认为这行代码是我遇到上述错误的地方:
Private Sub GetStaffRecord()
Try
sqL = "SELECT * From Staff WHERE StaffID = " & txtStaffID.Text & ""
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
If dr.Read = True Then
txtStaffID.Text = dr("StaffID")
txtLastname.Text = dr("Lastname")
txtFirstname.Text = dr("Firstname")
txtMI.Text = dr("MI")
txtAddress.Text = dr("Address")
txtContactNo.Text = dr("ContactNo")
txtPosition.Text = dr("Position")
End If
Catch ex As Exception
MsgBox(ex.Message)
Finally
cmd.Dispose()
conn.Close()
End Try
End Sub
我的英语真的很差,但我希望你能帮助我。非常感谢。
您缺少将文本字段括起来的引号 'txtStaffID'。使用以下内容:
sqL = "SELECT * From Staff WHERE StaffID = """ & txtStaffID.Text & """"
我在解决错误方面遇到了麻烦"Data type mismatch in criteria expression"
我想使用其他表单加载人员,但提示错误。我不知道如何解决这个问题。
Ms Access Table Design
我认为这行代码是我遇到上述错误的地方:
Private Sub GetStaffRecord()
Try
sqL = "SELECT * From Staff WHERE StaffID = " & txtStaffID.Text & ""
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
If dr.Read = True Then
txtStaffID.Text = dr("StaffID")
txtLastname.Text = dr("Lastname")
txtFirstname.Text = dr("Firstname")
txtMI.Text = dr("MI")
txtAddress.Text = dr("Address")
txtContactNo.Text = dr("ContactNo")
txtPosition.Text = dr("Position")
End If
Catch ex As Exception
MsgBox(ex.Message)
Finally
cmd.Dispose()
conn.Close()
End Try
End Sub
我的英语真的很差,但我希望你能帮助我。非常感谢。
您缺少将文本字段括起来的引号 'txtStaffID'。使用以下内容:
sqL = "SELECT * From Staff WHERE StaffID = """ & txtStaffID.Text & """"