Set oSQLServer = CreateObject("SQLOLE.SQLServer")
oSQLServer.Connect "server_name", "login", "password"
| 目標 | 程式碼片段 |
|---|---|
| 列出所有資料庫 | For Each SQLDB In oSQLServer.Databases: Response.Write SQLDB.Name: Next |
| 列出特定資料庫資料表 | Set pubDB = oSQLServer.Databases("pubs") |
| 列出檢視表 | For Each v In pubDB.Views: Response.Write v.Text: Next |
| 列出預存程序 | For Each sp In pubDB.StoredProcedures: Response.Write sp.Text: Next |
<%@ LANGUAGE = VBScript %>
<% On Error Resume Next
Dim oSQLServer, strServer, strLogin, strPwd
Set oSQLServer = CreateObject("SQLOLE.SQLServer")
strServer = "dep": strLogin = "sa": strPwd = ""
oSQLServer.Connect strServer, strLogin, strPwd %>
<SELECT NAME="Database">
<% For Each SQLDB In oSQLServer.Databases
If Not SQLDB.SystemObject Then
Response.Write "<OPTION VALUE=""" & SQLDB.Name & """>" & SQLDB.Name
End If
Next
Set oSQLServer = Nothing %>
</SELECT>
SQLOLE.SQLServer 可繞過 ADO 直接操作 SQL Server 管理層級物件，適合建立管理工具或自動化部署腳本。
