Sección de códigos , trucos y ejemplos para visual basic

221 - Eliminar registro en un MSHFlexGrid

Contenido

Eliminar registro en Flexgrid
Igual pero permite eliminar también un rango de selección
Enlaces relacionados

Eliminar registro en Flexgrid

Ejemplo simple que al presionar un CommandButton elimina la Fila seleccionada del control MSHFlexgrid el cual está enlazado a una base de datos mediante ADO

Colocar

un control MsHFlexGrid
la referencia a Microsoft Activex Data Object para poder acceder a ADO
y un Command para eliminar el registro de la bd

Nota: especificar en la línea: TextMatrix(.Row, 1), que campo se va a tener en cuenta para eliminar, y también indicar en la cadena sql, el campo y el nombre de la tabla

Código fuente en un formulario

'Variables para la conexión y para el recordset ADODB Dim Cnn As ADODB.Connection Dim Rst As ADODB.Recordset Private Sub Command1_Click() With MSHFlexGrid1 If .Row <= 0 Then MsgBox " No hay ninguna fila seleccionada para eliminar ", vbExclamation Exit Sub End If 'Especificar la columna por la cual eliminar El_Dato = .TextMatrix(.Row, 1) 'Cadena SQL. ( INDICAR LA TABLA y EL CAMPO ) 'La_Tabla = "Productos" 'El_Campo = "Id" Sql = "DELETE * FROM " & La_Tabla & " WHERE " & El_Campo & "=" & El_Dato If MsgBox("Eliminar el Registro ?", _ vbQuestion + vbYesNo) = vbNo Then Exit Sub End If ' Elimina el registro Cnn.Execute Sql ' deshabilitar el redraw para el MSHFlexGrid .Redraw = False ' Vuelve a cargar el FlexGrid para reflejar el cambio Set .DataSource = Nothing ' ejecutar el Requery para volver a llenar el recordset con los cambios Rst.Requery Set .DataSource = Rst ' Volver a habilitar el redraw para el control MSHFlexGrid .Redraw = True End With End Sub Private Sub Form_Load() ' ruta de la base de datos Dim path_bd As String path_bd = App.Path & "\bd1.mdb" With MSHFlexGrid1 'Crear una Nueva conexión Set Cnn = New ADODB.Connection 'Abre la bd pasando de la cadena de conexión OLEDB Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ path_bd & ";Persist Security Info=False" 'Crear un Nuevo recordset Set Rst = New ADODB.Recordset ' Llenar el Recorset Rst.Open Cadena_SQL, Cnn, adOpenDynamic, adLockBatchOptimistic, adCmdText 'Enlazar y Cargar el FlexGrig Set .DataSource = Rst 'Seleccionar por fila .SelectionMode = flexSelectionByRow Command1.Caption = " Eliminar registro " End With End Sub Private Sub Form_Unload(Cancel As Integer) On Local Error Resume Next 'Cierra el recordset y la conexión Rst.Close Set Rst = Nothing Cnn.Close Set Cnn = Nothing End Sub

Nota: tambiés podés ver este código fuente, para agregar, eliminar, editar datos de una base de datos mediante un control flexgrid :

Eliminar una fila o un rango de selección

Este ejemplo es practicamente igual al anterior, pero contiene algunas líneas mas de código para poder, además de eliminar la fila activa del Grid ( Obtenida por la propiedad .Row ), un rango de selección. En este caso se consultan las propiedades Row y RowSel del Flexgrid para obtener las filas seleccionadas y luego se recorre dicho rango en un bucle y se ejecuta la consulta de eliminación de datos para eliminar los registros de la tabla Productos. Los registros se eliminan por el campo Id de producto.

Descargar ejemplo

Captura del formulario

Código fuente

