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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > أين الخطأ في مشروعي
نسخة كاملة : أين الخطأ في مشروعي
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2

abarrak

16-08-19, 08:12 AM
أين الخطأ في مشروعي





كود :
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

16-08-19, 11:56 AM
بالنسبة لكودك هنا  وبغض النظر عن ترتيبه ومكان واين باقي الكود الخاص بكائن الاتصال وغيرها يوجد فيه خطا هنا

كود :
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)

ابراهيم ايبو

16-08-19, 11:59 AM
السلام عليكم اخي الكريم
لديك في الحدول حقول رقمبة وانت تدخلها كنص قم بتحويل القيم عند الادخال كل حسب نوعه
اليك الكود بعد التعديل
كود :
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

16-08-19, 12:04 PM
اجل كنت قد عدلت المنشور واضفت نفس الملاحظة ووجدت الاخ ابراهيم قام بالتعليق على هذا ايضا
فقط ايضا استخدم الامر Trim لازالة الفراغات ، فالفراغات قد تحدث لك ادخال بيانات غير صحيحة وغير مرغوب فيها
فالمستخدمين غالبا يقومون بترك فراغات لادخالات الاسم وعند البحث عن ذلك الاسم لن تجده منظومتك ابدا لانها تعتبر الفراغ حرف
هذا من واقع التجربة مع سلوكيات المستخدمين

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

16-08-19, 01:37 PM
دون نسيان أساتذتي الأفاضل :
VALUSE إلى VALUE

ابراهيم ايبو

16-08-19, 01:46 PM
بارك الله فيك اخي عبد العزيز البسكري
كلمة (Valuse) يجب كتابتها هكذا (Values) خطأ كتابي
ساعدلها في الكود

abarrak

16-08-19, 02:30 PM
بارك الله فيكم بس لس فيه خطأ بعد التعديل و الخطأ نفس الرسالة قبل و بعد التعديل



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

سعود

16-08-19, 02:33 PM
يوجد خطأ بجملة الـInsert

abarrak

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

وين الخطأ

سعود

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

وين الخطأ

رسالة الخطأ تبين انه يوجد خطأ بجملة Insert
لكن لا اعرف لاني لم ارى الكود.
الصفحات : 1 2
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > أين الخطأ في مشروعي