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

349 - Buscar y filtrar registros en un Microsoft Hierarchical Flexgrid

Ejemplo simple que filtra los registros mediante la instrucción Like al escribir en un control Textbox para luego visualizarlos en un MSHFlexgrid

Al escribir en el control Textbox, se traen al recordset los registros que contengan la palabra o dato escrito en cualquier parte de la cadena.

El formulario de ejemplo utiliza la base de datos Biblio ubicada en la carpeta de instalación de visual basic. ( Tabla Authors )

En este caso como se ve en la figura solo se utilizan dos textbox, y en la consulta SQL se seleccionan solo dos campos de la tabla Authors ( Campos AU_ID y campo Author )

Controles

Un Microsoft Hierarchical Flexgrid
Dos Textox

Código fuente en el formulario

Option Explicit Public cn As ADODB.Connection Public rst As ADODB.Recordset Sub Conectar() ' Crea una nueva conexión y un recordset Set cn = CreateObject("ADODB.Connection") Set rst = CreateObject("ADODB.Recordset") rst.CursorLocation = adUseClient ' abre la base de datos cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _ "Source=C:\Archivos de programa\Microsoft " & _ "Visual Studio\VB98\BIBLIO.MDB;Persist Security Info=False" End Sub Sub Desconectar() rst.Close cn.Close Set rst = Nothing Set cn = Nothing End Sub Private Sub Form_Load() With MSHFlexGrid1 .SelectionMode = flexSelectionByRow .FixedCols = 0 .ColWidth(1) = 4000 End With Text1.Text = "" Text2.Text = "" End Sub Public Sub Text1_Change() ' conecta a la base de datos Call Conectar ' abre el recordset rst.Open "SELECT Au_ID,Author FROM Authors WHERE Au_ID Like '%" & _ Text1.Text & "%'", cn, adOpenStatic, adLockOptimistic ' Muestra los datos en el FlexGrid Set MSHFlexGrid1.DataSource = rst ' Visualiza la cantidad de registros filtrados Me.Caption = "Registros encontrados: " & CStr(rst.RecordCount) ' Desconecta Call Desconectar End Sub Private Sub Text1_GotFocus() Text2.Text = "" End Sub Private Sub Text2_Change() ' conecta Call Conectar ' Ejecuta la consulta SQL rst.Open "SELECT Au_ID,Author FROM Authors WHERE Author Like '%" & _ Text2.Text & "%'", cn, adOpenStatic, adLockOptimistic ' Enlaza el FlexGRid Set MSHFlexGrid1.DataSource = rst ' Cantidad de registros Me.Caption = "Registros encontrados: " & CStr(rst.RecordCount) ' Desconecta de la base de datos Call Desconectar End Sub Private Sub Text2_GotFocus() Text1.Text = "" End Sub

Nota: si se desea que al escribir en los controles TextBox, Filtre y busque teniendo en cuenta , el comienzo de la cadena, y no en cualquier parte de la misma, en la consulta SQL, quitar el último "%".

Recursos vb - Enlaces relacionados

Recursos vb.net - Relacionados

Filtrar datos en un control BindingSource y dataGridView

Buscar en Recursos vb