ما هى طريقة استدعاء اسماء قواعد البيانات من dsn

[Misiny_forever 0]

السلام عليكم ورحمة الله وبرماتة

أخوانى الاعزاء , انا شغال على الاس كيو ال سيرفر وعندى مثلا 20 قاعدة بيانات داخله ازاى اقدر استدعى اسماء قواعد البيانات اللى موجوده داخل الاس كيو ال سيرفر كلها فى combo box مع العلم انى عامل لكل قواعد البيانات اللى عندى ODBC Connection .

[Misiny_forever 0]

أخوانى الأعزاء

هذه هى اجابت سؤالى وهى استدعاء امساء جميع قواعد البيانات اللى قمت بعمل odbc لها من خالا ال sql SERVER

Dim db As New ADODB.Connection

Dim cmd As New ADODB.Command

Dim rs As New ADODB.Recordset

db.CursorLocation = adUseClient

db.Open "DSN=master;UID=sa;Password=8888"

cmd.CommandType = adCmdText

cmd.CommandText = "Select * from dbo.sysdatabases"

Set cmd.ActiveConnection = db

rs.Open cmd, , adOpenKeyset, adLockOptimistic

Form1.Caption = "No. of DB = " & rs.RecordCount

For i = 1 To rs.RecordCount

Combo1.AddItem rs.Fields("name")

rs.MoveNext

Next i

rs.Close

db.Close