elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el ttwitter! de elhacker.NET


  Mostrar Mensajes
Páginas: 1 2 3 4 [5] 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
41  Programación / Programación Visual Basic / Instalar VB 6 WINDOWS 8 en: 6 Enero 2016, 19:01 pm
Hola,


Estoy tratando de instalar VB 6 en windows 8, pero no he podido.

Utilicé ya enlaces como este para poder realizarlo

https://social.msdn.microsoft.com/Forums/es-ES/eee828df-fb42-4bd6-9690-e47fb2a09d51/instalar-visual-basic-60-en-windows-8?forum=vb56es

Donde ellos proponen esto:


1º.- COPIAR EN UNA CARPETA EL VISUAL BASIC. Y LUEGO LO SIGUIENTE.

- Copiar el archivo setup/vs98ent.stf en la raiz del instalador y renombrarlo por acmsetup.stf

- Copiar todo el contenido de la carpeta setup en la raiz del instalador (donde se encuentra acmboot.exe).

- Ejecutar el archivo setup luego acmsetup.exe en la raiz del instalador (donde se encuentra acmboot.exe).

- Eso es todo el instalador del Visual Studio 6 se iniciara.

Nota: El archivo vs98ent.stf tambien puede estar con nombre vs98pro.stf


Bien, el error me dice que no puedo correr aplicaciones de 64 bits.

Ya utilicé el modo de compatibilidad y con permisos de administrador, ya actualicé la consola java

