SQL - Agregar datos desde VB6 con Strore Procedures

 
Vista:

Agregar datos desde VB6 con Strore Procedures

Publicado por Rafael López (1 intervención) el 14/08/2001 15:55:37
Estoy trabajando cliente servidor tres capas quiero agregar varios datos a un store procedure de ms sql server 7 desde mi capa de negocios, pero no se como pasar varios parametros al procedimiento almacenado, este es el ejemplo:

Public Function AgregarLibros(strCOT As String, strTIT As String, strAUT As String, strEDITO As String, strESP As String, strISB As String, strCOP As String, strEDICI As String, strREE As String, strREI As String, strANN As String, strDES As String, strOBS As String) As Boolean

Set rs = New ADODB.Recordset
Set cn = New ADODB.Connection

'Cadena de conexión SQL Server
cn.Open ("Provider=SQLOLEDB.1;Integrated Security=SSPI;" _
& "Persist Security Info=False;Initial Catalog=BJMC;Data Source=NTSRV1")

rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic

Set cmd = New ADODB.Command
Set cmd.ActiveConnection = cn
cmd.CommandText = "AGREGALIBROSP"
cmd.CommandType = adCmdStoredProc

Set prm = cmd.CreateParameter("@AGREGALIBRO", adVarChar, adParamInput, 50)
cmd.Parameters.Append prm
prm.Value = (ArgInput) ' <------------- Aquí esta mi duda

Set rs = cmd.Execute()

Set AgregarLibros = rs

End Function
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder