Mensaje enviado por "Demian Sclausero" <listas_demi@fibertel.com.ar> el 18/12/2002

yo uso un command de ado
 .ActiveConnection = base
 .CommandType = adCmdStoredProc ' este store busca los estados en la base de datos.!
 .CommandText = "traer_datos_para_validacion"
 .CommandTimeout = 10
 .Parameters.Append .CreateParameter("@intOpera", adInteger, adParamInput, , usaurio)
 .Parameters.Append .CreateParameter("@dia", adVarChar, adParamInput, 10, Format(Date, "dd/mm/yyyy"))
 .Parameters.Append .CreateParameter("@hora", adVarChar, adParamInput, 10, Time 'este devuelve el valor de insercion
 .Parameters.Append .CreateParameter("@resultado", adVarChar, adParamOutput, 50, intTotal)
 .EXECUTE

Demian Sclausero
Desarrollo de Sistemas

-----Mensaje original-----
De: Carlos Alejandro Hernández Alafort [mailto:calejandro@sanimex.com.mx]
Enviado el: Miércoles, 18 de Diciembre de 2002 11:58
Para: Visualbasic-Esp (E-mail)
Asunto: (VB-ESP) Envio y Recibo de Parametros con SQL
Importancia: Alta

Hola Listeros.

Tengo un Store Procedure donde hago un insert a una tabla y me devuelve un
valor dependiendo del tipo de Insercion, la pregunta es como puedo enviarle
parametros y recibir el valor pero desde el codigo de Visual Basic,
utilizando ADO.

Mensaje enviado por "Roberto Figueroa Garibay" <figaro_foro@softhome.net>

yo lo hago asi con ADO

dim cmdSQL as ADODB.Command

with cmdSQL
    .ActiveConnection = Conexion
    .CommandText = "nombre_del_stored_procedure"
    .CommandType = adCmdStoredProc
    .Parameters.Refresh
    .Parameters(0) =
    .Parameters(1) =
    cmdSQL.Execute
end with

si tu Stored Procedure regresa algun valor, ese valor lo tomas en el Parametro 0 despues de ejecutarlo, asi

with cmdSQL
    .ActiveConnection = Conexion
    .CommandText = "nombre_del_stored_procedure"
    .CommandType = adCmdStoredProc
    .Parameters.Refresh
    .Parameters(1).Value =
    .Parameters(2).Value =
    cmdSQL.Execute
    variable = .Parameters(0).Value
end with