الكود لا يعمل ما السبب؟ (عنوان معدل)

[bekhet2003]

الكود ده فيه خطا مش عارف اوصله  اوجو المساعده  عايز بيانات الجول في القاعده الثانيه يظهر في رساله  وهذا المثال برجاء الافاده

hh.rar

[أبو عبدالله الحلوانى]

تفضل يا أستاذ ... أعذرنى فلم أستطع فهم معنى اسم حضرتك الأجنبى -- طبعا لمستواى المتقدم باللغة 

وعموما لو ساعدتنا بتعريب مسمى حضرتك لتحسن منادتنا لك بما تحب لكنا من الشاكرين ...

آسف كنت سأنسى : المرفق بعد التعدل لعله يكون المطلوب .

hh.rar

[jjafferr]

السلام عليكم

 

وهذه طريقة اخرى:

Private Sub cmd_another_DB_Click()

    Dim rst As dao.Recordset
    Dim db As dao.Database
    
    Set db = OpenDatabase(Application.CurrentProject.Path & "\rr.mdb")
    Set rst = db.OpenRecordset("Select * From emplyee")
    rst.MoveLast:  rst.MoveFirst
    RC = rst.RecordCount
    
    For i = 1 To RC
    
        MsgBox rst!satff_name
    
    rst.MoveNext
    Next i
    
    rst.Close: Set rst = Nothing
    
End Sub

 

جعفر

تم تعديل ديسمبر 24, 2015 بواسطه jjafferr

[bekhet2003]

اخي في الله  انا اسمي احمد  بارك الله فيك ولكن يظهر نفس الخطا  تظهر رساله  مكتوب فيها داله slecet ,  وما اريده هو عرض محتويات الجول في رساله

 

 اخي في الله جعفر  ممكن تكتب توضح لكل ما يخص كل سطر في الكود بارك الله فيك

 

[jjafferr]

تفضل أخي أحمد ، الكود بالشرح:

Private Sub cmd_another_DB_Click()

    'نشير الى المرجع الصحيح
    'فعندنا مرجع
    'ADO ومرجع DAO
    'وهنا سنستخدم المرجع الاخير ، DAO
    Dim rst As dao.Recordset
    Dim db As dao.Database
    
    'اختار قاعدة البيانات ، وفي حالتنا فهي خارجية
    Set db = OpenDatabase(Application.CurrentProject.Path & "\rr.mdb")
    'الآن نربط الكود بقاعدة البيانات اعلاه ، بالجدول المحدد
    'ونستطيع ان نعطي امر للتصفية وامر للفرز كذلك
    Set rst = db.OpenRecordset("Select * From emplyee")
    'لكي يتم قراءة الجدول اعلاه بطريقة كاملة ، يجب ذهاب المؤشر الى آخر الجدول ثم الرجوع الى اوله
    rst.MoveLast:  rst.MoveFirst
    'عدد سجلات الجدول
    RC = rst.RecordCount
    
    'إقرأ السجلات من اول سجل الى آخر سجل
    For i = 1 To RC
            
        'اطبع قيمة السجلsatff_name
        MsgBox rst!satff_name
    
        'انتقل الى السجل التالي
        rst.MoveNext
        
    'واصل اللف حول السجلات
    Next i
    
    'اغلق قاعدة لبيانات ، وازلها من الذاكرة
    rst.Close: Set rst = Nothing
    
End Sub

 

جعفر

[bekhet2003]

مشكور اخي جعفر

 

[jjafferr]

[أبو عبدالله الحلوانى]

اعذرنى أستاذ احمد فقد فهمت أن الخطأ بمسار القاعدة الخارجية فقط ولم أستطع فهم الخطأ الذى كنت تعنيه أولا 

ولكن ما شاء الله عليك أستاذ جعفر جبتها من أول مرة  

[jjafferr]

سؤال الاخ احمد كان كلمات متقاطعة ، فحاولت احلها من الكود 

ولما كود ADO ما وصلني مكان ، التجأت الى DAO 

بس ياريت تكمل الكود ، لأني اعتقد بأن الاخ أحمد عنده اسئلة لاحقه لسؤاله الاصلي ، وكودك حيكون اول خطوة للجواب التالي 

 

جعفر