データベース一覧を表示するには？ (ID:77538)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 OpenSchemaメソッドで、カタログのスキーマを取得すればOKです。 Set Cn = New ADODB.Connection Cn.Provider = "SQLOLEDB" Cn.Properties("Data Source").Value = strServerName Cn.Open , strUserName, strPassword Set Rs = Cn.OpenSchema(adSchemaCatalogs) Debug.Print "カタログ名", "解説" Debug.Print Rs.GetString(, , "|", , "(null)") あるいは、SQLDMOを使う事もできます。 Set Svr = New SQLDMO.SQLServer Svr.Connect strServerName, strUserName, strPassword For Each DB In Svr.Databases Debug.Print DB.Name Next