تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عندى مشكلة واريد حلها
#1
Photo 
عند اتمام ال run واضافة منتج جديد تظهر لى هذة الرسالة


data type mismatch in criteria expression

استخدم فيجوال بيسك 2012 واكسس 2010

اريد حل لهذة المشكلة بالله عليكم ودة الكود 
كود :
Public Class FRM_ADD_PRODUCTS

   Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.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 = txtname.Text

           cmd.Parameters.Add(New OleDbParameter("@Qty", OleDbType.Integer)).Value = txtqty.Text

           cmd.Parameters.Add(New OleDbParameter("@Price", OleDbType.Currency)).Value = txtprice.Text

           con.Open()

           cmd.ExecuteNonQuery()


           MsgBox("تمت الاضافة بنجاح", MsgBoxStyle.Information, "الاضافة")
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
       con.Close()
   End Sub
End Class
الرد
تم الشكر بواسطة:
#2
كود :
Public Class FRM_ADD_PRODUCTS

   Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click


       Try

           cmd = New OleDbCommand("INSERT INTO TBL_PRODUCTS (Label, Qty, Price) values (@Label, @Qty, @Price)", con)

           cmd.Parameters.AddWithValue("@Label", txtname.Text.Trim)

           cmd.Parameters.AddWithValue("@Qty", Val(txtqty.Text))

           cmd.Parameters.AddWithValue("@Price", Val(txtprice.Text))

           If con.State <> ConnectionState.Open Then con.Open()

           cmd.ExecuteNonQuery()


           MsgBox("تمت الاضافة بنجاح", MsgBoxStyle.Information, "الاضافة")
       Catch ex As Exception
           MsgBox(ex.Message)
       Finally
           con.Close()
       End Try
   End Sub
End Class
الرد
تم الشكر بواسطة: elgokr
#3
(11-08-18, 07:37 AM)Null كتب :
كود :
Public Class FRM_ADD_PRODUCTS

   Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click


       Try

           cmd = New OleDbCommand("INSERT INTO TBL_PRODUCTS (Label, Qty, Price) values (@Label, @Qty, @Price)", con)

           cmd.Parameters.AddWithValue("@Label", txtname.Text.Trim)

           cmd.Parameters.AddWithValue("@Qty", Val(txtqty.Text))

           cmd.Parameters.AddWithValue("@Price", Val(txtprice.Text))

           If con.State <> ConnectionState.Open Then con.Open()

           cmd.ExecuteNonQuery()


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

شكرا على رد حضرتك ..ولكن ايضا بتيجى نفس الرسالة عند اضافة المنتج 
ممكن يكون اية تانى المشكلة فى هذا الكود؟؟

شكرا
الرد
تم الشكر بواسطة: elgokr
#4
ضع cmd.Parameters.Clear مباشرة بعد سطر cmd = New OleDbCommand

على افتراض ان
Label نص
و Qty رقم
و Price رقم

اذا استمرت المشكلة ضع المشروع
الرد
تم الشكر بواسطة: elgokr , elgokr
#5
(11-08-18, 08:21 AM)Null كتب : ضع cmd.Parameters.Clear مباشرة بعد سطر cmd = New OleDbCommand

على افتراض ان
Label نص
و Qty رقم
و Price رقم

اذا استمرت المشكلة ضع المشروع

