VB之调用存储过程

private conn as ADODB.connection,rs as ADODB.recordset

command1_click()

set conn = New ADDB.connection()

conn.connectionstring="Provider=SQLOLEDB.1;user id=sa;password=;Initial catalog=xx;data source=yy"

conn.open

set rs = new adodb.recordset

set rs.activeConnection = conn

rs.open "{call 存储过程吗}"

do while not rs.eof

处理rs(n)

loop

rs.close

conn.close

set conn=nothing

set rs = nothing

end sub

 

如果调用带参数的存储过程：

rs.open "{call abc('a','b')}"