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
![Me gusta: Está pregunta es útil y esta clara Me gusta: Está pregunta es útil y esta clara](/img/img.png?11.51)
![NO me gusta: Está pregunta no esta clara o no es útil No me gusta: Está pregunta no esta clara o no es útil](/img/img.png?11.51)
0