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

324 - Filtrar un control DataGrid mediante código de Ado

Ejemplo simple de como filtrar los registros de un control DataGrid al escribir en un control Textbox , utilizando la propiedad Filter del recordset principalmente

El formulario de ejemplo es como el siguiente formulario

vista del formulario de ejemplo en visual basic para poder filtrar datos de un campo y mostrar los registros en el DataGrid

Nota

En el código, se indican tres constantes que se deben cambiar .

constante s_CONNECTION_STRING , es el Connectionstring para la conexión Ado.

La constante SQL para la consulta que se le pasa al recordset

La constante CAMPO_A_FILTRAR que es la columna o campo por el cual realizar el filtrado de los datos

Controles y referencias

1 - Agregar la referencia Microsoft Activex Data Objects para poder acceder a Ado
2 - Agregar un control Datagrid llamado DataGrid1
3 - Un control textbox llamado text1 , para escribir el texto que se le pasa a la propiedad Filter del recorset y filtra los datos
4 - Un control CommandButton para quitar el filtro y volver a mostrar todos los registros en el DataGrid

Nota en el siguiente enlace se encuentra el mismo ejemplo que este , pero para Filtrar el DataGrid usando el control de ADO

También, si se quiere agregar a este formulario de ejemplo, un control donde poder visualizar los campos por el cual filtrar , por ejemplo un comboBox o un Listbox, se puede utilizar Adox . Ejemplo : Obtener campos de una tabla

Código fuente en el formulario

Option Explicit ' Ejemplo para filtrar datos en un datagrid _ >> Controles y referencias : referencia a Ado, un control DataGrid y un Text1 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Indicar en estas tres constantes el valor para la cadena de conexión , el _ valor de la consulta sql para el recordset , y el nombre del campo por el _ cual se va filtrar los datos al escribir en el text1 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Cadena de conexión Private Const s_CONNECTION_STRING As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\Archivos de programa" & _ "\Microsoft Visual Studio\VB98\" & _ "NWIND.MDB;Persist Security Info=False" Private Const SQL As String = "Select * From Proveedores" Private Const CAMPO_A_FILTRAR As String = "NombreContacto" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Variable de tipo Recordset y con evento Private WithEvents Recordset As ADODB.Recordset ' Cuando se produce un error en el recordset se dispara este evento Private Sub Recordset_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) ' Mostramos el error MsgBox " Descripción del Error :" & Description, vbCritical End Sub ' Botón que quita el fitro y vuelve a visualizar _ todos los datos del recordset en el dataGRid Private Sub Command1_Click() ' Comprueba que el recordset está instanciado If Not Recordset Is Nothing Then ' Comprueba que esté abierto If Recordset.State = adStateOpen Then ' Elimina el filtro Recordset.Filter = "" ' Carga el Datagrid Set DataGrid1.DataSource = Recordset ' se posiciona en el primer registro Recordset.MoveFirst End If End If End Sub ' Esto muestra en el caption del formulario la posición _ actual del recordset mediante la propiedad AbsolutePosition Private Sub Recordset_MoveComplete( _ ByVal adReason As ADODB.EventReasonEnum, _ ByVal pError As ADODB.Error, _ adStatus As ADODB.EventStatusEnum, _ ByVal pRecordset As ADODB.Recordset) Me.Caption = " Registro actual: " & CStr(Recordset.AbsolutePosition) End Sub Private Sub Recordset_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() ' Variable para la conexión Ado Dim db As ADODB.Connection ' Nuevo objeto Connection Set db = New ADODB.Connection db.CursorLocation = adUseClient ' Cadena de conexión db.Open s_CONNECTION_STRING ' Nuevo objeto Recordset Set Recordset = New Recordset ' Abre el Recordset con la consulta Recordset.Open SQL, db, adOpenStatic, adLockOptimistic ' Asigna el recordset al datagrid Set DataGrid1.DataSource = Recordset ' Opcional . esto hace que se seleccione la fila completa en el DataGrid DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell Text1 = "" Command1.Caption = "Quitar Filtro" Me.Caption = " Ejemplo para filtrar datos en un DataGrid con Ado " End Sub ' Acá se filtra los datos del control dataGrid al escribir en Text1 '******************************************************************* Private Sub Text1_Change() ' Comprueba que el recordset se halla creado If Recordset Is Nothing Then MsgBox " No se ha creado el recordset", vbCritical Exit Sub End If ' verifica que el recordset se encuentre abierto If Not Recordset.State = adStateOpen Then MsgBox " El recordset no se encuentra abierto", vbCritical Exit Sub End If If Text1 <> "" Then 'Fltra por el campo especificado en la constante CAMPO_A_FILTRAR _ y tomando como valor el dato del textbox Recordset.Filter = CAMPO_A_FILTRAR & " LIKE '*" + Text1.Text + "*'" Else ' Si el textbox no tiene nada, ... se limpia el Filtro Recordset.Filter = "" ' Vuelve a mostrar todos los registros en el dataGRid Set DataGrid1.DataSource = Recordset ' Opcional . Mueve el recordset al primer registro Recordset.MoveFirst End If End Sub ' Cierra el recordset y Descarga la referencia Private Sub Form_Unload(Cancel As Integer) ' Cierra If Recordset.State = adStateOpen Then Recordset.Close End If ' descarga If Not Recordset Is Nothing Then Set Recordset = Nothing End If End Sub

Recursos vb 6.0 - Enlaces relacionados

Recursos vb.net - enlaces relacionados

Filtrar datos en un DataGridView

Buscar en Recursos vb