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

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

عندى مشكلة واريد حلها - mostafa hasanein - 11-08-18

عند اتمام ال 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


RE: عندى مشكلة واريد حلها - Null - 11-08-18

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


RE: عندى مشكلة واريد حلها - mostafa hasanein - 11-08-18

(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

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

شكرا

RE: عندى مشكلة واريد حلها - Null - 11-08-18

ضع cmd.Parameters.Clear مباشرة بعد سطر cmd = New OleDbCommand

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

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

RE: عندى مشكلة واريد حلها - mostafa hasanein - 11-08-18

(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]

RE: عندى مشكلة واريد حلها - Null - 11-08-18

لم أجدك استخدمت الكود الذي اعطيتك إياه في أول رد لي

RE: عندى مشكلة واريد حلها - mostafa hasanein - 11-08-18

(11-08-18, 08:51 AM)Null كتب : لم أجدك استخدمت الكود الذي اعطيتك إياه في أول رد لي

بالفعل تم استخدامة .. ولكن لان المشكلة مازلت مستمرة فضلت اعرض عليك الكود الاصلى الذى قمت انا بكتابتة

RE: عندى مشكلة واريد حلها - Null - 11-08-18

بعد مراجعة قاعدة البيانات اتضح ان
Label رقم ومن اسمه يفترض أنه نص
وQty نص ومن اسمه يفترض انه رقم

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

RE: عندى مشكلة واريد حلها - elgokr - 11-08-18

تم العديل على السورس المرفق

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

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

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

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

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

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


RE: عندى مشكلة واريد حلها - mostafa hasanein - 11-08-18

(11-08-18, 09:19 AM)Null كتب : بعد مراجعة قاعدة البيانات اتضح ان
Label رقم ومن اسمه يفترض أنه نص
وQty نص ومن اسمه يفترض انه رقم

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

شكراا جدا