I am getting this error: Not sure but i believe it is the sql code Just not sure how to debug it and fix it.
ErrorSystem.Data.OleDb.OleDbException: Data type mismatch in criteria expression.
at System.Data.OleDb.OleDbCommand.ExecuteCommandTextErrorHandling(OleDbHResult hr)
at System.Data.OleDb.OleDbCommand.ExecuteCommandTextForSingleResult(tagDBPARAMS dbParams, Object& executeResult)
at System.Data.OleDb.OleDbCommand.ExecuteCommandText(Object& executeResult)
at System.Data.OleDb.OleDbCommand.ExecuteCommand(CommandBehavior behavior, Object& executeResult)
at System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(CommandBehavior behavior, String method)
at System.Data.OleDb.OleDbCommand.ExecuteReader(CommandBehavior behavior)
at System.Data.OleDb.OleDbCommand.ExecuteReader()
at HiTechMaint.frmWorkOrder.cboMachineNumber_Leave(Object sender, EventArgs e) in D:\Hi-Tech\HiTechMaint\HiTechMaint\frmWorkOrder.vb:line 58
thanks
ErrorSystem.Data.OleDb.OleDbException: Data type mismatch in criteria expression.
at System.Data.OleDb.OleDbCommand.ExecuteCommandTextErrorHandling(OleDbHResult hr)
at System.Data.OleDb.OleDbCommand.ExecuteCommandTextForSingleResult(tagDBPARAMS dbParams, Object& executeResult)
at System.Data.OleDb.OleDbCommand.ExecuteCommandText(Object& executeResult)
at System.Data.OleDb.OleDbCommand.ExecuteCommand(CommandBehavior behavior, Object& executeResult)
at System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(CommandBehavior behavior, String method)
at System.Data.OleDb.OleDbCommand.ExecuteReader(CommandBehavior behavior)
at System.Data.OleDb.OleDbCommand.ExecuteReader()
at HiTechMaint.frmWorkOrder.cboMachineNumber_Leave(Object sender, EventArgs e) in D:\Hi-Tech\HiTechMaint\HiTechMaint\frmWorkOrder.vb:line 58
Code:
Private Sub cboMachineNumber_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboMachineNumber.Leave
'Setup connection String
Dim cnString As String
cnString = "provider=microsoft.jet.oledb.4.0;data source=..\Hy-Tech Maint2.mdb"
'Create command (with both text and connction)
Dim sqlQRY As String = "SELECT tblMachine.MachineNumber, tblMachine.Description FROM tblMachine WHERE tblMachine.MachineNumber = '%" & cboMachineNumber.Text & "%'"
'Create Connection
Dim conn As OleDbConnection = New OleDbConnection(cnString)
Try
'Open connection
conn.Open()
Dim cmd As OleDbCommand = New OleDbCommand(sqlQRY, conn)
'create Data Reader
Dim RDR As OleDbDataReader = cmd.ExecuteReader
While (RDR.Read)
TextBox2.Text = RDR("Description").ToString()
End While
Catch ex As Exception
TextBox1.Text = "Error" & ex.ToString & vbCrLf
End Try
End Sub