عرض السجلات في نموذج بطريقة عرض نماذج مستمرة Ado Recordset

alsihran · يونيو 1, 2022

السلام عليكم

كنت طرحت موضوع عرض السجلات في التقرير

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

في جدول مؤقت

اليوم اطرح نفس السؤال وطلب المساعده في عرض السجلات في نموذج بطريقة عرض نماذج مستمره

بدون جداول مؤقته

حاليا استخدم مربع القائمة لكن مع الاسف لايفي بالغرض لعدم التمكن من تنسيق القائمه واستخدام

التنسيق الشرطي

AdoForm.rar

**kanory** · يونيو 1, 2022

طيب ... ايش رأيك في هذا ...... اذا كان ينفعك ...

Me.RecordSource = "SELECT *FROM tbl_Employ IN 'C:\Users\ACER\Desktop\AdoForm\Adb_Dat.accdb'[access];"

alsihran · يونيو 2, 2022

13 ساعات مضت, kanory said:

طيب ... ايش رأيك في هذا ...... اذا كان ينفعك ...

ما فهمت المقصود

هذا يحدد مصدر السجلات

المطلوب عرضها بالنموذج بطريقة عرض نماذج مستمرة

**jjafferr** · يونيو 2, 2022

السلام عليكم 🙂

هذا الملف من مكتبتي وفيه طلبك ، ولكن للاسف وقتي لا يسمح لي بتعديل ملفك !!

image.png.9779e7c141e6df62f9509ad4c387f6ec.png

.

وهذه اكواد الطريقة:

Option Compare Database
Option Explicit

    
Private Sub Form_Open(Cancel As Integer)
On Error Resume Next

    Dim dbs As DAO.Database
    Dim rstDAO As DAO.Recordset
    Dim rstADO As ADODB.Recordset
    Dim fld As ADODB.Field
    Dim strSQL As String


    Set rstADO = New ADODB.Recordset
    With rstADO
        .Fields.Append "EmployeeID", adInteger, , adFldKeyColumn
        .Fields.Append "FirstName", adVarChar, 10, adFldMayBeNull
        .Fields.Append "LastName", adVarChar, 20, adFldMayBeNull
        .Fields.Append "Email", adVarChar, 64, adFldMayBeNull
        .Fields.Append "Include", adInteger, , adFldMayBeNull
        .Fields.Append "Selected", adBoolean, , adFldMayBeNull
        .CursorType = adOpenKeyset
        .CursorLocation = adUseClient
        .LockType = adLockPessimistic
        .Open
    End With
    
    Set dbs = CurrentDb
    strSQL = "SELECT EmployeeID, FirstName, LastName, Email " & _
             "FROM Employees ORDER BY LastName, FirstName"
    Set rstDAO = dbs.OpenRecordset(strSQL, dbOpenDynaset)

    Do Until rstDAO.EOF
        rstADO.AddNew
        rstADO.Fields(0) = rstDAO!EmployeeID
        rstADO.Fields(1) = rstDAO!FirstName
        rstADO.Fields(2) = rstDAO!LastName
        rstADO.Fields(3) = rstDAO!Email
        rstADO.Fields(4) = Null
        rstADO.Fields(5) = Null
        rstADO.Update
        
        rstDAO.MoveNext
    Loop

    Set Me.Recordset = rstADO
    Me.AllowAdditions = True

    Set rstDAO = Nothing
    Set dbs = Nothing

End Sub

Private Sub txtEmployeeID_DblClick(Cancel As Integer)

    Dim rst As New ADODB.Recordset
    
    Set rst = Me.Recordset.Clone
    
    With rst
        .AddNew
        .Fields(0) = 99
        .Fields(1) = "danny"
        .Fields(2) = "lesandrini"
        .Fields(3) = "d@l.org"
        .Fields(4) = 1
        .Fields(5) = True
        .Update
    End With
    
    Set Me.Recordset = rst

End Sub

جعفر

ADORST.mdb

alsihran · يونيو 2, 2022

41 دقائق مضت, jjafferr said:

هذا الملف من مكتبتي وفيه طلبك ، ولكن للاسف وقتي لا يسمح لي بتعديل ملفك !!

الله يعطيك العافية

سأحاول بأذن لله تطبيق الطريقة

لكن استفسار لوسمحت

42 دقائق مضت, jjafferr said:
Dim dbs As DAO.Database

بالنسبة لهذا المتغير

تم تعريفه على قاعدة البيانات الحالية

كيف سيكون في حالة الاتصال Sql Server

**د.كاف يار** · يونيو 2, 2022

تفضل جرب هذا التعديل بدون عمل جداول مؤقته

AdoForm.zip

alsihran · يونيو 2, 2022

22 دقائق مضت, د.كاف يار said:

فضل جرب هذا التعديل بدون عمل جداول مؤقته

الله يعطيك العافية

طريقتك تعتمد على إنشاء استعلام

وبالتالي حفظ جملة الاتصال بالسيرفر في الاستعلام

وهنا سيكون اسم المستخدم والرقم السري للسيرفر مكشوف

image.png.184d2d532e9dbd6a4b1b6d04672f1617.png

امام المتعبثين 😁

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

لان جملة الاتصال ستكون داخل محرر الاكود ولن يتم الوصول اليها بعد تحويل الملف الى accde

