Ver Mensaje Individual
  #6 (permalink)  
Antiguo 08/08/2002, 17:22
henryzs
 
Fecha de Ingreso: enero-2002
Mensajes: 189
Antigüedad: 23 años, 3 meses
Puntos: 0
Re: necesito solo algun tip de ayuda en esto!

Hola:

Creo que es por la forma de conexion a bd. Intenta conectarse con oledb u usa ADO para ejecutar el store procedure.

Aqui te paso un codigo de paginacion pero en com, de todas formas te ayudara un poco. Me conecto por oledb.
-------------------------------------
'Metodo que ejecuta un sp y devuelve un recordset paginado
Public Function execProcedurePage(ByVal intNumReg As Integer, ByVal intNumPag As Integer, ByRef intNumPagTot As Variant, ByRef intNumRegTot As Variant, ByVal strSP As String, ParamArray params() As Variant) As ADODB.Recordset

On Error GoTo Exception

'Declarando objetos Origen
Dim rstSource As ADODB.Recordset
Dim rstDestino As ADODB.Recordset
Dim cmd As ADODB.Command
Dim intPos, intPosicionFinal As Byte

'Instanciando objetos ADO
Set rstSource = CreateObject("ADODB.Recordset")
Set rstDestino = CreateObject("ADODB.Recordset")
Set cmd = CreateObject("ADODB.Command")

'Seteando parametros de objeto command
cmd.ActiveConnection = GetConnectionString()
cmd.CommandText = strSP
cmd.CommandType = adCmdStoredProc

'Asignando parametros
setParameter cmd, params

'Seteando parametros de objeto recordset
rstSource.CursorLocation = adUseClient 'cursor de servidor
rstSource.CursorType = adOpenStatic
rstSource.LockType = adLockReadOnly

'Inicializando valores de paginación
rstSource.PageSize = intNumReg
rstSource.CacheSize = intNumReg

'Ejecutando operación
rstSource.Open cmd