Click here to Skip to main content

SWEET143 asked:

Open original thread
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
Tags: VB.NET

Preview



When answering a question please:
  1. Read the question carefully.
  2. Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
  3. If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Let's work to help developers, not make them feel stupid.
Please note that all posts will be submitted under the The Code Project Open License (CPOL).



Advertise | Privacy | Mobile
Web04 | 2.8.150327.1 | Last Updated 26 Mar 2009
Copyright © CodeProject, 1999-2015
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100