الاتصال بقواعد بيانات SQL Server بأستخدام تقنية الربط ADO
صفحة 1 من اصل 1 • شاطر
الاتصال بقواعد بيانات SQL Server بأستخدام تقنية الربط ADO
بسم الله الرحمن الرحيم
هذا المقال يتناول الاتصال إلى قاعدة بيانات SQL Server....بأستخدام المكتبة Microsoft ActiveX Data Objects و التى يتم اختصارها الى ADO ....وذلك على النحو التالى :
1_ قم بأدراج المكتبة Microsoft ActiveX Data Objects 2.8 Library و ذلك من خلال القائمة Project و منها أختر الامر References ....سيظهر لك مربع حوارى بالمكتبات المتاحة لديك أختر من المكتبة أعلاه
2_ نقوم بفتح صفحة كتابة الشفرة ثم نكتب التعليمات البرمجية التالية :
أ_ فى قسم التصريحات العامة نقوم با،شاء مثيل لكائن الاتصال و مثيل لكائن السجلات على النحو التالى :
- الكود:
Dim MyConnObj As New ADODB.Connection
Dim myRecSet As New ADODB.Recordset
- الكود:
MyConnObj.Open _
"Provider = sqloledb;" & _
"Data Source={ServerName};" & _
"Initial Catalog={DatabaseName};" & _
"User ID={UserName};" & _
"Password={Password};"
و الاصدار SQL Server 7.0
ج_ نقوم بعد ذلك القادمة بإستخدام كائن السجلات في فتح و لجلب السجلات من جدول (myTable) ...على النحو التالى :
- الكود:
myRecSet.Open “select * from myTable”, MyConnObj, adOpenKeyset
الأول هو مصدر البيانات .select * from myTable
والثاني هو كائن اتصال.MyConnObj
الثالث هو لتحديد نوع المؤشر.adOpenKeyset
الأخي و التى لم تنفيذها فى هذا المثال هو نوع القفل
د_ يمكنك بعد ذلك أستخدام أساليب ADO العادية لاصافة و تعديل و حفظ البيانات ...كما يمكنك ايضا التنقل بين السجلات
أتمنى أن يكون الدرس سهل
تحياتى لكم
السنى- ........
- تاريخ التسجيل : 18/02/2011
المساهمات : 249
النقاط : 464
التقيم : 25
الجنس :
asasas- .
- تاريخ التسجيل : 23/01/2016
المساهمات : 7
النقاط : 7
التقيم : 0
الدولة :
الجنس :
رد: الاتصال بقواعد بيانات SQL Server بأستخدام تقنية الربط ADO
الله يبارك فيكم
dia trya- ..
- تاريخ التسجيل : 16/06/2016
المساهمات : 12
النقاط : 16
التقيم : 0
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 12:41 am من طرف marketing118
» شركة تنظيف ستائر بالرياض
الأحد مارس 17, 2024 10:46 pm من طرف moslema_r
» خيام ملكيه من الداخل
الأحد مارس 17, 2024 8:13 pm من طرف marketing118
» شركة نقل عفش بالطائف
الأحد مارس 17, 2024 6:34 pm من طرف marketing118
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد
» افضل فني كهربائي منازل بالرياض جودة 100% | اتصل الآن
الأحد مارس 17, 2024 12:36 pm من طرف رانيا حماد
» أفضل فني سباك بالرياض ممتاز بالرياض | اتصل الآن
الأحد مارس 17, 2024 12:25 pm من طرف رانيا حماد