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

Dim cn As rdoConnection

Dim ps As rdoPreparedStatement

Dim rs As rdoResultset

Dim strConnect作为字符串

Dim strSQL作为字符串

使用DSNless连接到pubs数据库。

更改参数以适合您自己的SQL Server

str connect = " Driver = { SQL Server }；Server = myserver"& "数据库=酒馆；Uid = saPwd= "

Set cn = rdoEnvironments(0)。OpenConnection(dsName:= " "，Prompt:= rddrivernopromp，ReadOnly:=False，Connect:=strConnect)

strSQL = "Select so.name，sc.name，st.name，sc.length " & "FROM syscolumns sc，master..systypes st，sysobjects so " & "其中sc . id in(select id from sys objects WHERE type = ' P ')" & " AND so . type = ' P ' " & " AND sc . id = so . id " & " AND sc . type = ST . type " & " AND sc . type 39 "

设置ps = cn。CreatePreparedStatement("MyPs "，strSQL)

设置rs = ps。OpenResultset(rdOpenStatic)

列表1。AddItem "SP名称，参数名称，数据类型，长度"

而不是rs。文件结束

列表1。AddItem rs(0) & "，" & rs(1) & "，" & rs(2) & "，" & rs(3)

rs。下一步

行

rs。关闭

设置rs =无

cn。关闭

设置cn =无