
09/09/2003, 13:35
|
| | Fecha de Ingreso: agosto-2003
Mensajes: 22
Antigüedad: 21 años, 7 meses Puntos: 0 | |
checa este codigo mando llamar un sp
Dim gconn As New ADODB.Connection
Dim adoCmd As New ADODB.Command
Dim adoresultado As New ADODB.Recordset
Dim oContext As ObjectContext
'obtiene los datos generales de los recibos para la consulta en linea de los mismos
'desde la aplicacion de consultas de clientes
gconn.ConnectionString = strConexion
gconn.Open
Set adoCmd.ActiveConnection = gconn
adoresultado.CursorLocation = adUseClient
With adoCmd
.CommandType = adCmdStoredProc
.CommandText = "SpSelDatosReciboPoliza"
.Parameters.Append adoCmd.CreateParameter("@PolizaId", adInteger, adParamInput, 4, lPolizaId)
.Parameters.Append adoCmd.CreateParameter("@ClaveId", adVarChar, adParamInput, 3, strClaveId)
.Parameters.Append adoCmd.CreateParameter("@IncisoId", adInteger, adParamInput, 4, iIncisoId)
End With
adoresultado.Open adoCmd
adoresultado.ActiveConnection = Nothing
gconn.Close
Set gconn = Nothing
If Not oContext Is Nothing Then ' Program is running under MTS
oContext.SetComplete ' Alert MTS that operation was successful
End If
Set oContext = Nothing
Exit Function |