Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim prm As ADODB.Parameter
cmd.ActiveConnection = "DSN=pubs;uid=sa" ' o puede ser Set cmd.ActiveConnection = MiConexion si tengo una conexion establecida
cmd.CommandText = "byroyalty"
cmd.CommandType = adCmdStoredProc
' establezco un parametro para el SP
Set prm = cmd.CreateParameter("Royalty", adInteger, adParamInput, , 50)
cmd.Parameters.Append prm
' si el SP devuelve datos los levanto en un recordset
Set rs = cmd.Execute
|
