SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: FABIANGARCIA en Viernes 9 de Julio de 2004, 16:17

Título: Problema Para Recorrer Datagrid
Publicado por: FABIANGARCIA en Viernes 9 de Julio de 2004, 16:17
: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
Título: Re: Problema Para Recorrer Datagrid
Publicado por: Juanolo en Sábado 10 de Julio de 2004, 00:24
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.
Título: Re: Problema Para Recorrer Datagrid
Publicado por: FABIANGARCIA en Sábado 10 de Julio de 2004, 15:44
:kicking: SI EL PROBLEMA ERA ESE GRACIAS. :kicking:  :kicking:  :kicking:  :kicking:  :kicking:
Título: Re: Problema Para Recorrer Datagrid
Publicado por: nostromo en Martes 27 de Julio de 2004, 17:44
Hola;

Rellena el grid con SQL y listo.

Código en MDI

Código: Text
  1.  
  2. Option Explicit
  3.    Dim h, w As Integer
  4.    Dim db As Database
  5.    Dim rs As Recordset
  6.    Dim a As String
  7.  
  8. Private Sub mnuConsul_No_Cliente_Click()
  9.     'FrmConsulta.Show
  10.     With FrmConsulta
  11.             .Show
  12.             .ConsultaNoCliente
  13.         With MDIPrincipal
  14.             a = .txtUsoCarpe & "\" & .lblArchivo
  15.         End With
  16.             .Data2.DatabaseName = a
  17.             .Data2.RecordSource = varcon(3) 'Function varcon en modConsulta
  18.             .Data2.Refresh
  19.     End With
  20.     mnuConsul_No_Cliente.Enabled = False
  21.     mnuIrConsul.Enabled = False
  22. End Sub
  23.  
  24.  

Código en Modulo

Código: Text
  1.  
  2. Option Explicit
  3.    Dim db As Database
  4.    Dim rs As Recordset
  5.    Dim ac As String
  6.  
  7. 'Dim varcon As String
  8. Public Function varcon(ByVal opcion As Integer) As String
  9.     Select Case opcion
  10.         Case 1
  11.             ac = ("Select IDCLIENTE,FECHA,HORA_ENTRADA,HORA_SALIDA,TOTAL_HORA,TARIFA,PAGO_TOTAL From COBRO_CLIENTE where IDCLIENTE=" & MDIPrincipal.lstListado.Text)
  12.         Case 2
  13.             ac = ("Select IDCLIENTE,FECHA,HORA_ENTRADA,HORA_SALIDA,TOTAL_HORA,TARIFA,PAGO_TOTAL From COBRO_CLIENTE")
  14.         Case 3
  15.             ac = ("Select PATENTE,VEHICULO,FECHA,HORA_ENTRADA,HORA_SALIDA,TOTAL_HORA,TARIFA,PAGO_TOTAL From NO_CLIENTE")
  16.     End Select
  17.     varcon = ac
  18. End Function
  19.  
  20.  

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

Nos vemos.