(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()
علما أن الكود الأول هو الكود تبعي
أما الكود الثاني هو الكود تبعك
لا يوجد فرق بين الكودين لكن نجح معك و لم ينجح معي فما السبب برأيك
الصوره في المرفقات ممكن توضح لك سوالي