如何获得sql服务器所管理的所有数据库名.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 25 行

调用系统存储过程sp_helpdb，VB例程(DAO) 
     Dim r As Recordset,db As Database,wks as Workspace 
     Set wks = DBEngine.CreateWorkspace("myWks", "Admin", "", dbUseODBC) 
     Set Db = wks.OpenDatabase("", dbDriverNoPrompt, 0, "ODBC;SERVER=MYSERVER;DRIVER={SQL SERVER};DSN='';UID=sa;DATABASE=master;PWD=;") 
     Set r = db.OpenRecordset("sp_helpdb") 
     Do While Not r.EOF 
     debug.print r!Name 
     r.MoveNext 
     Loop 
     r.Close 
     
     db.Close 
     wks.Close 
<END>     
Dim svr As New SQLDMO.SQLServer 
    Dim db As SQLDMO.Database 
    Dim i As Integer 
    svr.Connect "(local)", "sa" 
    Set db = svr.Databases("pubs") 
    For i = 1 To db.Tables.Count 
     Debug.Print db.Tables(i).Name 
    next 
<END>