列出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 =无
位律师回复
0条评论