[abarrak]

(16-08-19, 04:04 PM)عبد العزيز البسكري كتب :

أنا لم أغير شيئا أخي الكريم بالأكواد .. فقط غيرت طريقة الإتّصال بقاعدة البيانات لتكون أكثر وضوحا و أسهل للإستخدام و للفهم

تحياتي

سوال آخير و أكون لك من الشاكرين


ما الفرق بين الكود الأول و الكود الثاني

الكود الأول:

كود :

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.Trim
           cmd.Parameters.Add(New OleDbParameter("@Qty", OleDbType.Integer)).Value = TXT_QTY.Text
           cmd.Parameters.Add(New OleDbParameter("@Price", OleDbType.Currency)).Value = TXT_PRICE.Text

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

الكود الثاني:

كود :

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.Trim
           cmd.Parameters.Add(New OleDbParameter("@Qty", OleDbType.Integer)).Value = TXT_QTY.Text
           cmd.Parameters.Add(New OleDbParameter("@Price", OleDbType.Currency)).Value = TXT_PRICE.Text

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

علما أن الكود الأول هو الكود تبعي 

أما الكود الثاني هو الكود تبعك


لا يوجد فرق بين الكودين لكن نجح معك و لم ينجح معي فما السبب برأيك



الصوره في المرفقات ممكن توضح لك سوالي