Option Explicit ' ---------------------------------------------------------------------------------------------- ' \\ -- Descripción : Ejemplo simple para eliminar un registro solo o un rango de filas seleccionado ' -- Autor : Luciano Lodola -- http://www.recursosvisualbasic.com.ar/ ' ---------------------------------------------------------------------------------------------- ' ---------------------------------------------------------------------------------------------- ' -- Declaraciones Private Declare Function SetErrorMode Lib "kernel32" (ByVal wMode As Long) As Long Private Declare Sub InitCommonControls Lib "Comctl32" () Dim cn As ADODB.Connection Dim Rs As ADODB.Recordset ' ----------------------------------------------------------------------------------------- ' \\ -- Función para cargar la tabla en la grilla y otras opciones ' ----------------------------------------------------------------------------------------- Private Sub pv_Flexgrid_Initialize(MSHFlex As MSHFlexGrid, cn As ADODB.Connection) ' -- Declarar y crear el recordset Set Rs = New ADODB.Recordset ' -- Ejecutar el command SQL de la tabla productos With Rs .CursorLocation = adUseClient ' -- Ejecutar comando SQL .Open "SELECT [IDProducto],[NombreProducto],[UnidadesEnExistencia],[PrecioUnidad] From Productos Order by [IdProducto]", cn, adOpenStatic, adLockOptimistic End With With MSHFlex .AllowUserResizing = flexResizeColumns .FixedCols = 0 .FixedRows = 1 .ForeColorFixed = vbHighlight .BackColorFixed = vbWhite .GridLinesFixed = flexGridDots .RowHeight(0) = 450 .GridColor = RGB(190, 190, 190) .SelectionMode = flexSelectionByRow Set .DataSource = Rs Dim i As Integer For i = 0 To .Cols - 1 .ColWidth(i) = 1700 Next .Refresh End With End Sub ' ----------------------------------------------------------------------------------------- ' \\ -- Sub para ejecutar la consulta de eliminación ' ----------------------------------------------------------------------------------------- Private Sub ExecuteQuery(cn As ADODB.Connection, sQuery As String) On Error GoTo Error_Handler ' -- Llamar al método Execute para Eliminar el registro cn.Execute sQuery Exit Sub Error_Handler: MsgBox Err.Description, vbCritical End Sub ' ----------------------------------------------------------------------------------------- ' \\ -- Botón para eliminar el registro ' ----------------------------------------------------------------------------------------- Private Sub Command1_Click() On Error GoTo Error_Handler Dim sQuery As String With MSHFlexGrid1 ' -- Comprobar que hay una fila activa If .Row <= 0 Then MsgBox " No hay ninguna fila seleccionada para eliminar ", vbExclamation Exit Sub End If ' -- Mostrar en un mensaje la cantidad de filas a eliminar If MsgBox("Se van a eliminar " & CStr(Abs(.Row - .RowSel) + 1) & " registros ... ¿ Continuar?", vbQuestion + vbYesNo) = vbNo Then Exit Sub End If ' -- Obtener valores del rango seleccionado Dim i As Long Dim j As Long Dim k As Long If .Row < .RowSel Then i = .Row: j = .RowSel If .Row > .RowSel Then j = .Row: i = .RowSel If .Row = .RowSel Then i = .Row: j = .Row ' -- Recorrer en un bucle el rango de selección For k = i To j .Row = k sQuery = "DELETE * FROM [Productos] WHERE [IdProducto] = " & CLng(.TextMatrix(.Row, 0)) Call ExecuteQuery(cn, sQuery) Next ' -- Deshabilitar el redraw para el MSHFlexGrid .Redraw = False ' -- Cargar nuevamente el Grid para actualizar los datos Set .DataSource = Nothing ' -- Ejecutar el método Requery para volver a cargar el recordset actualizado Rs.Requery ' -- Enlazar el conjunto de datos con el Grid Set .DataSource = Rs ' -- Volver a habilitar el repintado del control Flex .Redraw = True End With ' -- Errores Exit Sub Error_Handler: MsgBox Err.Description, vbCritical End Sub ' -------------------------------------------------------------------------------------------- ' \\ -- Inicio ' -------------------------------------------------------------------------------------------- Private Sub Form_Load() ' -- ruta de la base de datos Dim path_bd As String path_bd = App.Path & "\data\db1.mdb" With MSHFlexGrid1 ' --Crear una Nueva conexión Set cn = New ADODB.Connection ' -- Abre la bd pasando de la cadena de conexión OLEDB cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path_bd & ";Persist Security Info=False" Call pv_Flexgrid_Initialize(MSHFlexGrid1, cn) End With End Sub ' -------------------------------------------------------------------------------------------- ' \\ -- Fin -- Descargar ' -------------------------------------------------------------------------------------------- Private Sub Form_Unload(Cancel As Integer) If Not Rs Is Nothing Then If Rs.State = adStateOpen Then Rs.Close Set Rs = Nothing End If Call pvCloseDataBase End Sub ' -------------------------------------------------------------------------------------------- ' \\ -- Iniciar InitCommonControls ' -------------------------------------------------------------------------------------------- Private Sub Form_Initialize() Call SetErrorMode(2) Call InitCommonControls End Sub ' -------------------------------------------------------------------------------------------- ' \\ -- Cerrar conexión ' -------------------------------------------------------------------------------------------- Private Sub pvCloseDataBase() If Not cn Is Nothing Then If cn.State = adStateOpen Then cn.Close Set cn = Nothing End If End Sub

Recursos vb6 - Enlaces relacionados

Otros ejemplos sobre el control Microsoft FlexGRid

Buscar en Recursos vb