تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
خطأ error " datatype mismatch in criteria expression"
#1
قمت بعمل برنامج حجز للرحلات بالفيجوال بيسك 2012 و ريطته بقاعدة بيانات و اشتغل تمام لكن بعد فتر لا يعمل و يعطي خطأerror " datatype mismatch in criteria expression"

.docx   أكواد برنامج حجز الرحلات للمدينة العلمية الاستكشافية.docx (الحجم : 695.66 ك ب / التحميلات : 17)
   


الملفات المرفقة
.rar   Reservation2.rar (الحجم : 4.35 م ب / التحميلات : 25)
الرد }}}
تم الشكر بواسطة:
#2
استاذ "طالب برمجه" تم ارفاق المشروع برجاء فتحه و معرفة الخطأ 
علما بأنه لا يفتح عند نقله من جهاز لآخر و لا عند فتحه بفيجوال بيسك باصدارات مختلفة 
ايضا كيف يمكنني تحويله الي برنامج تنفيذي exe
الرد }}}
تم الشكر بواسطة:
#3
و جزاكم الله كل خير
الرد }}}
تم الشكر بواسطة:
#4
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("تم حفظ البيانات بنجاح"
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#5
(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

فما العمل ؟
مشكور لجهدك معي
الرد }}}
تم الشكر بواسطة:



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


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