Hola Grupo:
Al cargar en un Grid una tabla que contiene mas de 100,000 registros me
manda error el Explorer, no es de programación.
De hecho tarda mucho en cargar en el IE y al final me manda erl siguiente
mensaje:
HTTP 500 - Error interno del servidor
Internet Explorer
Este es el codigo que utilizo:
Public Class Primer
Inherits System.Web.UI.Page
Public Conexion As String = "Initial Catalog=Chispazo;Data
Source=dhvilla\misqlserver;user id=sa"
#Region " Código generado por el Diseñador de Web Forms "
'El Diseñador de Web Forms requiere esta llamada.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents dgPrimer As System.Web.UI.WebControls.DataGrid
Protected WithEvents lblNumReg As System.Web.UI.WebControls.Label
Protected WithEvents optEleccion As
System.Web.UI.WebControls.RadioButtonList
Protected WithEvents txtUno As System.Web.UI.WebControls.TextBox
Protected WithEvents txtDos As System.Web.UI.WebControls.TextBox
Protected WithEvents txtTres As System.Web.UI.WebControls.TextBox
Protected WithEvents txtCuatro As System.Web.UI.WebControls.TextBox
Protected WithEvents txtCinco As System.Web.UI.WebControls.TextBox
Protected WithEvents btnRegresar As System.Web.UI.WebControls.Button
Protected WithEvents btnBuscar As System.Web.UI.WebControls.Button
'NOTA: el Diseñador de Web Forms necesita la siguiente declaración del
marcador de posición.
'No se debe eliminar o mover.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
'CODEGEN: el Diseñador de Web Forms requiere esta llamada de método
'No la modifique con el editor de código.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'Introducir aquí el código de usuario para inicializar la página
If Not Page.IsPostBack = True Then
Dim Conn = New SqlConnection(Conexion)
Dim Cmd = New SqlCommand
Dim Dr As SqlDataReader
Dim sql As String = "Select * FROM Tbl_Primer"
Conn.Open()
Cmd = New SqlCommand(sql, Conn)
Dr = Cmd.ExecuteReader()
Me.dgPrimer.DataSource = Dr
Me.dgPrimer.DataBind()
Dr.Close()
Conn.Close()
End If
End Sub
Quiero informar que si trabajo con tablas de menor registros me cargar sin
problemas.
Salu2 :-)))
(""'·._.·L.I. Daniel Villa·._.·'"")
Leer las respuestas