Data Source Properptys

السلام عليكم...

1. من القائمة Project اختر الأمر References.

2. في نافذة الـ References ابحث عن البند: Microsoft OLE DB Service Component 1.0 Type Library وقم بتحديده (ظهور علامة صح بجانبه) من أجل المكتبة MSDASC.

3. إذا لم يكن برنامجك يستعمل مكتبة ADODB من قبل فابحث عن البند: Microsoft ActiveX Data Objects x.x Library وقم بتحديده أيضاً (حيث x.x رقم النسخة، مثلاً 2.5 أو 2.8).

4. انقر الزر الزر OK.

5. ضع على الـ Form زر أمر (Command) و اكتب الكود التالي للزر:

Private Sub Command1_Click()
    Dim Cnn As ADODB.Connection
    Dim DL As New MSDASC.DataLinks

    Set Cnn = DL.PromptNew
    If Cnn Is Nothing Then
        MsgBox "Cancelled"
    Else
        MsgBox Cnn.ConnectionString
    End If

    Set DL = Nothing
    Set Cnn = Nothing
End Sub

الكائن DataLinks التابع للمكتبة MSDASC له وظيفتان: الوظيفة PromptNew لإنشاء كائن Connection يجديد حتوي على الـ ConnectionString. إذا نقر المستخدم على الزر إلغاء الأمر (Cancel) في نافذة الـ Data Link Properties فإن الوظيفة تعيد Nothing. أما الوظيفة الثانية فهي PromptEdit التي نستعملها لتعديل خصائص الـ Connection.

نرجو الاستفادة و السلام.