- Cargo los registros de una tabla en un datagrid con un recordset y quiero agregarle mas filas al datagrid mediante otro recordset pero este es temporal, es decir existen 2 recordset
- Con el command1 cargo los registros del tabla al datagrid1 y quiero que con el command2 se agrege una o mas filas con otro recordset pero en la grilla deben mantenerse los registros de l primero.
En resumen como le sumo los datos del RsTemporal al RsDetalle algo asi
cargo la grilla asi :
Set DataGrid1.DataSource = rsDetalle
y quiero agregarle filas a la grilla con este otro recordset :
Set DataGrid1.DataSource = RsTemporal
De todos modos dejo el codigo:
Código:
Dim RsTemporal As New Recordset Dim rsDetalle As New Recordset Sub ActivaTemporal() 'Creando recordset temporal RsTemporal.CursorType = adOpenStatic RsTemporal.Fields.Append "CodProd", adVarChar, 4, adFldIsNullable RsTemporal.Fields.Append "NomProd", adVarChar, 250, adFldIsNullable RsTemporal.Fields.Append "PrecioVenta", adDouble, 10.2, adFldIsNullable RsTemporal.Open 'Cargamos el datagrid Set DataGrid1.DataSource = RsTemporal End Sub Sub GrabaTemporal() RsTemporal.AddNew RsTemporal.Fields(0) = Text1.Text RsTemporal.Fields(1) = Text2.Text RsTemporal.Fields(2) = Text3.Text RsTemporal.Update End Sub Private Sub Form_Load() ActivaTemporal End Sub Private Sub Command1_Click() 'Cargamos la grilla con la tabla detalle Set rsDetalle = New Recordset rsDetalle.Open "SELECT * FROM Detalle", dbConex, adOpenStatic, adLockOptimistic Set DataGrid1.DataSource = rsDetalle End Sub Private Sub Command2_Click() GrabaTemporal End Sub