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

نسخة كاملة : خطأ error " datatype mismatch in criteria expression"
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
قمت بعمل برنامج حجز للرحلات بالفيجوال بيسك 2012 و ريطته بقاعدة بيانات و اشتغل تمام لكن بعد فتر لا يعمل و يعطي خطأerror " datatype mismatch in criteria expression"
[attachment=17345]
[attachment=17344]
استاذ "طالب برمجه" تم ارفاق المشروع برجاء فتحه و معرفة الخطأ 
علما بأنه لا يفتح عند نقله من جهاز لآخر و لا عند فتحه بفيجوال بيسك باصدارات مختلفة 
ايضا كيف يمكنني تحويله الي برنامج تنفيذي exe
و جزاكم الله كل خير
PHP كود :
Dim sql As String =
    
"INSERT INTO " _
    
" [govschool] ( [dateres], [compname], [governorate], [suprvname], [cinemano], [musuemsno], [vistrsno], [freeno], [simulno], [gerono], [phone], [mobile], [orphansno], [note] ) " _
    
"      VALUES ( @dateres,  @compname,  @governorate,  @suprvname,  @cinemano,  @musuemsno,  @vistrsno,  @freeno,  @simulno,  @gerono,  @phone,  @mobile,  @orphansno,  @note  ) "
Dim cmd As New OleDbCommand(sqlcon)
cmd.Parameters.AddWithValue("@dateres"Dtpdateres.Value)
cmd.Parameters.AddWithValue("@compname"Txtcompname.Text)
cmd.Parameters.AddWithValue("@governorate"Txtgovernorate.Text)
cmd.Parameters.AddWithValue("@suprvname"Txtsuprvname.Text)
cmd.Parameters.AddWithValue("@cinemano"Txtcinemano.Text)
cmd.Parameters.AddWithValue("@musuemsno"Txtmusuemsno.Text)
cmd.Parameters.AddWithValue("@vistrsno"Txtvistrsno.Text)
cmd.Parameters.AddWithValue("@freeno"Txtfreeno.Text)
cmd.Parameters.AddWithValue("@simulno"Txtsimulno.Text)
cmd.Parameters.AddWithValue("@gerono"Txtgerono.Text)
cmd.Parameters.AddWithValue("@phone"Txtphone.Text)
cmd.Parameters.AddWithValue("@mobile"Txtmobile.Text)
cmd.Parameters.AddWithValue("@orphansno"Txtorphansno.Text)
cmd.Parameters.AddWithValue("@note"Txtnote.Text)

cmd.ExecuteNonQuery()
MsgBox("تم حفظ البيانات بنجاح"
(09-03-18, 07:33 PM)طالب برمجة كتب : [ -> ]
PHP كود :
Dim sql As String =
 
   "INSERT INTO " _
    
" [govschool] ( [dateres], [compname], [governorate], [suprvname], [cinemano], [musuemsno], [vistrsno], [freeno], [simulno], [gerono], [phone], [mobile], [orphansno], [note] ) " _
    
"      VALUES ( @dateres,  @compname,  @governorate,  @suprvname,  @cinemano,  @musuemsno,  @vistrsno,  @freeno,  @simulno,  @gerono,  @phone,  @mobile,  @orphansno,  @note  ) "
Dim cmd As New OleDbCommand(sqlcon)
cmd.Parameters.AddWithValue("@dateres"Dtpdateres.Value)
cmd.Parameters.AddWithValue("@compname"Txtcompname.Text)
cmd.Parameters.AddWithValue("@governorate"Txtgovernorate.Text)
cmd.Parameters.AddWithValue("@suprvname"Txtsuprvname.Text)
cmd.Parameters.AddWithValue("@cinemano"Txtcinemano.Text)
cmd.Parameters.AddWithValue("@musuemsno"Txtmusuemsno.Text)
cmd.Parameters.AddWithValue("@vistrsno"Txtvistrsno.Text)
cmd.Parameters.AddWithValue("@freeno"Txtfreeno.Text)
cmd.Parameters.AddWithValue("@simulno"Txtsimulno.Text)
cmd.Parameters.AddWithValue("@gerono"Txtgerono.Text)
cmd.Parameters.AddWithValue("@phone"Txtphone.Text)
cmd.Parameters.AddWithValue("@mobile"Txtmobile.Text)
cmd.Parameters.AddWithValue("@orphansno"Txtorphansno.Text)
cmd.Parameters.AddWithValue("@note"Txtnote.Text)

cmd.ExecuteNonQuery()
MsgBox("تم حفظ البيانات بنجاح"

أخي العزيز هذا كود الحفظ ؟ اي اضعه بدلا من كود الحفظ الموجود بزرار حفظ ؟
ايضا البرنامج عند اعادة بناءه يعطي الخطأ الآتي 
Severity Code Description Project File Line Suppression State

Error BC30002 Type 'Microsoft.VisualBasic.PowerPacks.Printing.PrintForm' is not defined. Reservation2 C:\Users\Mohamed Samy\Desktop\New folder\Reservation2\Reservation2\Govcomp.Designer.vb 651 Active

فما العمل ؟
مشكور لجهدك معي