列出 SQL Server 数据库中所有的存储过程

• 关 键 词：
• sql server
• 存储过程
• 数据库

Dim ps As rdoPreparedStatement

Dim rs As rdoResultset

Dim strConnect As String

Dim strSQL As String

'利用 DSNless 连接到 pubs 数据库

'改变参数以适合你自己的 SQL Server

strConnect = "Driver={SQL Server}; Server=myserver; " & "Database=pubs; Uid=sa; Pwd="

Set cn = rdoEnvironments(0).OpenConnection(dsName:="", Prompt:=rdDriverNoPrompt, ReadOnly:=False, Connect:=strConnect)

strSQL = "Select so.name,sc.name,st.name,sc.length " & "FROM syscolumns sc,master..systypes st,sysobjects so " & "WHERE sc.id in (select id from sysobjects where type ='P')" & " AND so.type ='P' " & "AND sc.id = so.id " & "AND sc.type = st.type " & "AND sc.type <> 39"

Set ps = cn.CreatePreparedStatement("MyPs", strSQL)

Set rs = ps.OpenResultset(rdOpenStatic)

list1.AddItem "SP Name,Param Name,Data Type,Length"

While Not rs.EOF

list1.AddItem rs(0) & " , " & rs(1) & " , " & rs(2) & " , " & rs(3)

rs.MoveNext

Wend

rs.Close

Set rs = Nothing

cn.Close

Set cn = Nothing查看 http://www.qqread.com/sqlserver/2006/10/l234642.html 更多内容请看SQL Server 数据处理专题、SQL Server 索引和查询专题、SQL Server专题，或进入讨论组讨论。

【深 度 阅 读】 相 关 文 章

• SQL Server SQL语句导入导出大全
• sql server 存储过程分页
• SQL Server SQL语句调优技巧
• SQL Server 查询分析器快捷键集合