[mostafa hasanein]

(11-08-18, 07:37 AM)Null كتب :

كود :

Public Class FRM_ADD_PRODUCTS

   Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click


       Try

           cmd = New OleDbCommand("INSERT INTO TBL_PRODUCTS (Label, Qty, Price) values (@Label, @Qty, @Price)", con)

           cmd.Parameters.AddWithValue("@Label", txtname.Text.Trim)

           cmd.Parameters.AddWithValue("@Qty", Val(txtqty.Text))

           cmd.Parameters.AddWithValue("@Price", Val(txtprice.Text))

           If con.State <> ConnectionState.Open Then con.Open()

           cmd.ExecuteNonQuery()


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

شكرا على رد حضرتك ..ولكن ايضا بتيجى نفس الرسالة عند اضافة المنتج 
ممكن يكون اية تانى المشكلة فى هذا الكود؟؟

شكرا