• 0
Misiny_forever

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

سؤال

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

1 إجابات على هذا السؤال .

  • 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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .