I am trying to add a new record on my data grid view table but an error always occur saying "Data type mismatch in criteria expression" and "OleDB Exception was unhandled" what was wrong? what was wrong with the code?
Imports System.Data.OleDb
Public Class frmAdd
Dim myconnection As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=G:\order\Order\Order\Orders.accdb")
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Private Sub frmAdd_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub ClearTextBox(frmAdd As frmAdd)
End Sub
Private Sub RefreshDVG()
End Sub
Private Sub btnAdd_Click(sender As System.Object, e As System.EventArgs) Handles
btnAdd.Click
Dim sqlinsert As String
sqlinsert = "insert into Orders (ID, Description, U_Price, U_Quantity) VALUES (@ID, @Description,@U_Price,@U_Quantity)"
Dim cmd As New OleDb.OleDbCommand(sqlinsert, myconnection)
cmd.Parameters.Add(New OleDb.OleDbParameter("@ID", lblID.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@Description", txtDescription.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@U_Price", txtUprice.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@U_Quantity", txtUQuantity.Text))
myconnection.Open()
cmd.ExecuteNonQuery()
myconnection.Close()
ClearTextBox(Me)
RefreshDVG()
Me.Close()
End Sub
End Class