اريد جلب جميع قواعد البيانات من SQL SERVER

-هل سؤالي صعب تنفيذه بالفيجوال بيسك 6

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

السؤال ليس صعباً، و لكن المنتدى يمر بمرحلة ركود :huh: !!

تأكد من أن الـ References (من القائمة Project) تحتوي على إشارة على Microsoft ActiveX Data Objects x.x Library (حيث x.x رقم النسخة).

بفرض أن النافذة تحتوي على ListBox باسم List1. ضع الكود التالي حيث تريد تحميل أسماء قواعد البيانات (في الـ Form_Load أو في زر أو أمر قائمة ... إلخ):

    Dim Cnn As New ADODB.Connection
    Dim RS As New ADODB.Recordset
    Dim SqlStr As String
    
    List1.Clear
    
    SqlStr = "SELECT [name] AS DBName FROM sys.databases " _
           & "WHERE [name] NOT IN ('master', 'tempdb', 'model', 'msdb', 'reportserver', 'reportservertempdb')"
           
    Cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=master;Data Source=(LOCAL)"
    RS.Open SqlStr, Cnn, adOpenForwardOnly, adLockOptimistic, adCmdText
    Do While Not RS.EOF
        List1.AddItem RS("DBName")
        RS.MoveNext
    Loop
    RS.Close
    Cnn.Close
    Set RS = Nothing
    Set Cnn = Nothing

* لاحظ أننا استثينا قواعد بيانات النظام (System Databases). إذا أردت إدراج تلك الأسماء أيضاً فاحذف عبارة WHERE و ما بعدها من جملة SELECT.

* لا أدري ما نسخة SQL Server لديك و لكن جملة SELECT المستعملة هنا تعمل مع SQL Server 2008 R2.

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

اخي الف شكر على هذه المشاركة الرائعة ربي يجعلها في ميزان حسناتك