مطلوب مثال لتوضيح ادراج سجلات جدول في نموذج عن طريق ADODB.Recordset

[alsihran]

السلام عليكم 

ابحث عن مثال لادراج سجلات جدول في نموذج مستمر عن طريق ADODB.Recordset

مع امكانية اضافة وتحديث وحذف سجلات 

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

ان شاء الله يكون الطلب واضح

[د.كاف يار]

تفضل هذا المثال اخي الكريم

MyImage.accdb

[alsihran]

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

تفضل هذا المثال اخي الكريم

أشكرك استاذ حسين على ردك واجابتك 

الذي اريده احضار البيانات الى نموذج ليس له مصدر بيانات

عن طريق  ADO.Recordset    وليس DAO.Recordset 

مع امكانية التعديل على السجلات أو الاضافة وارسالها للجدول مرة أخرى 

شاكر ومقدر لك 

[د.كاف يار]

6 دقائق مضت, alsihran said:

أشكرك استاذ حسين على ردك واجابتك 

الذي اريده احضار البيانات الى نموذج ليس له مصدر بيانات

عن طريق  ADO.Recordset    وليس DAO.Recordset 

مع امكانية التعديل على السجلات أو الاضافة وارسالها للجدول مرة أخرى 

شاكر ومقدر لك 

بسيطه اخي الكريم استخدم الكود التالي

 

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0" ' اصدار قاعدة البيانات
conn.Open "مسار قاعدة البيانات"

set rs=Server.CreateObject("ADODB.recordset")

Dim MyData as string

MyData=" اسم جدول مصدر البيانات"

rs.Open "Select * from " & MyData , conn

for each x in rs.fields
  MsgBox rs.Fields("FieldsName")
next

 

[alsihran]

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

بسيطه اخي الكريم استخدم الكود التالي

فشلت في تطبيق الكود لو أمكنك استاذي التطبيق على المثال الذي وضعته

[alsihran]

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

سيطه اخي الكريم استخدم الكود التالي

طبقت الكود ونجح في الاتصال لكن المشكلة انه لايجلب سوى السجل الاول فقط

    Set conn = CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.ACE.OLEDB.12.0" ' ÇÕÏÇÑ ÞÇÚÏÉ ÇáÈíÇäÇÊ
conn.Open "Data Source = C:\Users\H\Desktop\FRm_Refresh.accdb"

Set rs = CreateObject("ADODB.recordset")

Dim MyData As String

MyData = "tblchfit"

rs.Open "Select * from " & MyData, conn

For Each x In rs.Fields
  Me!ImagesNewTb![Image Path] = rs.Fields("Edate")
Next

 

[د.كاف يار]

تفضل هذا التعديل اخي الكريم

On Error Resume Next
Set conn = CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.ACE.OLEDB.12.0" 
conn.Open "Data Source = C:\Users\H\Desktop\FRm_Refresh.accdb"

Set rs = CreateObject("ADODB.recordset")

Dim MyData As String

MyData = "tblchfit"

rs.Open "Select * from " & MyData, conn

If Not rs.BOF And Not rs.EOF Then
        rs.MoveFirst                
        While (Not rs.EOF)
         Me!ImagesNewTb![Image Path] = rs.Fields("Edate")
         DoCmd.GoToRecord , , acNext
            rs.MoveNext
        Wend
    End If
    rs.Close
    Set rs = Nothing

 

تم تعديل نوفمبر 5, 2020 بواسطه د.كاف يار
تم اضافة DoCmd.GoToRecord , , acNext

[alsihran]

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

تفضل هذا التعديل اخي الكريم

لم يعمل الكود استاذي 

واذا قمت بازالة On Error Resume Next

تظهر رسالة الخطأ التالية 

[د.كاف يار]

6 دقائق مضت, alsihran said:

لم يعمل الكود استاذي 

واذا قمت بازالة On Error Resume Next

تظهر رسالة الخطأ التالية 

اخي الكريم لا تزيل On Error Resume Next

الخطأ لأنه انتهت السجلات ارجع و ضيف الأمر On Error Resume Next و راح يعمل معاك 

[alsihran]

 

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

الخطأ لأنه انتهت السجلات ارجع و ضيف الأمر On Error Resume Next و راح يعمل معاك 

اذا ارجعته نفس الشي لا يتم احضار اي سجل الى النموذج

 

[د.كاف يار]

تم تطبيق المثال اخي الكريم

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

Desktop.zip

[alsihran]

منذ ساعه, د.كاف يار said:

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

الله يعطيك العافية استاذ / حسين 

انظر الان للمرفق  بعد ما قمت بإزالة مصدر البيانات للنموذج الفرعي 

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

مصدر للسجل في النموذج الفرعي 

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

اعذرني ازعجتك معي لاني على ما يبدو لم اوصل فكرتي وما اريده بشكل واضح 

 

Desktop1.rar

[د.كاف يار]

اخي الكريم 

في هذه الحياة ليس كل ما يتمناه المرء يدركه

لكن تستطيع ان تدرك ما تتمنى بإسلوب غير مباشر

في هذا التعديل لن نقوم بالاستغناء عنصر مصدر السجلات الفرعية فهي أداة لحفظ البيانات الواردة من القاعدة الأخرى

لكن في نفس الوقت وضعت لك ازرار لحفظ التعديلات من القاعدة الاساسية الى القاعدة الفرعية

Desktop1.zip

[alsihran]

3 ساعات مضت, د.كاف يار said:

في هذه الحياة ليس كل ما يتمناه المرء يدركه

صحيح استاذ حسين 

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

الموضوع الاخر على هذا الرابط    هنا         ولم اجد  له حل حتى الان 

ففكرت بطريقة التعامل مع النموذج كما يتم التعامل معه في الفجول بيسك vb.net 

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

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

لذى ان كان يمكن تنفيذ هذا الطلب ارجو المساعده 

شكر لك وتقبل تحياتي 

 

[د.كاف يار]

اخي الكريم لم افهم طلبك

ارجوا ان تضوح ماهو المطلوب و ما الهدف منه

حسب فهمي فهو جدول للورديات

- عند ادخال موظف في الوردية رقم 1 لا يظهر اسمه في باقي الورديات  ؟؟ هل هذا صحيح

[alsihran]

2 ساعات مضت, د.كاف يار said:

- عند ادخال موظف في الوردية رقم 1 لا يظهر اسمه في باقي الورديات  ؟؟ هل هذا صحيح

صحيح استاذ حسين وهو يعمل على الوجه المطلوب 

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

ففكرت ADO.DB  لعله يكون افضل