Programación General > Visual Basic 6.0 e inferiores

 Problema Para Recorrer Datagrid

(1/1)

FABIANGARCIA:
:angry:  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:
:kicking: SI EL PROBLEMA ERA ESE GRACIAS. :kicking:  :kicking:  :kicking:  :kicking:  :kicking:

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 & "\" & .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 = FalseEnd 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 StringPublic Function varcon(ByVal opcion As Integer) As String    Select Case opcion        Case 1            ac = ("Select IDCLIENTE,FECHA,HORA_ENTRADA,HORA_SALIDA,TOTAL_HORA,TARIFA,PAGO_TOTAL From COBRO_CLIENTE where IDCLIENTE=" & MDIPrincipal.lstListado.Text)        Case 2            ac = ("Select IDCLIENTE,FECHA,HORA_ENTRADA,HORA_SALIDA,TOTAL_HORA,TARIFA,PAGO_TOTAL From COBRO_CLIENTE")        Case 3            ac = ("Select PATENTE,VEHICULO,FECHA,HORA_ENTRADA,HORA_SALIDA,TOTAL_HORA,TARIFA,PAGO_TOTAL From NO_CLIENTE")    End Select    varcon = acEnd Function  
En msfConsulta (MsfFlexGrid), en la propiedad DataSource = Data2 (control Data) y en Proyecto / Referencias / Microsoft DAO 3.51 Object Library

Nos vemos.

Navegación

[0] Índice de Mensajes