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

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

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,

Vista de los controles del formulario para el ejemplo que filtra los datos en el Datagrid

Código fuente en el Form

Option Explicit '********************************************************************* 'Filtrar Datagrid con el control Ado ' Agregar un control Adodc , un datagrid, un Combo1 y un Text1 ' En el combobox cargar los campos de la tabla '********************************************************************* 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" ' Tipo de Comando Adodc1.CommandType = adCmdText ' Consulta Sql Adodc1.RecordSource = "Select * From Authors" Adodc1.Refresh ' asigna el recordset al datagrid Set DataGrid1.DataSource = Adodc1.Recordset DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell ' Importante: cargar acá en el combobox los campos '**************************************************** Combo1.Text = "Author" Me.Caption = " Ejemplo para filtrar datos en un control Ado y DataGrid " End Sub ' Acá se filtra los datos del control dataGrid al escribir en Text1 '******************************************************************* Private Sub Text1_Change() If Text1 <> "" Then 'Fltra por el campo especificado en Combo1 ( Combo1 es el campo ) Adodc1.Recordset.Filter = Combo1 & " LIKE '*" + Text1 + "*'" Set DataGrid1.DataSource = Adodc1.Recordset Else ' Limpia el Filtro Adodc1.Recordset.Filter = "" End If ' Refresca el control Ado Adodc1.Refresh End Sub

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