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

175 - Filtrar datos en un DataGrid

Ejemplo que muestra como filtrar los registros de un control DataGrid enlazado a un control ADO, al escribir en un control Textbox

Para filtrar los datos en el control datagrid al escribir en el Text, se especifica en la propiedad Filter del control ADO, el campo y el dato a filtrar mediante la instrucción Like

Controles

Para el ejemplo colocar un control ADODC llamado ADODC1. No es necesario utilizar el asistente para Conectarlo a la base de datos ya que se realiza mediante código, tanto en en la propiedad ConnectionString como en la propiedad Recordsource
Un control DataGrid llamado DataGrid1
Luego un ComboBox y llenarlo con los campos de la tabla.
También Colocar un text1 donde se ingresará el dato a filtrar,

Captura de pantalla

Código fuente en el Form

Option Explicit '********************************************************************* ' -- Autor : Luciano Lodola -- http://www.recursosvisualbasic.com.ar/ ' -- Descripción : Filtrar Datagrid con el control Ado ' -- Controles : Agregar un control Adodc , un datagrid, un Combo1 y un Text ' -- En el combobox cargar los campos de la tabla ( Los campos deben ser de tipo String ) '********************************************************************* ' \\ Declaraciones Apis ( para el manifest y los temas de windows) ' ------------------------------------------------------------------------------------------ Private Declare Function SetErrorMode Lib "kernel32" (ByVal wMode As Long) As Long Private Declare Sub InitCommonControls Lib "Comctl32" () Private Sub Form_Initialize() Call SetErrorMode(2) Call InitCommonControls End Sub Private Sub Adodc1_Error( _ ByVal ErrorNumber As Long, _ Description As String, _ ByVal Scode As Long, _ ByVal Source As String, _ ByVal HelpFile As String, _ ByVal HelpContext As Long, _ fCancelDisplay As Boolean) 'Aquí es donde puede colocar el código de control de errores 'Si desea pasar por alto los errores, marque como comentario la siguiente línea 'Si desea detectarlos, agregue código aquí para controlarlos MsgBox " DEscripción del Error :" & Description End Sub Private Sub Adodc1_MoveComplete( _ ByVal adReason As ADODB.EventReasonEnum, _ ByVal pError As ADODB.Error, _ adStatus As ADODB.EventStatusEnum, _ ByVal pRecordset As ADODB.Recordset) ' -- Esto mostrará la posición de registro actual para este Recordset Adodc1.Caption = " Registro actual: " & CStr(Adodc1.Recordset.AbsolutePosition) End Sub Private Sub Adodc1_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) ' -- Aquí se coloca el código de validación ' -- Se llama a este evento cuando ocurre la siguiente acción Dim bCancel As Boolean Select Case adReason Case adRsnAddNew Case adRsnClose Case adRsnDelete Case adRsnFirstChange Case adRsnMove Case adRsnRequery Case adRsnResynch Case adRsnUndoAddNew Case adRsnUndoDelete Case adRsnUndoUpdate Case adRsnUpdate End Select If bCancel Then adStatus = adStatusCancel End Sub Private Sub Form_Load() ' ConnectionString Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\Archivos de program" & _ "a\Microsoft Visual Studio\VB98\BIBLIO." & _ "MDB;Persist Security Info=False" ' -- Configurar el Control ADO With Adodc1 ' -- establecer el tipo de Comando ( Consulta SQL ) .CommandType = adCmdText ' -- Asignar la consulta Sql ( seleccionar la tabla de la base de datos DEMO de vb) .RecordSource = "Select * From Authors" ' -- refrescar el control .Refresh ' -- Asignar el recordset al datagrid Set DataGrid1.DataSource = Adodc1.Recordset ' -- Selecionar el Grid por fila DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell ' -- Ocultar el control ADODC .Visible = False End With ' -- Importante: cargar acá en el combobox los campos ' -- ( Asi como está el ejemplo es para campos de tipo String , no numericos ) ' --------------------------------------------------------------------------------------------------------- With Combo1 Combo1.Text = "Author" End With Text1 = "" Me.Caption = " Ejemplo para filtrar datos en un control Ado y DataGrid " End Sub ' ----------------------------------------------------------------------------- ' \\ -- Filtrar los datos del control dataGrid al escribir en la caja de texto ' ----------------------------------------------------------------------------- Private Sub Text1_Change() On Error GoTo error_Handler With Adodc1 If Text1 <> "" Then ' -- Fltrar por el campo especificado en Combo1 .Recordset.Filter = Combo1 & " LIKE '*" + Text1 + "*'" ' -- Enlazar el Grid con el recordset Set DataGrid1.DataSource = Adodc1.Recordset Else ' Limpiar el Filtro .Recordset.Filter = "" End If ' -- Refrescar el control ADO .Refresh End With Exit Sub ' -- errores error_Handler: ' -- Este error se produce al buscar en un campo que no existe If Err.Number = 3265 Then MsgBox "el campo seleccionado no es válido", vbCritical Else MsgBox Err.Description, vbCritical End If End Sub

Descargar el código fuente

Recursos vb6 - Enlaces relacionados a Filtrar

Recursos vb.net - Relacionados

Filtrar BindingSource y enlazarlo a un DataGridview en visual basic.net 2005

Buscar en Recursos vb