الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة فى تنفيذ استعلام قاعدة بيانات ADO

مغلق
بدأه fajauk2001 في 31 مايو 2007 · 2 رد · 507 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم و رحمة الله و بركاته

أشكر كل الأخوة القائمين على هذا المنتدى الرائع بما يحوي من مواضيع قيمة ..

و بعد ...

أريد أن أعرف ما الخلل في هذا الكود :

'..................................................................

If TempRS.State = adStateOpen Then TempRS.Close

TempRS.Open " Select * From tblHolidaysDetails Where ID = '" & iID & "'" & _

"AND StartDate <= " & CDate(Format(Now, "dd/mm/yyyy")) & "AND" & _

" EndDate >= " & CDate(Format(Now, "dd/mm/yyyy")), CN, adOpenStatic, adLockPessimistic

'......................................................................

و عند تنفيذ البرنامج تظهر الرسالة التالية :

'........................................

( data type mismatch in critria expression )

'....................................................

و لم أجد لهذا الخطأ حلاً منذو أيام ...

مع العلم هذا الكود عبارة عن مقارنة بين تاريخين تاريخ بداية و نهاية و إضهار رسالة تنبيه بنتهاء المدة ...

و أرجو أن أجد جواباً لديكم ...

و الله و لي التوفيق ...

و السلام عليكم و رحمة الله و بركاته

#2

ما يمشى الكود ده ؟

Private Sub Command1_Click()
	If Date <> "01/16/1993" Then MsgBox "Time Over ..Please Call 0000000 To Buy The App.", vbInformation, "Time Over"
End Sub
اقتباس
If A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut

Albert Einstein

مدخل إلى برمجة وتصميم الألعاب : كيف أبدأ ؟

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…