ربط واجهة دي بي قريد الفيجوال مع

اولاً ستقوم بانشاء اتصال مع قاعدة البيانات الموجوده على السيرفر

قم باضافة اداة ال ADO إلى المشروع

فى قسم التصريحات العامه General Declaration

'create new connection
Dim cn As New ADODB.Connection
'create recordset
Dim rs As New ADODB.Recordset

الان انت قمت بانشاء عنصر اتصال باستخدام ال ADO ايضاً انت قمت بانشاء RECORDSET سيحمل مجموعه من السجلات (التى سترجع من ناتج استعلام مثلاً)

انا لن استخدمها هنا ولكن ربما احببت ان تستخدمها بعد ذلك

من خاصية connection string للاداه ADO قم بانشاء اتصال مع قاعدة بيانات( اختر السيرفر الذى تود الاتصال به فى حالة وجود اكثر من سيرفر) ثم قم بتحديد طريقة ال AUTHENTICATION هل هى windows authentication ام sql server authentication ثم قم بتحديد الجدول المراد التعامل معه (للبساطه سنتعامل مع جدول واحد) ثم اضغط على test connection فى حالة سلامة الخطوات ستظهر لك رساله تفيد بنجاح الاتصال

قم بفتح الاتصال كالاتى :

'open connection
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=friends;Data Source=WWW"

حيث ان www هو اسم السيرفر فى حالتك و friends هو اسم قاعدة البيانات

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

من خاصية ال record source لل ADO CONTROL اختر نوع ال COMMAND ك 1-adcmdtxt

ثم اكتب عبارة الاستعلام التى تريدها

قم باضافة الاداه mshflexgrid من خاصية data source اختر اداة ال ado التى اضفتها سابقاً

معنى هذا ان ال mshflexgrid ستقوم بقراءة ناتج الاستعلام من داخل ال ado control

هناك طرق كثيره للتعمل مع هذه الاداه ولكن هذا مجرد مثال سريع جداً

المعلّم لقواعد البيانات

بالنسبه للسؤال الثانى : اعطنى يوم او اثنين لتجربة الكود لاننى لا املك نسخة 98 حالياً

اخ طارق

انت اكثر من رائع بارك الله فيك وفي علمك النير

محبك مصباح