[عبدالرحمن بشري عمر]

السلام عليكم ورحمة الله ياشباب عندي مشكلفة في اضافة فاتورة المبيعات بعد استخراج القيم


        Try
            If con.State = ConnectionState.Closed Then
                con.Open()
            End If

            Dim cmd As New OleDbCommand


            cmd.Connection = con
            cmd.CommandType = CommandType.Text
            cmd.CommandText = "insert into saless (cvb,b,c,d,f,h,i) values (@cvb, @B, @c, @d, @f, @h, @i)"
            cmd.Parameters.Add(New OleDbParameter("@cvb", OleDbType.Integer)).Value = Label15.Text
            cmd.Parameters.Add(New OleDbParameter("@b", OleDbType.Date)).Value = Label16.Text
            cmd.Parameters.Add(New OleDbParameter("@c", OleDbType.Integer)).Value = Label17.Text
            cmd.Parameters.Add(New OleDbParameter("@d", OleDbType.Integer)).Value = TextBox3.Text
            cmd.Parameters.Add(New OleDbParameter("@f", OleDbType.VarChar)).Value = Label13.Text
            cmd.Parameters.Add(New OleDbParameter("@h", OleDbType.Decimal)).Value = Label10.Text
            cmd.Parameters.Add(New OleDbParameter("@i", OleDbType.Decimal)).Value = Label14.Text
            cmd.ExecuteScalar()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
بتظهر هذه الرسالة
Failed to convert Parameter value From a string to a int32
نرجو منكم المساعدة