列出sql服务器上所有库的代码

猪猪

Wei.H

论坛-管理员

Rank: 15

岁月联盟 - 最高管理

终身成就勋章优秀管理勋章核心成员

1^# 大中小发表于 2007-2-5 14:47 只看该作者

列出sql服务器上所有库的代码

dbo权限列出服务器上所有数据库

复制内容到剪贴板

代码:

<% 

Dim srv 

Dim objDB 

Set srv = Server.CreateObject("SQLDMO.SQLServer") 

srv.LoginTimeout = 15 

srv.Connect "127.0.0.1", "sxaqw", "sxaqw" 

Set objDB = Server.CreateObject("SQLDMO.Database") 

%> 

<SELECT name="fdatabase"> 

<% 

For Each objDB In srv.Databases 

If objDB.SystemObject = False Then 

%> 

<OPTION><%=objDB.Name%></OPTION> 

<% 

End If 

Next 

%> 

</select>