+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : أين الخطأ في مشروعي (/showthread.php?tid=30920)
الصفحات:
1
2
RE: أين الخطأ في مشروعي - abarrak - 16-08-19
(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)RE: أين الخطأ في مشروعي - عبد العزيز البسكري - 16-08-19
بعد إذن الجميع أخي الكريم .. شوف هذا المثال
RE: أين الخطأ في مشروعي - Beginer - 16-08-19
لقد أخبرك العم ابراهيم بأن الخطأ في كلمة valuse
وقال لك أن عدلها هكذا values
RE: أين الخطأ في مشروعي - abarrak - 16-08-19
(16-08-19, 03:01 PM)عبد العزيز البسكري كتب :بارك الله فيك مثالك نجحبعد إذن الجميع أخي الكريم .. شوف هذا المثال
و أما مثالي لم ينجح و هو بنفس الكود اللي كتبه أنت يا عبد العزيز
هل يوجد اختلاف بين إصدارات VB.NET
أنا استخدم حاليا VB.NET 2019
(16-08-19, 03:11 PM)Beginer كتب : لقد أخبرك العم ابراهيم بأن الخطأ في كلمة valuse
وقال لك أن عدلها هكذا values
نعم صحيح .... بس مافمهته في البداية عموما بارك الله فيك و في العم إبراهيم
RE: أين الخطأ في مشروعي - عبد العزيز البسكري - 16-08-19
أنا لم أغير شيئا أخي الكريم بالأكواد .. فقط غيرت طريقة الإتّصال بقاعدة البيانات لتكون أكثر وضوحا و أسهل للإستخدام و للفهم
تحياتي
RE: أين الخطأ في مشروعي - abarrak - 17-08-19
(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()علما أن الكود الأول هو الكود تبعي
أما الكود الثاني هو الكود تبعك
لا يوجد فرق بين الكودين لكن نجح معك و لم ينجح معي فما السبب برأيك
الصوره في المرفقات ممكن توضح لك سوالي
RE: أين الخطأ في مشروعي - ابراهيم ايبو - 17-08-19
السلام عليكم اخي الكريم
الرسالة تقول ان احد اسماء الحقول غير صحيح وواضح من ان الكودين صحيحين
قم بعمل Clean للمشروع ثم Rebuild
وتأكد من اسماء الحقول في الجدول
RE: أين الخطأ في مشروعي - abarrak - 18-08-19
(17-08-19, 02:26 PM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم
الرسالة تقول ان احد اسماء الحقول غير صحيح وواضح من ان الكودين صحيحين
قم بعمل Clean للمشروع ثم Rebuild
وتأكد من اسماء الحقول في الجدول
الله يعطكم الف عافية يا شباب الف شكر لكم
