المشاركات : 17
المواضيع 5
الإنتساب : Feb 2018
السمعة :
1
الشكر: 0
تم شكره 14 مرات في 4 مشاركات
08-03-18, 09:43 PM
(آخر تعديل لهذه المشاركة : 09-03-18, 01:16 PM {2} بواسطة Mohamed Samy21 .)
قمت بعمل برنامج حجز للرحلات بالفيجوال بيسك 2012 و ريطته بقاعدة بيانات و اشتغل تمام لكن بعد فتر لا يعمل و يعطي خطأerror " datatype mismatch in criteria expression"
أكواد برنامج حجز الرحلات للمدينة العلمية الاستكشافية.docx (الحجم : 695.66 ك ب / التحميلات : 17)
الملفات المرفقة
Reservation2.rar (الحجم : 4.35 م ب / التحميلات : 25)
المشاركات : 17
المواضيع 5
الإنتساب : Feb 2018
السمعة :
1
الشكر: 0
تم شكره 14 مرات في 4 مشاركات
استاذ "طالب برمجه" تم ارفاق المشروع برجاء فتحه و معرفة الخطأ
علما بأنه لا يفتح عند نقله من جهاز لآخر و لا عند فتحه بفيجوال بيسك باصدارات مختلفة
ايضا كيف يمكنني تحويله الي برنامج تنفيذي exe
المشاركات : 17
المواضيع 5
الإنتساب : Feb 2018
السمعة :
1
الشكر: 0
تم شكره 14 مرات في 4 مشاركات
المشاركات : 400
المواضيع 0
الإنتساب : Dec 2017
السمعة :
69
الشكر: 46
تم شكره 517 مرات في 325 مشاركات
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 ( "تم حفظ البيانات بنجاح" )
المشاركات : 17
المواضيع 5
الإنتساب : Feb 2018
السمعة :
1
الشكر: 0
تم شكره 14 مرات في 4 مشاركات
(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
فما العمل ؟
مشكور لجهدك معي