السلام عليكم ورحمة الله وبرماتة
أخوانى الاعزاء , انا شغال على الاس كيو ال سيرفر وعندى مثلا 20 قاعدة بيانات داخله ازاى اقدر استدعى اسماء قواعد البيانات اللى موجوده داخل الاس كيو ال سيرفر كلها فى combo box مع العلم انى عامل لكل قواعد البيانات اللى عندى ODBC Connection .
خيركم من تعلم العلم وعلمه
أخوانى الأعزاء
هذه هى اجابت سؤالى وهى استدعاء امساء جميع قواعد البيانات اللى قمت بعمل 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
خيركم من تعلم العلم وعلمه
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…