Salvestatud protseduuride kasutamiseks on loodud tabel j1test tulpadega

 nimi  aasta

_______

create procedure nimeloetelu2
as
select nimi from j1test where aasta>=1982
GO

______


Private Sub Command2_Click()
  Dim cn As New Connection
  Dim rs As Recordset
  cn.Open ("dsn=sqlserver2")
  Set rs = cn.Execute("nimeloetelu2")
  While Not rs.EOF
    MsgBox rs("nimi")
    rs.MoveNext
  Wend
  cn.Close  
End Sub

_____


create procedure nimeloetelu
 @algusaasta int
as
select nimi from j1test where aasta>=@algusaasta
GO

______

Private Sub Command2_Click()
  Dim cn As New Connection
  Dim rs As Recordset
  cn.Open ("dsn=sqlserver2")
  Dim cm As New Command
  cm.CommandType = adCmdStoredProc
  cm.Parameters.Append cm.CreateParameter("algusaasta", adInteger)
  cm.Parameters("algusaasta").Value = 1933
  cm.CommandText = "nimeloetelu"
  cm.ActiveConnection = cn
  Set rs = cm.Execute
  While Not rs.EOF
    MsgBox rs("nimi")
    rs.MoveNext
  Wend
  cn.Close
End Sub