منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
أين الخطأ في مشروعي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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

أين الخطأ في مشروعي - abarrak - 16-08-19

أين الخطأ في مشروعي





كود :
Imports System.Data.OleDb
Public Class FRM_ADD_PRODUCTS
   Private Sub BTN_SAVE_Click(sender As Object, e As EventArgs) Handles BTN_SAVE.Click
       Try
           cmd = New OleDbCommand("Insert Into TBL_PRODUCTS (Label, Qty, Price)
                              valuse (@Label, @Qty, @Price)", con)
           cmd.Parameters.Add(New OleDbParameter("@Label", OleDbType.VarChar)).Value = TXT_NAME.Text
           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()
       End Try
   End Sub
End Class



RE: أين الخطأ في مشروعي - viv - 16-08-19

بالنسبة لكودك هنا  وبغض النظر عن ترتيبه ومكان واين باقي الكود الخاص بكائن الاتصال وغيرها يوجد فيه خطا هنا

كود :
cmd = New OleDbCommand("Insert Into TBL_PRODUCTS (Label, Qty, Price)
                             valuse (@Label, @Qty, @Price)", con)

اما ان تجعل الجملة بسطر واحد كالتالي

كود :
cmd = New OleDbCommand("Insert Into TBL_PRODUCTS (Label, Qty, Price) valuse (@Label, @Qty, @Price)", con)

او تستخدم هذه الطريقة

كود :
cmd = New OleDbCommand("Insert Into TBL_PRODUCTS (Label, Qty, Price)" & _
                                   "valuse (@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 = CType(TXT_QTY.Text, Integer)
           cmd.Parameters.Add(New OleDbParameter("@Price", OleDbType.Currency)).Value = CType(TXT_PRICE.Text, Double)


RE: أين الخطأ في مشروعي - ابراهيم ايبو - 16-08-19

السلام عليكم اخي الكريم
لديك في الحدول حقول رقمبة وانت تدخلها كنص قم بتحويل القيم عند الادخال كل حسب نوعه
اليك الكود بعد التعديل
كود :
Private Sub BTN_SAVE_Click(sender As Object, e As EventArgs) Handles BTN_SAVE.Click
       Try
           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
           cmd.Parameters.Add(New OleDbParameter("@Qty", OleDbType.Integer)).Value = CInt(TXT_QTY.Text) ' هنا الى انتغر
           cmd.Parameters.Add(New OleDbParameter("@Price", OleDbType.Currency)).Value = CDbl(TXT_PRICE.Text) ' هنا الى دبل

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


RE: أين الخطأ في مشروعي - viv - 16-08-19

اجل كنت قد عدلت المنشور واضفت نفس الملاحظة ووجدت الاخ ابراهيم قام بالتعليق على هذا ايضا
فقط ايضا استخدم الامر Trim لازالة الفراغات ، فالفراغات قد تحدث لك ادخال بيانات غير صحيحة وغير مرغوب فيها
فالمستخدمين غالبا يقومون بترك فراغات لادخالات الاسم وعند البحث عن ذلك الاسم لن تجده منظومتك ابدا لانها تعتبر الفراغ حرف
هذا من واقع التجربة مع سلوكيات المستخدمين

RE: أين الخطأ في مشروعي - عبد العزيز البسكري - 16-08-19

دون نسيان أساتذتي الأفاضل :
VALUSE إلى VALUE


RE: أين الخطأ في مشروعي - ابراهيم ايبو - 16-08-19

بارك الله فيك اخي عبد العزيز البسكري
كلمة (Valuse) يجب كتابتها هكذا (Values) خطأ كتابي
ساعدلها في الكود


RE: أين الخطأ في مشروعي - abarrak - 16-08-19

بارك الله فيكم بس لس فيه خطأ بعد التعديل و الخطأ نفس الرسالة قبل و بعد التعديل



---------------------------
Stock System
---------------------------
Syntax error in INSERT INTO statement
---------------------------
OK  
---------------------------



RE: أين الخطأ في مشروعي - سعود - 16-08-19

يوجد خطأ بجملة الـInsert

RE: أين الخطأ في مشروعي - abarrak - 16-08-19

(16-08-19, 02:33 PM)سعود كتب : يوجد خطأ بجملة الـInsert

وين الخطأ

RE: أين الخطأ في مشروعي - سعود - 16-08-19

(16-08-19, 02:43 PM)abarrak كتب :
(16-08-19, 02:33 PM)سعود كتب : يوجد خطأ بجملة الـInsert

وين الخطأ

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