¿Saben algo que me ayude?
42  Programación / .NET (C#, VB.NET, ASP) / Re: No se cierra el proceso excel VB.NET Excel 2007 VS 2010 en: 23 Octubre 2015, 18:01 pm
Gracias Elektro, acaté tus recomendaciones, lo que pasa en el caso de lo que me dijiste del código donde me corregiste (y pues tienes razón), estrictamente debo usar esa clase, pues en TODO el proyecto se apoya en ese objeto y sobretodo sus atributos en el caso de xlworkbook, xlworksheet y xlapplication, ficheros también, entonces cuando utilizo ese objeto los demás métodos se apoyen en él, puesto que el archivo excel se encuentra en background y la idea es que apenas se salga de la aplicación el user pues el archivo efectivamente se cierre.

Y si ves bien, si agarré parte de tus recomendaciones, ¿ Cómo no voy a agarrar tus recomendaciones? si eres un GRAN conocedor!. ¿ Y en donde? Pues en la parte del save y saveworkbook, me puse a pensar sobre el cierre abrupto y como sabrás el Excel cuando se cierra de esa manera pues tiene como un respaldo, eso podría también generar que se conserve el excel en memoria, por tanto el guardado le quita esa posibilidad.

Otra recomendación que acaté es el cierre que me dices, considero que es importante no forzar el cierre.


Con respecto al proceso de EXCEL que no se cierra, efectivamente tengo el administrador de tareas casi que a la par mía y del visual studio y pues corroboré que si cierra.

Un saludo, que estés bien.

43  Programación / .NET (C#, VB.NET, ASP) / Re: No se cierra el proceso excel VB.NET Excel 2007 VS 2010 en: 23 Octubre 2015, 00:46 am
Elektro ya lo logré!!

Este fue el constructor de la clase LibroExcel que utilicé

Código
  1.  
  2. 'Constructores
  3.  
  4.    Public Sub New(ByVal fichero As String)
  5.  
  6.        xlApp = New Excel.Application
  7.  
  8.        xlworkbook = xlApp.Workbooks.Open(fichero)
  9.        xlWorksheet = xlApp.Worksheets.Item(1)
  10.  
  11.  
  12.  
  13.    End Sub
  14.  
  15.  

Acá le asigno el atributo ficheros

Código
  1.  
  2.  
  3.  objeto_excel = New LibroExcel(fichero) 'Crea un nuevo libro
  4.  
  5.  
  6.                    objeto_excel.xApplication.DisplayAlerts = False
  7.                    objeto_excel.ficheros = fichero
  8.  
  9.  



Acá termino el maldito proceso pega -.- (cómo me costó.........)


Código
  1.  
  2.  
  3. Try
  4.  
  5.            If IsFileOpen(fichero) = True Then
  6.  
  7.  
  8.                obj_excel.XWorkBook.Save()
  9.                obj_excel.XWorkBook.Close()
  10.  
  11.  
  12.                obj_excel.xApplication.Workbooks.Close()
  13.                obj_excel.xApplication.Quit()
  14.  
  15.  
  16.                obj_excel.xApplication = Nothing
  17.                obj_excel.XWorkBook = Nothing
  18.                obj_excel.XWorksheet = Nothing
  19.                obj_excel.ficheros = Nothing
  20.  
  21.            Else
  22.  
  23.                releaseObject(obj_excel)
  24.  
  25.            End If
  26.  
  27.        Catch ex As Exception
  28.            MsgBox("Hubo un problema cerrando el programa y/o el archivo.")
  29.        Finally
  30.            End
  31.        End Try
  32.    End Sub
  33.  
  34.  


Agrego que el método file open le hice un cambio, donde no me estaba agarrando el path completo del archivo.

Sugerencias, dudas, críticas estamos a la orden,

GRACIAS ELEKTRO.

44  Programación / .NET (C#, VB.NET, ASP) / Re: No se cierra el proceso excel VB.NET Excel 2007 VS 2010 en: 22 Octubre 2015, 23:40 pm
Mira agregué esto en el código de la clase LibroExcel pero sigue sin cerrarse :(


Código
  1.  
  2. Public Sub New(ByVal fichero As String)
  3.  
  4.        xlApp = New Excel.Application
  5.  
  6.        xlworkbook = xlApp.Workbooks.Open(fichero)
  7.        xlWorksheet = xlApp.Worksheets.Item(1)
  8.  
  9.    End Sub
  10.  
  11.  
  12.    Public Sub liberar_Excel()
  13.  
  14.  
  15.        xlworkbook.Save()
  16.        xlworkbook.Close()
  17.        xlApp.Quit()
  18.  
  19.  
  20.        Marshal.ReleaseComObject(xlworkbook)
  21.        Marshal.ReleaseComObject(xlWorksheet)
  22.        Marshal.ReleaseComObject(xlApp)
  23.  
  24.  
  25.    End Sub
  26.  
  27.  
  28.  
45  Programación / .NET (C#, VB.NET, ASP) / Re: No se cierra el proceso excel VB.NET Excel 2007 VS 2010 en: 22 Octubre 2015, 23:31 pm
Elektro no soy de los que molesta por cada nada, solo que le he dado vueltas y no entiendo tu código, viste que lo que utiliza es una clase?, lo que lleno son sus atributos, al final ocupo utilizar ese objeto pues todo el proyecto utiliza ese objeto.

Con respecto al end, ese código es de un botón el cuál es para salir del programa, el END es para salir, talvez el orden esté mal, si lo está pues estoy anuente a recibir opiniones o críticas-


Código
  1.  
  2.  
  3.    Dim excelApp as Excel.Application = objeto_excel.xApplication
  4.  
  5.    Dim workbooks As ...? = excelApp.Workbooks
  6.    Dim workbook As Excel.Workbook = workbooks.Open(Arch)
  7.  
  8.    Dim xWorkBook As Excel.Workbook = excelApp.XWorkBook
  9.    Dim worksheets As Excel.Worksheets = xWorkBook.Worksheets
  10.    Dim worksheet As Excel.Worksheet = worksheets.Item(1)
  11.  
  12.  
46  Programación / .NET (C#, VB.NET, ASP) / Re: No se cierra el proceso excel VB.NET Excel 2007 VS 2010 en: 22 Octubre 2015, 20:22 pm
Gracias Elektro, lo probaré y te estaré contando como me fue, muchas gracias por dedicar tiempo a la respuesta.
47  Programación / .NET (C#, VB.NET, ASP) / Re: No se cierra el proceso excel VB.NET Excel 2007 VS 2010 en: 22 Octubre 2015, 18:01 pm
Tengo esta forma pero me vuela todos los exceles y es muy violenta, alguno sabrá de otra manera o que está haciendo mal?

Código
  1.  
  2. Sub KillAllExcels()
  3.  
  4.        Try
  5.  
  6.  
  7.  
  8.            Dim proc As System.Diagnostics.Process
  9.  
  10.  
  11.  
  12.            For Each proc In System.Diagnostics.Process.GetProcessesByName("EXCEL")
  13.  
  14.                If proc.MainWindowTitle.Trim.Length = 0 Then
  15.  
  16.                    'proc.GetCurrentProcess.StartInfo
  17.  
  18.                    proc.Kill()
  19.  
  20.                End If
  21.  
  22.            Next
  23.  
  24.        Catch ex As Exception
  25.  
  26.            My.Computer.FileSystem.WriteAllText("C:\errores.log", Format(Now, "01/MM/yyy HH:mm") & " - " & ex.Message & vbCrLf, True)
  27.  
  28.        End Try
  29.  
  30.    End Sub
  31.  
48  Programación / .NET (C#, VB.NET, ASP) / No se cierra el proceso excel VB.NET Excel 2007 VS 2010 en: 22 Octubre 2015, 00:46 am
Hola,

Estoy utilizando un archivo de excel, todo bien simplemente que cuando quiero terminar y/o cerrar el archivo de excel pues no se cierra.

Acá lo asigno
Código
  1.  
  2. objeto_excel = New LibroExcel() 'Crea un nuevo libro
  3.                    objeto_excel.xApplication = New Excel.Application() 'Crea una nueva aplicación
  4.  
  5.                    objeto_excel.xApplication.DisplayAlerts = False
  6.                    objeto_excel.XWorkBook = objeto_excel.xApplication.Workbooks.Open(Arch) 'Realiza una nueva aplicación con un nuevo libro a abrir.
  7.                    objeto_excel.XWorksheet = objeto_excel.XWorkBook.Worksheets.Item(1) 'Asigna la hoja de excel
  8.                    objeto_excel.ficheros = fichero
  9.  
  10.  

Acá lo cierro ( Código forzoso pues no cierra!!!)

Código
  1.  
  2.  
  3. Try
  4.  
  5.            If IsFileOpen(fichero) = False Then
  6.                End
  7.                GC.Collect()
  8.            Else
  9.  
  10.                obj_excel.XWorksheet = Nothing
  11.                GC.Collect()
  12.  
  13.                obj_excel.XWorkBook.Close()
  14.                obj_excel.XWorkBook = Nothing
  15.  
  16.                GC.Collect()
  17.  
  18.                obj_excel.xApplication.Quit()
  19.                obj_excel.xApplication = Nothing
  20.  
  21.                GC.Collect()
  22.  
  23.                obj_excel.ficheros = Nothing
  24.  
  25.                GC.Collect()
  26.  
  27.                releaseObject(obj_excel)
  28.  
  29.                End
  30.            End If
  31.  
  32.        Catch ex As Exception
  33.            MsgBox("Hubo un problema cerrando el programa y/o el archivo.")
  34.            End
  35.        End Try
  36.  
  37.  


Acá la clase libro

Código
  1.  
  2.  Private xlApp As Excel.Application
  3.    Private xlWorksheet As Excel.Worksheet
  4.    Private xlworkbook As Excel.Workbook
  5.    Private fichero As String
  6.  
  7.    'Propiedades accesoras
  8.  
  9.    Public Property xApplication() As Excel.Application
  10.        Get
  11.            Return Me.xlApp
  12.        End Get
  13.        Set(ByVal Value As Excel.Application)
  14.            Me.xlApp = Value
  15.        End Set
  16.    End Property
  17.  
  18.  
  19.    Public Property XWorkBook() As Excel.Workbook
  20.        Get
  21.            Return Me.xlworkbook
  22.        End Get
  23.        Set(ByVal Value As Excel.Workbook)
  24.            Me.xlworkbook = Value
  25.        End Set
  26.    End Property
  27.  
  28.    Public Property XWorksheet() As Excel.Worksheet
  29.        Get
  30.            Return Me.xlWorksheet
  31.        End Get
  32.        Set(ByVal Value As Excel.Worksheet)
  33.            Me.xlWorksheet = Value
  34.        End Set
  35.    End Property
  36.  
  37.    Public Property ficheros() As String
  38.        Get
  39.            Return Me.fichero
  40.        End Get
  41.        Set(ByVal Value As String)
  42.            Me.fichero = Value
  43.        End Set
  44.    End Property
  45.  
  46.  
  47.  






49  Programación / .NET (C#, VB.NET, ASP) / Re: Consulta dataset tipado, VS.NET 2010 VB.NET[SOLUCIONADO] en: 17 Octubre 2015, 21:01 pm
Ya lo resolví!!, usé esto

Código
  1.  
  2. Dim CrReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
  3.                ' Asigno el reporte
  4.  
  5.  
  6.                CrReport = New CrystalDecisions.CrystalReports.Engine.ReportDocument()
  7.  
  8.                'ds = obj_data.llenar_dataset(Convert.ToInt32(lblConsecutivo.Text))
  9.  
  10.                CrReport.FileName = "CrystalReport1.rpt"
  11.  
  12.                'Ruta del reporte
  13.                str_path_factura = System.Windows.Forms.Application.StartupPath & "\" & "CrystalReport1.rpt"
  14.  
  15.                CrReport.Load(str_path_factura)
  16.                CrReport.SetDataSource(obj_data.llenar_dataset(Convert.ToInt32(lblConsecutivo.Text)))
  17.                CrReport.PrintToPrinter(False, False, False, False)
  18.  
  19.  
50  Programación / .NET (C#, VB.NET, ASP) / Consulta dataset tipado, VS.NET 2010 VB.NET en: 17 Octubre 2015, 19:52 pm
Buenas,

Estoy realizando un crystal report, el crystal report se llena con un dataset, donde es un objeto xsd donde le defino previamente sus datatables, la cuestión es que realizo una consulta y el dataset debería en buena teoría llenarse con la misma, pero resulta que no lo hace sino que queda vacío, como hago para llenar ese dataset desde el código para luego simplemente pasarselo lleno al crystal report y generar la consulta?.


Este es el código que tengo, el cuál recibe como parámetro un entero, este mismo retorna un dataset, el cuál según yo debería llenar al item xsd que definí con el diseñador de visual studio, porque el crystal jala ese datasource de ese dataset y de ahí simplemente debería desplegar los campos

No lo hago desde el wizard poque queda completamente suspeditado a una ruta del archivo de access y bueno para hacer un datasource dinámico es un poco engorroso desde el wizard, entonces simplemente decidí hacerlo desde un dataset y que en tiempo de ejecución lo llene
Código
  1.  
  2. Public Function llenar_dataset(ByVal fact As Integer) As DataSet
  3.  
  4.  
  5.        Dim cmd2 As OleDb.OleDbCommand = Nothing
  6.        Dim ds As New DS_Tablas
  7.  
  8.  
  9.  
  10.        conn.Open()
  11.  
  12.        cmd = New OleDb.OleDbCommand("SELECT *  FROM tbl_HEADER  WHERE ID_CONSECUTIVO = @Id", conn)
  13.        cmd.Parameters.AddWithValue("Id", fact)
  14.        cmd.ExecuteNonQuery()
  15.  
  16.        Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
  17.  
  18.  
  19.        cmd2 = New OleDb.OleDbCommand("SELECT *  FROM tbl_DETAIL  WHERE COD_FACTURA = @Id_det", conn)
  20.        cmd2.Parameters.AddWithValue("Id_det", fact)
  21.        cmd2.ExecuteNonQuery()
  22.  
  23.  
  24.        Dim da2 As OleDbDataAdapter = New OleDbDataAdapter(cmd2)
  25.  
  26.  
  27.  
  28.        da.Fill(ds, "tbl_HEADER")
  29.        da2.Fill(ds, "tbl_DETAIL")
  30.  
  31.        conn.Close()
  32.  
  33.  
  34.        Return ds
  35.  
  36.    End Function
  37.  
  38.  

Acá el código que genera el crystal, el cuál la ruta y lo demás lo hace bien, simplemente sale vacío

Código
  1.  
  2. CrReport = New CrystalDecisions.CrystalReports.Engine.ReportDocument()
  3.  
  4.                ds = obj_data.llenar_dataset(Convert.ToInt32(lblConsecutivo.Text))
  5.  
  6.                CrReport.FileName = "CrystalReport1.rpt"
  7.  
  8.                'Ruta del reporte
  9.                str_path_factura = System.Windows.Forms.Application.StartupPath & "\" & "CrystalReport1.rpt"
  10.  
  11.                CrReport.Load(str_path_factura)
  12.  
  13.                'Esto es código provisional, simplemente es para saber si el dataset está lleno o no
  14.                If ds.Tables("tbl_HEADER").Rows.Count() = 0 Or ds.Tables("tbl_DETAIL").Rows.Count() Then
  15.  
  16.                    MsgBox("Tablas vacías")
  17.                Else
  18.                    MsgBox("Tu dataset está lleno chico")
  19.  
  20.  
  21.                    MsgBox(ds.Tables("tbl_HEADER").Rows.Count().ToString)
  22.                    MsgBox(ds.Tables("tbl_DETAIL").Rows.Count().ToString)
  23.                End If
  24.  
  25.                CrReport.SetDataSource(ds.Tables(0))
  26.                CrReport.SetDataSource(ds.Tables(1))
  27.  
  28.                'CrReport.PrintToPrinter(False, False, False, False)
  29.  




Pues acá está el código pero le dataset sale vacío y por tanto el reporte igual.

GRACIAS POR LEER
Páginas: 1 2 3 4 [5] 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines