Quantcast
Channel: Ejecutable tarda mucho en abrir
Viewing all articles
Browse latest Browse all 8

Ejecutable tarda mucho en abrir

0
0

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 ?


Viewing all articles
Browse latest Browse all 8

Latest Images





Latest Images