hey ! gd evening :)
I'm just facing error while coding on vb.net. I have new customer form. Normaly it has many text boxes , one date time picker and five picture boxes.
this is code snip :

 Dim mstream As New System.IO.MemoryStream()
        customerpic.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Jpeg)
        Dim arrImage() As Byte = mstream.GetBuffer()
        mstream.Close()

        Dim mstream2 As New System.IO.MemoryStream()
        cusidcard.Image.Save(mstream2, System.Drawing.Imaging.ImageFormat.Jpeg)
        Dim arrImage2() As Byte = mstream2.GetBuffer()
        mstream2.Close()

        Dim mstream3 As New System.IO.MemoryStream()
        g1idcard.Image.Save(mstream3, System.Drawing.Imaging.ImageFormat.Jpeg)
        Dim arrImage3() As Byte = mstream3.GetBuffer()
        mstream3.Close()

        Dim mstream4 As New System.IO.MemoryStream()
        g2idcard.Image.Save(mstream4, System.Drawing.Imaging.ImageFormat.Jpeg)
        Dim arrImage4() As Byte = mstream4.GetBuffer()
        mstream4.Close()

        Dim mstream5 As New System.IO.MemoryStream()
        cusregform.Image.Save(mstream5, System.Drawing.Imaging.ImageFormat.Jpeg)
        Dim arrImage5() As Byte = mstream5.GetBuffer()
        mstream5.Close()
        query = "INSERT INTO moneycs.customer(Customer_ID, First_Name, Last_Name, NIC_NO, House_NO, Address, City, TP_NO, Membership_Date, Business_Name, G_1ID, G_2ID, C_PIC, C_ID, C_RegApplication)" & _
                "VALUES(@Customer_ID, @First_Name, @Last_Name, @NIC_NO, @House_NO, @Address, @City, @TP_NO, @Membership_Date, @Business_Name, @G_1ID, @G_2ID, @C_PIC, @C_ID, @C_RegApplication)"
        Dim cmd As MySqlCommand = New MySqlCommand(query, con)
        cmd.Parameters.AddWithValue("@Customer_ID", Convert.ToInt32(txtcustormerid.Text))
        cmd.Parameters.AddWithValue("@First_Name", Convert.ToString(txtfirstname.Text))
        cmd.Parameters.AddWithValue("@Last_Name", Convert.ToString(txtlastname.Text))
        cmd.Parameters.AddWithValue("@NIC_NO", Convert.ToString(txtnicno.Text))
        cmd.Parameters.AddWithValue("@House_NO", Convert.ToString(txthouseno.Text))
        cmd.Parameters.AddWithValue("@Address", Convert.ToString(txtaddress.Text))
        cmd.Parameters.AddWithValue("@City", Convert.ToString(txtcity.Text))
        cmd.Parameters.AddWithValue("@TP_NO", Convert.ToString(txtctpno.Text))
        cmd.Parameters.AddWithValue("@Membership_Date", Convert.ToDateTime(dtpmembrshipdate.Value))
        cmd.Parameters.AddWithValue("@Business_Name)", Convert.ToString(txtbusinessname.Text))
        cmd.Parameters.AddWithValue("@G_1ID", arrImage)
        cmd.Parameters.AddWithValue("@G_2ID", arrImage2)
        cmd.Parameters.AddWithValue("@C_PIC", arrImage3)
        cmd.Parameters.AddWithValue("@C_ID", arrImage4)
        cmd.Parameters.AddWithValue("@C_RegApplication", arrImage5)
        Try
            con.Open()
            cmd.ExecuteNonQuery()
            MessageBox.Show("Customer Added Sucsessfully !", "Save Customer")
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        If (con.State = ConnectionState.Open) Then
            con.Close()
        End If
    End Sub

When I clicked on 'save' button it say 'fatal error encountered while command execution'
But I can't find where I had error. Please help me guys

Recommended Answers

All 3 Replies

Your error should be at line no 37.
cmd.Parameters.AddWithValue("@Business_Name)", Convert.ToString(txtbusinessname.Text))
You made an extra charecter in parameter declaration "@Business_Name)"

yes you are right sir :)

Even I double checked I can't find that error :)

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.