Data type mismatch in criteria expression in VB.NET ..?

Question

1.00/5 (2 votes)

See more:

whenever I run the form I got an error that "data type mismatch in criteria expression"

What I have tried:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Integer
        a = EMI_AmountTextBox.Text
        Dim b As Integer
        b = Late_Fine_ChargeTextBox.Text

        Total_AmountTextBox.Text = a + b 'Late_Fine_ChargeTextBox.Text + EMI_AmountTextBox.Text

        provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
        datafile = "C:\asp.net\Loan Management System\Database\Receive_emi.mdb"
        connString = provider & datafile
        myConnection.ConnectionString = connString
        myConnection.Open()
        Dim str As String
        str = "Insert into Receive_emi([C_ID],[ReceiptNo],[No_of_payment],[Receipt_Date],[EMI__Date],[EMI_Amount],[Late_Fine_Charge],[Total_Amount])values(?,?,?,?,?,?,?,?)"
        Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)

        cmd.Parameters.Add(New OleDbParameter("C_ID", CType(C_IDTextBox.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("ReceiptNo", CType(ReceiptNoTextBox.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("No_of_payment", CType(No_of_paymentTextBox.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Receipt_Date", CType(Receipt_DateDateTimePicker.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("EMI__Date", CType(EMI__DateDateTimePicker.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("EMI_Amount", CType(EMI_AmountTextBox.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Late_Fine_Charge", CType(Late_Fine_ChargeTextBox.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Total_Amount", CType(Total_AmountTextBox.Text, String)))
        Try
            cmd.ExecuteNonQuery()
            cmd.Dispose()
            myConnection.Close()
            Me.Hide()

            User_Home_page.Show()


        Catch ex As Exception

            MsgBox(ex.Message)
       End Try

    End Sub

Posted 12-Apr-17 9:17am

Member 13124507

Updated 14-Apr-17 4:15am

v2

Add a Solution

Comments

CHill60 12-Apr-17 15:24pm

In which line of code?
And why are you converting Text to String when it is already a string?

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
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.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

CHill60 · Answer 1 · 2017-04-12T09:31:00

Solution 1

Ok .. I think it is the way you are handling your parameters. Try this instead:

VB

cmd.Parameters.AddWithValue("C_ID", C_IDTextBox.Text)
cmd.Parameters.AddWithValue("ReceiptNo", ReceiptNoTextBox.Text)
cmd.Parameters.AddWithValue("No_of_payment", No_of_paymentTextBox.Text)
cmd.Parameters.AddWithValue("Receipt_Date", Receipt_DateDateTimePicker.Value)
cmd.Parameters.AddWithValue("EMI__Date", EMI__DateDateTimePicker.Value)
cmd.Parameters.AddWithValue("EMI_Amount", EMI_AmountTextBox.Text)
cmd.Parameters.AddWithValue("Late_Fine_Charge", Late_Fine_ChargeTextBox.Text)
cmd.Parameters.AddWithValue("Total_Amount", Total_AmountTextBox.Text)

Posted 12-Apr-17 9:31am

CHill60

Comments

Ralf Meier 14-Apr-17 10:17am

I'm not sure if your approach is right.
Normally an (un-necessary) conversion from String to String doesn't result an Error ...

CHill60 17-Apr-17 8:12am

In my solution I'm advocating use of AddWithValue rather than just Add. The comment about unnecessary conversion was in an earlier...er...comment

Ralf Meier 17-Apr-17 8:18am

I'm sorry ... you are right ... I haven't realized that :(

ZurdoDev 14-Apr-17 11:04am

+5. Much simpler code. Less prone to errors.

Ralf Meier · Answer 2 · 2017-04-14T04:15:00

Solution 2

My intension is this :

VB

Dim a As Integer = cint(EMI_AmountTextBox.Text)
Dim b As Integer = cint(Late_Fine_ChargeTextBox.Text)

Total_AmountTextBox.Text = (a + b).toString   'Late_Fine_ChargeTextBox.Text + EMI_AmountTextBox.Text

Posted 14-Apr-17 4:15am

Ralf Meier

Comments

ZurdoDev 14-Apr-17 11:05am

Is this a solution for the question? It does not look like one.

Ralf Meier 14-Apr-17 11:26am

No ... it is a (I think the) Solution.
I'm sorry if you understood it as question ...

ZurdoDev 14-Apr-17 11:29am

It does not look like a solution for the question that was asked.

Ralf Meier 14-Apr-17 11:37am

Of course ... it is :
You cant assign the addition of 2 Integers to a String(-Variable) without conversion.

Because I don't have the whole source-code I can't check if the cmd.Parameters really accept strings or something complete different ...

ZurdoDev 14-Apr-17 11:44am

TryParse would be better, in my opinion.

Ralf Meier 14-Apr-17 11:48am

of course ... because it checks if the conversion itself is possible ...
The CINT was the easiest way (and better than an implizit conversion) ...

CHill60 17-Apr-17 8:15am

That wouldn't have thrown the exception that the OP reported though

Ralf Meier 17-Apr-17 8:41am

I'm not sure (as I allready discussed with RyanDev).
It could also be that one of the Add's don't require a string ...
But we have no answer from the OP ...

Ralf Meier 14-Apr-17 11:47am

... but you are right ... it depends on the compile-settings of the project ...