Autor Tema: Problema Para Recorrer Datagrid (Leído 1924 veces)

FABIANGARCIA · « **en:** Viernes 9 de Julio de 2004, 16:17 »

HOLA TENGO UN PEQUEÑO PROBLEMA PARA RECORRER UN DATAGIRD, ESTE ESTA CONECTADAO A UNA BASE DE DATOS PARA HACER UNA CONSULTA LA CONSULTA ME TRAE MAS DE 15000 FILAS PERO CUANDO EMPIEZO A RRECORRER EL DATAGRID LA PROPIEDAD ROW NO ME PASA DE LA FILA 40. Y CUANDO PASA A LA 41 ME SACA UN ERROR DICIENDO QUE NO EXISTEN MAS FILAS

COMO HAGO PARA QUE ME RECORRA TODAS LAS FILAS.

AYUDA ESTOY MUY ENVALADO CON ESO Y TENGO QUE ENTREGARLO HOY MISMO

Juanolo

Hola, Fabián.

¿Tomas el recordset desde un dataenvironment?

Si es así, en la pestaña avanzadas de Propiedades, existe la opción de indicar si quieres que te devuelva un nro determinado de registros o "Todos los Registros".
Yo creo que va por ahí el problema. No es el datagrid, sino el recordset que lo alimenta.

Espero que lo soluciones.

Salu2.

FABIANGARCIA

SI EL PROBLEMA ERA ESE GRACIAS.

nostromo

Hola;

Rellena el grid con SQL y listo.

Código en MDI

Código: Text

 
Option Explicit
   Dim h, w As Integer
   Dim db As Database
   Dim rs As Recordset
   Dim a As String
 
Private Sub mnuConsul_No_Cliente_Click()
    'FrmConsulta.Show
    With FrmConsulta
            .Show
            .ConsultaNoCliente
        With MDIPrincipal
            a = .txtUsoCarpe & &#34;&#092;&#34; & .lblArchivo
        End With
            .Data2.DatabaseName = a
            .Data2.RecordSource = varcon(3) 'Function varcon en modConsulta
            .Data2.Refresh
    End With
    mnuConsul_No_Cliente.Enabled = False
    mnuIrConsul.Enabled = False
End Sub
 
 

Código en Modulo

Código: Text

 
Option Explicit
   Dim db As Database
   Dim rs As Recordset
   Dim ac As String
 
'Dim varcon As String
Public Function varcon(ByVal opcion As Integer) As String
    Select Case opcion
        Case 1
            ac = (&#34;Select IDCLIENTE,FECHA,HORA_ENTRADA,HORA_SALIDA,TOTAL_HORA,TARIFA,PAGO_TOTAL From COBRO_CLIENTE where IDCLIENTE=&#34; & MDIPrincipal.lstListado.Text)
        Case 2
            ac = (&#34;Select IDCLIENTE,FECHA,HORA_ENTRADA,HORA_SALIDA,TOTAL_HORA,TARIFA,PAGO_TOTAL From COBRO_CLIENTE&#34;)
        Case 3
            ac = (&#34;Select PATENTE,VEHICULO,FECHA,HORA_ENTRADA,HORA_SALIDA,TOTAL_HORA,TARIFA,PAGO_TOTAL From NO_CLIENTE&#34;)
    End Select
    varcon = ac
End Function
 
 

En msfConsulta (MsfFlexGrid), en la propiedad DataSource = Data2 (control Data) y en Proyecto / Referencias / Microsoft DAO 3.51 Object Library

Nos vemos.

SoloCodigo

Autor Tema: Problema Para Recorrer Datagrid (Leído 1924 veces)

FABIANGARCIA

Problema Para Recorrer Datagrid

Juanolo

Re: Problema Para Recorrer Datagrid

FABIANGARCIA

Re: Problema Para Recorrer Datagrid

nostromo

Re: Problema Para Recorrer Datagrid