المشاركات : 10
المواضيع 4
الإنتساب : Aug 2018
السمعة :
0
الشكر: 2
تم شكره 12 مرات في 7 مشاركات
11-08-18, 07:25 AM
عند اتمام ال 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
المشاركات : 25
المواضيع 0
الإنتساب : Aug 2018
السمعة :
4
الشكر: 74
تم شكره 61 مرات في 32 مشاركات
11-08-18, 07:37 AM
(آخر تعديل لهذه المشاركة : 11-08-18, 07:44 AM {2} بواسطة 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
المشاركات : 10
المواضيع 4
الإنتساب : Aug 2018
السمعة :
0
الشكر: 2
تم شكره 12 مرات في 7 مشاركات
(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
شكرا على رد حضرتك ..ولكن ايضا بتيجى نفس الرسالة عند اضافة المنتج
ممكن يكون اية تانى المشكلة فى هذا الكود؟؟
شكرا
المشاركات : 25
المواضيع 0
الإنتساب : Aug 2018
السمعة :
4
الشكر: 74
تم شكره 61 مرات في 32 مشاركات
ضع cmd.Parameters.Clear مباشرة بعد سطر cmd = New OleDbCommand
على افتراض ان
Label نص
و Qty رقم
و Price رقم
اذا استمرت المشكلة ضع المشروع
المشاركات : 10
المواضيع 4
الإنتساب : Aug 2018
السمعة :
0
الشكر: 2
تم شكره 12 مرات في 7 مشاركات
(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]
المشاركات : 25
المواضيع 0
الإنتساب : Aug 2018
السمعة :
4
الشكر: 74
تم شكره 61 مرات في 32 مشاركات
لم أجدك استخدمت الكود الذي اعطيتك إياه في أول رد لي
المشاركات : 10
المواضيع 4
الإنتساب : Aug 2018
السمعة :
0
الشكر: 2
تم شكره 12 مرات في 7 مشاركات
(11-08-18, 08:51 AM)Null كتب : لم أجدك استخدمت الكود الذي اعطيتك إياه في أول رد لي
بالفعل تم استخدامة .. ولكن لان المشكلة مازلت مستمرة فضلت اعرض عليك الكود الاصلى الذى قمت انا بكتابتة
المشاركات : 25
المواضيع 0
الإنتساب : Aug 2018
السمعة :
4
الشكر: 74
تم شكره 61 مرات في 32 مشاركات
11-08-18, 09:19 AM
(آخر تعديل لهذه المشاركة : 11-08-18, 09:20 AM {2} بواسطة Null.)
بعد مراجعة قاعدة البيانات اتضح ان
Label رقم ومن اسمه يفترض أنه نص
وQty نص ومن اسمه يفترض انه رقم
راجع انواع بيانات الاعمدة في قاعدة البيانات
مع استخدام الكود الذي اعطيتك في ردي الاول كاملا
المشاركات : 3,815
المواضيع 36
الإنتساب : Mar 2014
السمعة :
724
الشكر: 7238
تم شكره 6709 مرات في 3265 مشاركات
تم العديل على السورس المرفق
حيث تم التعديل على مسار الاتصال بقاعدة البيانات ليتم وضع قاعدة البيانات بجانب البرنامج
من خلال الملف ( App.config ) كما موضح فى الصورة التالية
كما تم التعديل على قاعدة البيانات لاتمام حل مشكلة الرسالة كما هو موضح فى الصورة التالية
وما تم التعديل فى قاعدة البيانات هو استبدال Data Type لكل من
Label - Qty
عند الانتهاء من المشروع لا تنسي ان تقوم بنسخ الملفات كما هو مرفق فى مجلد البرنامج للاختبار
حيث ان الملف ORDERS_MANAGE.exe.config هو عبارة عن App.config
ويجب نسخه مع البرنامج بالنهاية بسبب اسلوب الاتصال بقاعدة البيانات حيث يمكنك تحريره فى اى وقت
وتغيير مسار قاعدة البيانات من خلاله
مرفق السورس بعد التعديل + برنامج اختبار
تحياتى لك
وتمنياتى لك التوفيق
المشاركات : 10
المواضيع 4
الإنتساب : Aug 2018
السمعة :
0
الشكر: 2
تم شكره 12 مرات في 7 مشاركات
(11-08-18, 09:19 AM)Null كتب : بعد مراجعة قاعدة البيانات اتضح ان
Label رقم ومن اسمه يفترض أنه نص
وQty نص ومن اسمه يفترض انه رقم
راجع انواع بيانات الاعمدة في قاعدة البيانات
مع استخدام الكود الذي اعطيتك في ردي الاول كاملا
بالفعل .. بجد ربنا يبارك لحضرتك ويكرمك
بعد مراجعة كلام حضرتك وتنفيذ الكود تم الكود بنجاح بفضل الله ولفضلك
شكراا جدا
|