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

410 - Borrar control DbGrid

Eliminar todo el contenido de un control DbGrid

Ejemplo enviado por : Gustavo Andrés Castillo Flores

Colocar

un Command en el formulario donde deseamos borrar la información
y en el botón el siguiente código :

Código fuente

Private Sub Command1_Click() Dim borrar borrar = MsgBox("ADVERTENCIA: Con esto, todos los datos de " & _ "incidencias quederán eliminados. ¿Confirma que desea continuar?", _ vbExclamation + vbYesNoCancel, "Borrar registros") If borrar = vbYes Then If (Data1.Recordset.BOF Or Data1.Recordset.EOF) Then Dim nodata nodata = MsgBox("No hay incidencias que eliminar", vbInformation, "Sin datos") Data1.UpdateControls Else Do Data1.Recordset.Delete Data1.Recordset.MoveNext Loop Until dtIncidencias.Recordset.EOF End If End If End Sub

Enlaces relacionados

Control DataGrid y DbGrid - Ejemplos

Buscar en Recursos vb