منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : أين الخطأ في مشروعي
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
(16-08-19, 02:47 PM)سعود كتب : [ -> ]
(16-08-19, 02:43 PM)abarrak كتب : [ -> ]
(16-08-19, 02:33 PM)سعود كتب : [ -> ]يوجد خطأ بجملة الـInsert

وين الخطأ

رسالة الخطأ تبين انه يوجد خطأ بجملة Insert
لكن لا اعرف لاني لم ارى الكود.

هذا جملة الكود
كود :
cmd = New OleDbCommand("Insert Into TBL_PRODUCTS (Label, Qty, Price)
                             valuse (@Label, @Qty, @Price)", con)
بعد إذن الجميع أخي الكريم .. شوف هذا المثال
لقد أخبرك العم ابراهيم بأن الخطأ في كلمة valuse
وقال لك أن عدلها هكذا values
(16-08-19, 03:01 PM)عبد العزيز البسكري كتب : [ -> ]
بعد إذن الجميع أخي الكريم .. شوف هذا المثال 
بارك الله فيك مثالك نجح 
و أما مثالي لم ينجح و هو بنفس الكود اللي كتبه أنت يا عبد العزيز 

هل يوجد اختلاف بين إصدارات VB.NET
أنا استخدم حاليا VB.NET 2019

(16-08-19, 03:11 PM)Beginer كتب : [ -> ]لقد أخبرك العم ابراهيم بأن الخطأ في كلمة valuse
وقال لك أن عدلها هكذا values

نعم صحيح .... بس مافمهته في البداية عموما بارك الله فيك و في العم إبراهيم
أنا لم أغير شيئا أخي الكريم بالأكواد .. فقط غيرت طريقة الإتّصال بقاعدة البيانات لتكون أكثر وضوحا و أسهل للإستخدام و للفهم
تحياتي
(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()




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

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


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



الصوره في المرفقات ممكن توضح لك سوالي
السلام عليكم اخي الكريم
الرسالة تقول ان احد اسماء الحقول غير صحيح وواضح من ان الكودين صحيحين
قم بعمل Clean للمشروع ثم Rebuild 
وتأكد من اسماء الحقول في الجدول
(17-08-19, 02:26 PM)ابراهيم ايبو كتب : [ -> ]السلام عليكم اخي الكريم
الرسالة تقول ان احد اسماء الحقول غير صحيح وواضح من ان الكودين صحيحين
قم بعمل Clean للمشروع ثم Rebuild 
وتأكد من اسماء الحقول في الجدول

الله يعطكم الف عافية يا شباب الف شكر لكم Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Heart Heart Heart Heart Heart Heart Heart Heart Heart Heart Heart Heart Heart Heart Heart Heart Shy Shy Shy Shy Shy Shy Shy Shy Shy Shy Shy Shy Shy Shy Shy Shy Shy Shy
الصفحات : 1 2