Crear variables con Eventos (por Ejemplo un RecordSet)

dfonseca1 Comentario
Este código es super sencillo :D, solo recuerda que debe existir la referencia a la librería del ADO Option Explicit Dim WithEvents Rs As Recordset Y tu variable Rs tendrá eventos como si fuera un control pegado en el formulario, puedes hacer esto con todas las variables tipo objetos (y que tenga eventos) Private Sub rs_EndOfRecordset(fMoreData As Boolean, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) End Sub Private Sub rs_FetchComplete(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) End Sub Private Sub rs_FetchProgress(ByVal Progress As Long, ByVal MaxProgress As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) End…

Llamar a Excel y llenarlo con datos de un RecordSet

dfonsecaDeja un comentario
Con este código podrás llenar una hoja de Microsoft Excel usando un Recordset, lo que se hace es abrir el EXCEL, manipular las celdas como si fuera código VBA (Visual Basic for Aplication), es decir, como una MACRO, y luego grabarlo y cerrarlo. en el siguiente código ya asumo que tienes un Recordset con datos listos para ser pasado a la hoja de calculo. Hacer referencia a Microsoft Excel Objetc Private Sub LlenaExcel() Dim prgExcel As Excel.Application Set prgExcel = New Application prgExcel.Workbooks.Add prgExcel.Sheets(1).Name = "Prueba" Dim i As Integer Dim j As Integer j = 1 Do While Not…