
23/06/2005, 13:33
|
 | Moderador | | Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 3 meses Puntos: 98 | |
Hola, perdona que no tengo mucho tiempo para contestar tu pregunta, pero como dijo Myak, querras investigar sobre el objeto command, aqui te dejo esta funcion que lo utiliza y envia parametros de entrada y salida, analizalo y obten tus conclusiones.
Código:
Public Function MakeRecur(intCalendarID, intRecurID, dtDate)
Dim conn
Dim param
Set conn = Server.CreateObject("ADODB.Connection")
Set cmd = Server.CreateObject("ADODB.Command")
conn.Open strConnect
cmd.ActiveConnection = conn
cmd.CommandText = "sp_makerecurrent"
cmd.CommandType = adCmdStoredProc
dtDate = CDate(Month(dtDate) & "/" & Day(dtDate) & "/" & Year(dtDate))
Set param = cmd.CreateParameter("calendar_id", adInteger, adParamInput, 4, intCalendarID)
cmd.Parameters.Append(param)
Set param = cmd.CreateParameter("recurrent_id", adInteger, adParamInput, 4, intRecurID)
cmd.Parameters.Append(param)
Set param = cmd.CreateParameter("calendar_start_date", adDate, adParamInput, 8, dtDate)
cmd.Parameters.Append(param)
Set param = cmd.CreateParameter("calendar_type_id", adInteger, adParamInput, 4, Calendar_type_id)
cmd.Parameters.Append(param)
Set param = cmd.CreateParameter("new_id", adInteger, adParamOutput, 4)
cmd.Parameters.Append(param)
cmd.Execute
MakeRecur = cmd.Parameters("new_id")
Set param = Nothing
Set cmd = Nothing
Set conn = Nothing
End Function
Salu2,
__________________ "El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway |