Cargar datos en un grid-lentitud
Publicado por Marta (49 intervenciones) el 05/02/2007 17:16:30
Tengo un grid en el cual cargo los datos de una tabla. Cuando la tabla tiene muchos registros, unos 13000, me tarda muchísimo en cargar el grid. ¿qué puedo hacer para que vaya más rápido? Así es como lo estoy cargando:
Dim condicion As String
Dim conjuntoDatos As New DataSet
Dim consulta As String
consulta = "select f.id_fichero_naviera, e.des_cupon, f.codcompanyia, f.numseriebillete, " & _
" f.numembarque, f.puntoventabillete, f.tiposubvencion, f.fechaemision, f.trayecto, f.companyiautil, f.fechaembarque, f.codacomodacion, " & _
" f.tarifainicial, f.porcenboniresi, f.porcenbonifami, f.porcenbonimili, f.importefinal, f.tipoacreditacion, f.numdocumento, " & _
" f.nombreapellidos, f.indicador, f.codmunicipio, f.seleccionmuestra, f.observacionesDGMM, f.tarjfamnum " & _
" from fichero_naviera f, estado_cupon e " & _
" where f.estadocupon=e.cod_cupon and f.id_fichero_historial = '" & id_historial & "' "
If Not strWhere Is Nothing Then
condicion = strWhere
consulta = consulta & condicion
End If
consulta = consulta & "order by f.trayecto, f.numseriebillete "
Dim adaptador As New OracleDataAdapter(consulta, AppSettings("cadenaConexion"))
adaptador.Fill(conjuntoDatos, "FICHERO_NAVIERAS")
Dim vista As DataView = conjuntoDatos.Tables("FICHERO_NAVIERAS").DefaultView
Me.DGCupones.DataSource = vista
Dim condicion As String
Dim conjuntoDatos As New DataSet
Dim consulta As String
consulta = "select f.id_fichero_naviera, e.des_cupon, f.codcompanyia, f.numseriebillete, " & _
" f.numembarque, f.puntoventabillete, f.tiposubvencion, f.fechaemision, f.trayecto, f.companyiautil, f.fechaembarque, f.codacomodacion, " & _
" f.tarifainicial, f.porcenboniresi, f.porcenbonifami, f.porcenbonimili, f.importefinal, f.tipoacreditacion, f.numdocumento, " & _
" f.nombreapellidos, f.indicador, f.codmunicipio, f.seleccionmuestra, f.observacionesDGMM, f.tarjfamnum " & _
" from fichero_naviera f, estado_cupon e " & _
" where f.estadocupon=e.cod_cupon and f.id_fichero_historial = '" & id_historial & "' "
If Not strWhere Is Nothing Then
condicion = strWhere
consulta = consulta & condicion
End If
consulta = consulta & "order by f.trayecto, f.numseriebillete "
Dim adaptador As New OracleDataAdapter(consulta, AppSettings("cadenaConexion"))
adaptador.Fill(conjuntoDatos, "FICHERO_NAVIERAS")
Dim vista As DataView = conjuntoDatos.Tables("FICHERO_NAVIERAS").DefaultView
Me.DGCupones.DataSource = vista
Valora esta pregunta


0