[url=https://up.top4top.net/downloadf-953kttx91-rar.html]دة رابط المشروع + قاعدة البيانات[/url]
الرد
تم الشكر بواسطة: elgokr
#6
لم أجدك استخدمت الكود الذي اعطيتك إياه في أول رد لي
الرد
تم الشكر بواسطة: elgokr
#7
(11-08-18, 08:51 AM)Null كتب : لم أجدك استخدمت الكود الذي اعطيتك إياه في أول رد لي

بالفعل تم استخدامة .. ولكن لان المشكلة مازلت مستمرة فضلت اعرض عليك الكود الاصلى الذى قمت انا بكتابتة
الرد
تم الشكر بواسطة: elgokr
#8
بعد مراجعة قاعدة البيانات اتضح ان
Label رقم ومن اسمه يفترض أنه نص
وQty نص ومن اسمه يفترض انه رقم

راجع انواع بيانات الاعمدة في قاعدة البيانات

مع استخدام الكود الذي اعطيتك في ردي الاول كاملا
الرد
تم الشكر بواسطة: elgokr , mostafa hasanein
#9
تم العديل على السورس المرفق

حيث تم التعديل على مسار الاتصال بقاعدة البيانات ليتم وضع قاعدة البيانات بجانب البرنامج
من خلال الملف ( App.config ) كما موضح فى الصورة التالية

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

وما تم التعديل فى قاعدة البيانات هو استبدال Data Type لكل من
Label - Qty

عند الانتهاء من المشروع لا تنسي ان تقوم بنسخ الملفات كما هو مرفق فى مجلد البرنامج للاختبار
حيث ان الملف ORDERS_MANAGE.exe.config هو عبارة عن App.config
ويجب نسخه مع البرنامج بالنهاية بسبب اسلوب الاتصال بقاعدة البيانات حيث يمكنك تحريره فى اى وقت
وتغيير مسار قاعدة البيانات من خلاله

مرفق السورس بعد التعديل + برنامج اختبار

تحياتى لك
وتمنياتى لك التوفيق


الملفات المرفقة
.zip   Pro Exe.zip (الحجم : 109.08 ك ب / التحميلات : 11)
.zip   ORDERS_MANAGE.zip (الحجم : 171.44 ك ب / التحميلات : 20)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة: %Eman% , %Eman% , mostafa hasanein , Null , Null
#10
(11-08-18, 09:19 AM)Null كتب : بعد مراجعة قاعدة البيانات اتضح ان
Label رقم ومن اسمه يفترض أنه نص
وQty نص ومن اسمه يفترض انه رقم

راجع انواع بيانات الاعمدة في قاعدة البيانات

مع استخدام الكود الذي اعطيتك في ردي الاول كاملا
بالفعل .. بجد ربنا يبارك لحضرتك ويكرمك
بعد مراجعة كلام حضرتك وتنفيذ الكود تم الكود بنجاح بفضل الله ولفضلك

شكراا جدا
الرد
تم الشكر بواسطة: elgokr , %Eman% , %Eman% , Null , Null


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند رفع قعدة البينات فى الفيجول بيسك Mohamed Magdy 1 18 منذ 32 دقيقة مضت
آخر رد: ابراهيم ايبو
  [سؤال] استفسار عن مشكلة في كود لايجاد العملاء الغير موجودين بجدول الدفع ahmedmansour 11 352 منذ 39 دقيقة مضت
آخر رد: ahmedmansour
  مشكلة فى اضافة حقول جديدة فى قاعدة البيانات و ربطها بالفيجوال استوديو nabil.1710 1 34 منذ 10 ساعة مضت
آخر رد: nabil.1710
  مشكلة داخل البوتن Mohamed Magdy 5 42 أمس, 10:04 PM
آخر رد: XBOOBX
  مشكلة فى التعديل salah mansour 7 109 15-10-18, 02:39 PM
آخر رد: فراس محي
  [VB.NET] مشكلة في استخراج روابط هذه الصفحة بال HtmlAgilityPack mervandzz 2 62 13-10-18, 03:53 PM
آخر رد: mervandzz
  عملت برنامج حظر مواقع واريد حذفها مرة أخرى ابو روضة 6 130 12-10-18, 05:49 AM
آخر رد: ابو روضة
  مشكلة فى اختفاء فورم salah mansour 0 44 12-10-18, 01:47 AM
آخر رد: salah mansour
  [VB.NET] مشكلة بكود التحديث لقاعدة البيانات محمد اسماعيل 4 99 11-10-18, 06:45 AM
آخر رد: محمد اسماعيل
  مشكلة فى تشغيل قارئ من بين جميع القراء ابو روضة 10 236 10-10-18, 12:00 AM
آخر رد: AymanRamadanSaad

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم