خطأ error " datatype mismatch in criteria expression" - Mohamed Samy21 - 08-03-18
قمت بعمل برنامج حجز للرحلات بالفيجوال بيسك 2012 و ريطته بقاعدة بيانات و اشتغل تمام لكن بعد فتر لا يعمل و يعطي خطأerror " datatype mismatch in criteria expression"
[attachment=17345]
[attachment=17344]
RE: خطأ error " datatype mismatch in criteria expression" - Mohamed Samy21 - 09-03-18
استاذ "طالب برمجه" تم ارفاق المشروع برجاء فتحه و معرفة الخطأ
علما بأنه لا يفتح عند نقله من جهاز لآخر و لا عند فتحه بفيجوال بيسك باصدارات مختلفة
ايضا كيف يمكنني تحويله الي برنامج تنفيذي exe
RE: خطأ error " datatype mismatch in criteria expression" - Mohamed Samy21 - 09-03-18
و جزاكم الله كل خير
RE: خطأ error " datatype mismatch in criteria expression" - طالب برمجة - 09-03-18
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(sql, con) 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("تم حفظ البيانات بنجاح")
RE: خطأ error " datatype mismatch in criteria expression" - Mohamed Samy21 - 09-03-18
(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(sql, con) 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
فما العمل ؟
مشكور لجهدك معي
|