Wally Soft

Trabajar con un Recordset «desconectado»

El siguiente ejemplo le mostrará cómo trabajar con un objeto Recordset desconectado, insertando, modificando y eliminando registros con un controlDataGrid, actualizando los datos de la tabla mediante la ejecución de una actualización por lotes.

El ejemplo trabajará con una copia de la tabla Clientes de la base de datos Neptuno, de esta formaimpedimos que la tabla original queda dañada.

Para ejecutar el ejemplo necesitará insertar un control DataGrid y dos controles CommandButton en el formulario de inicio del proyecto. Copie y pegue elsiguiente código en la sección Declaraciones del formulario de inicio del proyecto.

Option Explicit

' Declaración de variables objeto a nivel del formulario
Private mCnn As ADODB.ConnectionPrivate mRst As ADODB.Recordset

Private Sub Command1_Click()
' Conectamos el Recordset para proceder a la
' actualización
Set mRst.ActiveConnection = mCnn

' Actualizamos el conjuntode datos
mRst.UpdateBatch

' Desconectamos de nuevo el objeto Recordset
Set mRst.ActiveConnection = Nothing

End Sub

Private Sub Command2_Click()

If (MsgBox("¿Deseaeliminar la tabla temporal?", _
vbInformation + vbYesNo) = vbYes) Then
'
' Eliminamos la tabla ...
mCnn.Execute "DROP TABLE Tabla1"

' Descargamos el formularioUnload Me
End If

End Sub

Private Sub Form_Load()

On Error GoTo ErrFormLoad

' Configuramos los distintos controles del formulario
Command1.Caption = "Actualizar"Command2.Caption = "Eliminar tabla temporal"

With DataGrid1
.AllowAddNew = True
.AllowDelete = True
End With

' Creamos un nuevo objeto Connection
SetmCnn = New ADODB.Connection

' Abrimos la conexión
With mCnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source = C:\Mis documentos\Neptuno.mdb"...