**kanory** · يونيو 2, 2022

5 ساعات مضت, alsihran said:

ما فهمت المقصود

هذا يحدد مصدر السجلات

المطلوب عرضها بالنموذج بطريقة عرض نماذج مستمرة

طيب الكود يقوم بالازم ....

ضعه في حدث عند تحميل النموذج ...

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

**kanory** · يونيو 2, 2022

تفضل مثالك بعد التعديل ..... وهذه صورة للنتيجة وبدون استعلام ظاهر ....

kan.rar

alsihran · يونيو 2, 2022

28 دقائق مضت, kanory said:

تفضل مثالك بعد التعديل ..... وهذه صورة للنتيجة وبدون استعلام ظاهر ....

الله يعطيك العافية

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

وهذا يعني ( أن الاتصال بالسيرفر سيبقى مفتوح الى ان يتم اغلاق النموذج )

image.png.30f8129c5e32fdd85a16c382d3076f31.png

والمطلوب :

استعلام يحضر البيانات ويغلق الاتصال

كما في طريقة الاستاذ جعفر

والاستاذ @د.كاف يار

alsihran · يونيو 3, 2022

قمت بالتعديل على كود الاستاذ @jjafferr

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next

    Dim dbs As ADODB.Connection
    Dim rstDAO As ADODB.Recordset
    Dim rstADO As ADODB.Recordset
    Dim fld As ADODB.Field
    Dim strSQL As String


    Set rstADO = New ADODB.Recordset
    With rstADO
        .Fields.Append "EmployeeID", adInteger, , adFldKeyColumn
        .Fields.Append "FirstName", adVarChar, 10, adFldMayBeNull
        .Fields.Append "LastName", adVarChar, 20, adFldMayBeNull
        .Fields.Append "Email", adVarChar, 64, adFldMayBeNull
        .Fields.Append "Include", adInteger, , adFldMayBeNull
        .Fields.Append "Selected", adBoolean, , adFldMayBeNull
        .CursorType = adOpenKeyset
        .CursorLocation = adUseClient
        .LockType = adLockPessimistic
        .Open
    End With
        Set dbs = CreateObject("ADODB.Connection")

dbs = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Shran\Desktop\AdoForm\Adb_Dat.accdb;Persist Security Info=False;"

'    Set dbs = CurrentDb
    strSQL = "SELECT EmployeeID, FirstName, LastName, Email " & _
             "FROM Employees ORDER BY LastName, FirstName"
    Set rstDAO = dbs.OpenRecordset(strSQL, dbOpenDynaset)

    Do Until rstDAO.EOF
        rstADO.AddNew
        rstADO.Fields(0) = rstDAO!EmployeeID
        rstADO.Fields(1) = rstDAO!FirstName
        rstADO.Fields(2) = rstDAO!LastName
        rstADO.Fields(3) = rstDAO!Email
        rstADO.Fields(4) = Null
        rstADO.Fields(5) = Null
        rstADO.Update
        
        rstDAO.MoveNext
    Loop

    Set Me.Recordset = rstADO
    Me.AllowAdditions = True

    Set rstDAO = Nothing
    Set dbs = Nothing

لكي يحضر البيانات من قاعدة بيانات خارجية ( مثال تقريبي لمحاكات السيرفر )

لكن اصبح البرنامج يعلق على ويظهر شاشة سوداء

وبعد تتبع الكود اثناء التنفيذ وجدته يستمر في عملية Loop بدون توقف

ما اعرف وين المشكلة ......؟

alsihran · يونيو 6, 2022

Up

رفع

**kanory** · يونيو 6, 2022

في 2‏/6‏/2022 at 15:27, alsihran said:

الله يعطيك العافية

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

وهذا يعني ( أن الاتصال بالسيرفر سيبقى مفتوح الى ان يتم اغلاق النموذج )

والمطلوب :

استعلام يحضر البيانات ويغلق الاتصال

طيب فكرة لك نفس طريقتي السابقة نحضر فيها البيانات لجدول ثم نقطع الاتصال .... فيكون مصدر بيانات النموذج من نفس الجدول ولي قاعدة البيانات الاصلية .....

alsihran · يونيو 6, 2022

2 ساعات مضت, kanory said:

طيب فكرة لك نفس طريقتي السابقة نحضر فيها البيانات لجدول ثم نقطع الاتصال .... فيكون مصدر بيانات النموذج من نفس الجدول ولي قاعدة البيانات الاصلية .....

شكرا لك على تفاعلك في الموضوع

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

في الحقيقة ما اعرف هل المطلوب ممكن مع Ado Recordset أم لا

بحثت في المواقع الاجنبية لكن ما وصلت لنتيجة كل الموجود نفس طريقة الاستاذ جعفر

يحضر البيانات من جدول في نفس قاعدة البيانات

الهدف من المطلوب المعرفة وزيادة المعلومات ☺️

لو احد الاساتذة يعطيني اجابة جازمه بأن المطلوب ممكن او غير ممكن

مع الشكر للجميع

تسجيل الدخول

عرض السجلات في نموذج بطريقة عرض نماذج مستمرة Ado Recordset

الردود الموصى بها

alsihran

kanory

alsihran

jjafferr

alsihran

د.كاف يار

alsihran

kanory

kanory

alsihran

alsihran

alsihran

kanory

alsihran

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information