Ver Mensaje Individual
  #5 (permalink)  
Antiguo 23/06/2005, 13:33
Avatar de u_goldman
u_goldman
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