RecordSet Virtual

Recordset es una estructura de datos usada en programación cuya utilidad es la de almacenar información desde una tabla de una base de datos. Se usa con frecuencia para obtener conexiones con bases de datos y almacenar el resultado de las posibles consultas que se realicen. 

Link de Consulta

Tuve que crear un Recordset Virtual para hacer unas pruebas de edición en un datagrid en Visual Basic 6.0, ya que ocupo mostrar en otra pantalla los datos modificados más los campos que quiero que se descuenten en mi Tabla en mi Base de Datos.

Bueno el código que utilice fue el siguiente:

Dim Virtual As New ADODB.Recordset

        With Virtual
       
            .CursorLocation = adUseClient
            .CursorType = adOpenDynamic
            
            .Fields.Append "Nombre del Campo en el Datagrid", adVariant
            .Fields.Append "Nombre del Campo en el Datagrid", adVariant
            .Fields.Append "Nombre del Campo en el Datagrid", adVariant
            .Fields.Append "Nombre del Campo en el Datagrid", adVariant
            .Fields.Append "Nombre del Campo en el Datagrid", adVariant
                       
        End With
        
        With Virtual
       .Open
              'Para Agregar Campos en el datagrid
                    .AddNew
                    
             .Fields(0) = "Datos que quiero agregar en las filas del DataGrid"
             .Fields(1) = "Datos que quiero agregar en las filas del DataGrid"
             .Fields(2) = "Datos que quiero agregar en las filas del DataGrid"                         
             .Fields(3) = "Datos que quiero agregar en las filas del DataGrid"                  
             .Fields(4) = "Datos que quiero agregar en las filas del DataGrid"                 
               
                  .AddNew
                 
             .Fields(0) = "Datos que quiero agregar en las filas del DataGrid"
             .Fields(1) = "Datos que quiero agregar en las filas del DataGrid"
             .Fields(2) = "Datos que quiero agregar en las filas del DataGrid"                         
             .Fields(3) = "Datos que quiero agregar en las filas del DataGrid"                  
             .Fields(4) = "Datos que quiero agregar en las filas del DataGrid"                   
                               
        .MoveFirst
   
                                       
        End With
 
        Set Me.DataGrid1.DataSource = Virtual
        Me.DataGrid1.Refresh

Espero sea de ayuda para cada uno de ustedes.

Saludos!!!