أقوم بعمل برنامج VB6 و أرجوكم ما الخطأ فى هذا الكود؟
Dim db As DAO.Database
Dim rst2 As DAO.Recordset
Dim q2 As QueryDef
Set db = OpenDatabase("F:\vb98\SCHOOL.mdb")
Set q2 = db.CreateQueryDef("", "SELECT STUDENT.ARABDEG , STUDENT.ENGDEG FROM STUDENT ORDER BY STUDENT.ARABDEG;")
Set rst2 = q2.OpenRecordset(dbOpenDynaset :rolleyes: )
كلما قمت بعمل RUN تظهر رسالة خطأ تقول(Compile error: User- defined type not defined )
ويشير الى أول جملة منها
بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــة ،،
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
شكراً لك اخي الكريم
اقتباسأقوم بعمل برنامج VB6 و أرجوكم ما الخطأ فى هذا الكود؟
وعليكم السلام ورحمة الله وبركاته
الرسالة تعني إنه مفيش نوع بيانات اسمه DAO.Database
جرب تحط بدل DAO.Database كلمة DoDo وهتطلعلك نفس الرسالة , يعني نوع البيانات اللي انت حاطه غير مصرح به
المفروض لو عاوز تحفظ البيانات تكتب كده :
Dim soso As String soso = dao.database
بعدين أخي ضع الكود داخل تنسيقه الصحيح , يعني بدل :
Dim db As DAO.Database
Dim rst2 As DAO.Recordset
Dim q2 As QueryDef
Set db = OpenDatabase("F:\vb98\SCHOOL.mdb")
Set q2 = db.CreateQueryDef("", "SELECT STUDENT.ARABDEG , STUDENT.ENGDEG FROM STUDENT ORDER BY STUDENT.ARABDEG;")
Set rst2 = q2.OpenRecordset(dbOpenDynaset )
اكتب :
Dim db As DAO.Database
Dim rst2 As DAO.Recordset
Dim q2 As QueryDef
Set db = OpenDatabase("F:\vb98\SCHOOL.mdb")
Set q2 = db.CreateQueryDef("", "SELECT STUDENT.ARABDEG , STUDENT.ENGDEG FROM STUDENT ORDER BY STUDENT.ARABDEG;")
Set rst2 = q2.OpenRecordset(dbOpenDynaset)اقتباس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
شكرآ أخى العزيز
ولكن أوضح لك نقطتين
أولآ: أنا أعلم أن هناك نوعان من البيانات (dao , ado)
أنا أتعامل مع dao وهذا الكود أنا قد نقلته من برنامج قديم لى
ويعمل سليمآ دون اظهار هذه الرسالة
ثانيآ: وضع الكود داخل تنسيقه الصحيح
فعلآ الكود أنا واضعه فى البرنامج بهذا التنسيق الصحيح الذى ذكرته فى رسالتك
ولكنى حين نسخته من البرنامج copy ووضعته هنا فى رسالتى ظهر بهذه الصورة الملخبطة
(ولعلمك هذه المشكلة تواجهنى دائمآ مع كل رسالة أكتبها فى المنتدى)
وياليتك تفهمنى كيف أتخلص منها؟
وعليكم السلام ورحمة الله وبركاته
بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــة ،،
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
شكراً لك اخي الكريم
لحل المشكلة يجب اضافة المكتبة DAO للبرنامج عن طريق
PRoject --> Referecnes
ثم تبحث عن Microsoft DAO 2.x
رقم النسخة يختلف من جهاز الى اخر وفد تجد عدة نسخ فاي واحدة تفي بالغرض
ألف ألف شكر يا أستاذى العزيز
فعلآ انتهت المشكلة واشتغل البرنامج
يبقى الآن فقط التعليق الذى ذكره الأخ ALAA VB
بخصوص الصورة الملخبطة التى تظهر بها أى رسالة أكتبها فى المنتدى
بعد نسخها copy من أى برنامج وعمل PASTE لها
وياليتك تفهمنى كيف أتخلص منها؟
بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــة ،،
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
شكراً لك اخي الكريم
تستطيع أخي تنسيق الكود
وذلك عن طريق
تحديد الكود بعد لصقه أو كتابته في مربع تحرير أظافة رد (الوضع المتطور وليس الرد السريع) ثم الظغط على زر كود
تحياتي أخوك الواقعي
Dim db As DAO.Database
Dim rst2 As DAO.Recordset
Dim q2 As QueryDef
Set db = OpenDatabase("F:\vb98\SCHOOL.mdb")شكرآ يا أخى
ولكن هذا ما حدث بعد أن لصقت الكود PASTE ثم حددته ثم ظغطت على زر كود (الأيكونة الموجودة على اليسار أسفل كلمة (الخط)
بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــة ،،
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
شكراً لك اخي الكريم
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…