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

كيف يمكن تحويل هذا الكود من dao الي ado

مغلق
بدأه خالد الغول في 16 أكتوبر 2004 · 3 رد · 552 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الاخوة الاعزاء

كل عام وانتم بخير

اريد تحويل هذا الكود من Dao الي ADO

وشكرا

Dim db As Database, rs As DAO.Recordset

Set db = CurrentDb

Set rs = db.OpenRecordset("select * from tblcustomers where [w_id_no] = " & Me.id_no & "", dbOpenDynaset)

With rs

Me.c_name = ![w_name]

Me.address = ![w_address]

'Me.id_date = ![w_id_date]

'Me.segel_madany = ![w_segel_madany]

'Me.sallary = ![w_sallary]

Me.company_id = ![w_company_id]

Me.tel_no = ![tel_no]

Me.mobile_no = ![mobile_no]

'Me.jop = ![jop]

End With

rs.Close

#2

للرفع

#3

عزيزي خالد

السلام عليك

لتحويل المثال الذي أرفقته في سؤالك من مكون DAO إلى مكون ADO ، يلزمك عمل الآتي:

ـــ تسجيل المكون ADO ضمن البيئة البرمجية لقاعدة البيانات التي تعمل عليها، وللتأكد من ذلك قم بفتح ( قائمة المراجع ) الموجودة ضمن التبويب ( أدوات ). تأكد من أن المكتبة (Microsoft ActiveX Data Objects 2.1 Library) مختارة.

ـــ أكتب الكود التالي ولاحظ الفرق:

Dim Rs as ADODB.Recordset
Dim strSQL as String
Set Rs = New ADODB.RecordSet
strSQL = "tblcustomers"
Rs.Open strSQL
'لست بحاجة هنا إلى عبارة شرطية في الاتعلام كما في مثالك،؛ لأنك سوف تضيف بيانات جديدة. نعم قد تحتاج إلى الشرط في حالة تعديل البيانات.
With RS
.AddNew

أكتب الحقول التي تريد إضافة البيانات لها هنا

.Update
.Close

End With

تحياتي

#4

عزيزي gham

عند وضع الكود ظهرت لي رسالة تقول ان الاتصال غير قادر علي فتح قاعدة البيانات

ملحوظة : قاعدة البيانات sql والواجهة اكسس

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

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