[abarrak]

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

كود :

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

[viv]

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

كود :

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)

[ابراهيم ايبو]

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

كود :

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

[viv]

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

[عبد العزيز البسكري]

دون نسيان أساتذتي الأفاضل :

VALUSE إلى VALUE

[ابراهيم ايبو]

بارك الله فيك اخي عبد العزيز البسكري

كلمة (Valuse) يجب كتابتها هكذا (Values) خطأ كتابي

ساعدلها في الكود

[abarrak]

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

---------------------------

Stock System

---------------------------

Syntax error in INSERT INTO statement

---------------------------

OK  

---------------------------

[سعود]

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

[abarrak]

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

وين الخطأ

[سعود]

(16-08-19, 02:43 PM)abarrak كتب :

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

وين الخطأ

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