Visual Basic - como aumentar el numero de filas de un msflexgrid y como lo puedo exportar a un archivo csv

Val: 6

como aumentar el numero de filas de un msflexgrid y como lo puedo exportar a un archivo csv

Publicado por José Luis (3 intervenciones) el 03/04/2018 04:49:03

buenas noches

una pregunta estoy trabajando con un programa que me permite realizar captura de datos despues de una breve consulta, en el mismo orden de ideas estoy realizando un recorrido de 100.000 cedulas de clientes y el flexgrid solo me captura la informacion de 4682 clientes, la pregunta es como puedo aumentar para que me tome el resto que me falta y poder realizar una sola captura con los 100.000 registros , para finalizar necesito saber como realizar la exportaci{on a excel de esos registros, o como generar un archivo .csv para que me de toda la información .

gracias

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 1

Val: 3.117

como aumentar el numero de filas de un msflexgrid y como lo puedo exportar a un archivo csv

Publicado por Andres Leonardo (1799 intervenciones) el 03/04/2018 14:52:05

Amigo tirtar ese numero de cedulas en un flexgrid es un ASESINATO a la memoria y procesador jejejejej :D ejejejeje

Bueno ahor si serios

con respeto a la pagina hay un ejemplo de paginacion, en ese se muestra como cargas el recordset y luego lo vas paginando ... insisto tantos registros es un asesinato pero con este metodo podrias usarlo mejor ... en paginas de 5000 registros por ejemplo... mira como mejor lo ajustas.... adicional te paso el codigo que uso para generar un archivo recorriendo el recordset .. pero no se cuanto demore para 100000 registros. podrias optimizarlo.

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/262-ado-paginacion-de-flexgrid.htm

Sub Rstotxt(SQL As String, filename As String)

'SQL es la sentencia sql que  abres la base ... rs es el recordset enlace la cadena conexion.

'El filename deberar ser donde lo guardas. EJ.. c:\Archivo.csv

On Error GoTo etterro

cont = 0

'MsgBox SQL

rs.Open SQL, enlace

'****si no hay resultados ********

    If rs.EOF = True And rs.BOF = True Then

            Open filename For Append As 9

                    Print #9, "No Existen Registros para RecordSet "

            Close 9

    rs.Close

    Exit Sub

    End If

'salgo del sub

'**********************************

Dim i, j, k As Integer

   j = 0

   While j < Val(rs.Fields.Count)

        Datafile = Datafile & rs.Fields(j).Name & ","

        j = j + 1

   Wend

        Open filename For Append As 9

             Print #9, Datafile

             Datafile = ""

        Close 9

    i = 1

    k = 0

    While Not rs.EOF

        i = i + 1

        k = 0

        While k < j

            Datafile = Datafile & Replace(rs(k), vbLf, "", 1) & ","

            k = k + 1

        Wend

        'Datafile = Datafile & vbCr

                    Open filename For Append As 9

                        Print #9, Datafile

                        Datafile = ""

                    Close 9

        RaR = RaR + 1

        rs.MoveNext 'aumenta el contador

    Wend

       rs.Close

etterro:

If Err.Number <> 0 Then msgbox Err.Description

End Sub

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar