如何用vb或者asp取得SQL SERVER数据库中的全部数据库名？

[netphp]

如题，是取得SQL SERVER 2000中的全部数据库名，不是表名和字段名，不知道有什么办法？

网上介绍的创建SQLOLE.SQLServer对象行不通，我这里不支持。

[pengdali]

exec sp_databases

或：

select * from sysdatabases

[pengdali]

select name from master..sysdatabases

[zjcxc]

从master数据库的sysdatabase表中可以得到:

select name from master..sysdatabases

[netphp]

有没有其它办法？就是说不是从表中取记录的方式，类似

Set SQLServer = CreateObject ("SQLOLE.SQLServer")
For Each SQLDB In SQLServer.Databases
Response.Write SQLDB.Name ‘将列出所有的数据库，如Pubs等
Next
这样的。

我就是因为这段代码不能创建sqlole.server对象才有此一问。

[zjcxc]

可以,不过不是SQLOLE,而是用引用sqldemo对象

[zjcxc]

下面是VB中的写法

Sub test()
Dim iSql As New SQLDMO.SQLServer
Dim i&

With iSql
.Connect "(local)", "sa"
For i = 1 To .Databases.Count
Debug.Print .Databases(i).Name
Next
End With
End Sub

[zjcxc]

如果改你的,就是:

Set SQLServer = CreateObject ("SQLDMO.SQLServer")

[netphp]

非常感谢