[ابراهيم ايبو]

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

كود :

Private Sub BTN_SAVE_Click(sender As Object, e As EventArgs) Handles BTN_SAVE.Click
       Try
           cmd = New OleDbCommand("Insert Into TBL_PRODUCTS (Label, Qty, Price)values (@Label, @Qty, @Price)", con)
           cmd.Parameters.Add(New OleDbParameter("@Label", OleDbType.VarChar)).Value = TXT_NAME.Text
           cmd.Parameters.Add(New OleDbParameter("@Qty", OleDbType.Integer)).Value = CInt(TXT_QTY.Text) ' هنا الى انتغر
           cmd.Parameters.Add(New OleDbParameter("@Price", OleDbType.Currency)).Value = CDbl(TXT_PRICE.Text) ' هنا الى دبل

           con.Open()
           cmd.ExecuteNonQuery()
           MsgBox("تمت الأضافة بنجاح", MsgBoxStyle.Information, "إضافة")
       Catch ex As Exception
           MsgBox(ex.Message)
       Finally
           con.Close()
       End Try
   End Sub