تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
Data type mismatch in criteria expression.
#1
لو سمحتم انا عملت جملة insert into
وطلعتلي الرسالة دي
Data type mismatch in criteria expression
الكود
Dim cmd As New OleDbCommand("Insert Into Sales(sCode,sCustomer,sDile,sCash,sPostpone,sVisa,Bar,Items,iNum,sTG,sDis,sTS,sUser)values(@sCode,@sCustomer,@sDile,@sCash,@sPostpone,@sVisa,@Bar,@Items,@iNum,@sTG,@sDis,@sTS,@sUser)", connAccess2010)
        cmd.Parameters.Add("@sCode", OleDbType.Numeric).Value = Val(TextBox2.Text.Trim)
        cmd.Parameters.Add("@sCustomer", OleDbType.VarChar).Value = (Cn.Text)
        cmd.Parameters.Add("@sDile", OleDbType.VarChar).Value = (CheckBox5.Checked)
        cmd.Parameters.Add("@sCash", OleDbType.VarChar).Value = (CheckBox2.Checked)
        cmd.Parameters.Add("@sPostpone", OleDbType.VarChar).Value = (CheckBox1.Checked)
        cmd.Parameters.Add("@sVisa", OleDbType.VarChar).Value = (CheckBox3.Checked)
        cmd.Parameters.Add("@Bar", OleDbType.VarChar).Value = (TextBox9.Text)
        cmd.Parameters.Add("@Items", OleDbType.VarChar).Value = (TextBox3.Text)
        cmd.Parameters.Add("@iNum", OleDbType.Numeric).Value = Val(TextBox5.Text)
        cmd.Parameters.Add("@sTG", OleDbType.Numeric).Value = Val(TextBox4.Text)
        cmd.Parameters.Add("@sDis", OleDbType.Numeric).Value = Val(TextBox7.Text)
        cmd.Parameters.Add("@sTS", OleDbType.Numeric).Value = Val(TextBox8.Text)
        cmd.Parameters.Add("@sUser", OleDbType.Numeric).Value = Val(TextBox1.Text)
        connAccess2010.Open()
        cmd.ExecuteNonQuery()
        connAccess2010.Close()
الرد
تم الشكر بواسطة:
#2
معنى الرسالة عدم توافق بين انواع البيانات المرسلة من التطبيق و ادواته والوجهة.
كمثال:
كود :
cmd.Parameters.Add("@sVisa", OleDbType.VarChar).Value = (CheckBox3.Checked)
نوع بيانات العمود varchar وبالواجهة نوع (نعم/لا)  او (صح/خطا)

ما رايك باستخدام DataTable للاضافة والتعديل و الحذف والبحث؟
انظر للمرفقين.
أحد المثالين فيه انشاء ملف القاعدة وجدولها واعمدتها.
و الاخر مثال عادي وكلهن استخدام DataTable.




المثال الثاني اضفت له الان checkbox


الملفات المرفقة
.zip   AdressBook2018.zip (الحجم : 148.33 ك ب / التحميلات : 179)
.zip   ForSomeMember.zip (الحجم : 125.69 ك ب / التحميلات : 178)
الرد
#3
انا بشكر حضرتك جدا جدا جزاك الله كل خير
الرد
تم الشكر بواسطة: Amir_Alzubidy , asemshahen5
#4
مرحبا اخى

جرب هذا الاسلوب
PHP كود :
Dim cmd As New OleDbCommand(
 
   "Insert Into Sales(sCode,sCustomer,sDile,sCash,sPostpone,sVisa,Bar,Items,iNum,sTG,sDis,sTS,sUser) " 
    
"values(@sCode,@sCustomer,@sDile,@sCash,@sPostpone,@sVisa,@Bar,@Items,@iNum,@sTG,@sDis,@sTS,@sUser)"connAccess2010)
cmd.Parameters.AddWithValue("@sCode"Val(TextBox2.Text.Trim))
cmd.Parameters.AddWithValue("@sCustomer"Cn.Text)
cmd.Parameters.AddWithValue("@sDile"CheckBox5.Checked)
cmd.Parameters.AddWithValue("@sCash"CheckBox2.Checked)
cmd.Parameters.AddWithValue("@sPostpone"CheckBox1.Checked)
cmd.Parameters.AddWithValue("@sVisa"CheckBox3.Checked)
cmd.Parameters.AddWithValue("@Bar"TextBox9.Text)
cmd.Parameters.AddWithValue("@Items"TextBox3.Text)
cmd.Parameters.AddWithValue("@iNum"Val(TextBox5.Text))
cmd.Parameters.AddWithValue("@sTG"Val(TextBox4.Text))
cmd.Parameters.AddWithValue("@sDis"Val(TextBox7.Text))
cmd.Parameters.AddWithValue("@sTS"Val(TextBox8.Text))
cmd.Parameters.AddWithValue("@sUser"Val(TextBox1.Text))
If 
connAccess2010.State<>ConnectionState.Open Then connAccess2010.Open()
cmd.ExecuteNonQuery()
connAccess2010.Close() 
الرد
تم الشكر بواسطة: سعود , tryold , Amir_Alzubidy , Amir_Alzubidy , ahmedgamal , Rabeea Qbaha
#5
الشكر لله أولا ثم الشكر لكم جميعا Smile
الرد
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  Data Repeater Ahmed_Khalaf 0 829 28-08-14, 07:42 PM
آخر رد: Ahmed_Khalaf

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


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