Buenas tardes,
Hace poco termine de crear una sencilla aplicacion vb.net y el problema que tengo ahora es que esta tardando demasiado en abrir el ejecutable.
Y hablo de una aplicación pequeña en términos de bytes (164KB) y en la carga de datos que tengo dentro de ella. En el evento load solo hago dos consultas que si hago depuración no tarda nada en abrir...no se si algo andará mal en el Framework quizas, pero tarda e verdad mucho: hice la prueba y demora 19 segundos en abrir solo el Splash
La versión del FW es : 2.0.50727 SP2
Y el código del load es este:
RemoveHandler cboApp.SelectedIndexChanged, AddressOf cboApp_SelectedIndexChanged 'Creamos la conexion Dim cn As New Odbc.OdbcConnection("Dsn=HOSPITAL;uid=conexion;pwd=conexionti") Try Dim strSQL As String ' Abrir la conexión a Sql cn.Open() txtBanderin.Text = 0 ' Pasar la consulta sql y la conexión al Sql Command Dim cmd As New Odbc.OdbcCommand("select IdApp,NombreAplicacion,NombreArchivo,RutaActualizada,IconApp from FUSAT_AppNombre order by NombreAplicacion asc", cn) ' Inicializar un nuevo SqlDataAdapter Dim da As New Odbc.OdbcDataAdapter(cmd) 'Crear y Llenar un Dataset Dim ds As New DataSet da.Fill(ds) ' asignar el DataSource al combobox With cboApp .DataSource = ds.Tables(0) .ValueMember = "IdApp" .DisplayMember = "NombreAplicacion" End With Me.cboApp.Text = "" cn.Close() strSQL = "select a.IdApp,b.VersionApp,b.TipoCambio,b.Comentarios,c.NombreAplicacion,c.NombreArchivo,c.RutaActualizada,c.IconApp" strSQL = strSQL & " From FUSAT_AppActualizar a, FUSAT_AppOnLine b,FUSAT_AppNombre c" strSQL = strSQL & " where a.IdApp = b.IdApp" strSQL = strSQL & " and b.IdApp = c.IdApp" strSQL = strSQL & " and a.Equipo = '" & Trim(My.Computer.Name) & "'" strSQL = strSQL & " and a.Vigencia = 'S'" strSQL = strSQL & " and b.Vigencia = 'S'" cn.Open() Dim cmd2 As New Odbc.OdbcCommand(strSQL, cn) Dim da2 As New Odbc.OdbcDataAdapter(cmd2) Dim ds2 As New DataSet da2.Fill(ds2) If ds2.Tables(0).Rows.Count > 0 Then Me.txtBanderin.Text = 1 cboApp.SelectedValue = ds2.Tables(0).Rows(0).Item(0).ToString Me.txtOrigen.Text = ds2.Tables(0).Rows(0).Item(6).ToString & "\" & ds2.Tables(0).Rows(0).Item(5).ToString Me.txtDestino.Text = "C:\desarrollo\" & ds2.Tables(0).Rows(0).Item(5).ToString Me.txtRutaIcono.Text = ds2.Tables(0).Rows(0).Item(7).ToString Me.txtRutaActualiza.Text = ds2.Tables(0).Rows(0).Item(6).ToString Me.txtVersion.Text = ds2.Tables(0).Rows(0).Item(1).ToString Me.txtNotas.Text = ds2.Tables(0).Rows(0).Item(3).ToString Me.txtIdApp.Text = ds2.Tables(0).Rows(0).Item(0).ToString cboApp.Enabled = False Else Me.txtNotas.Text = "" End If cn.Close() Catch ex As Exception MessageBox.Show(ex.Message.ToString, _ "error", MessageBoxButtons.OK, _ MessageBoxIcon.Error) Finally AddHandler cboApp.SelectedIndexChanged, AddressOf cboApp_SelectedIndexChanged If cn.State = ConnectionState.Open Then cn.Close() End If End Try
Se que se tentaran en corregir alguna parte del código pero como dije, hice seguimiento linea a linea y demora nada en ejecutarse el load.
¿ Alguna idea ?