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

451 - Like con ado y TabStrip

Simple ejemplo que usa la instrucción Like de SQL para traer a un recordset ADO y filtrar los registros de una tabla, al seleccionar un item de un control tabstrip

form

vista previa del formulario con el tabstrip y los datos filtrados

Descargar

Código fuente

Option Explicit ' variable Connection y Recordset Dim cn As ADODB.Connection Dim Rs As ADODB.Recordset Private Sub Form_Load() With TabStrip1 .Tabs.Clear ' borra todos los tabs con el método Clear Dim i As Integer ' crea un tab para cada letra del abecedario For i = 65 To 90 .Tabs.Add , , Chr$(i) Next End With ' Crea y abre la conexión Set cn = New ADODB.Connection With cn .CursorLocation = adUseClient ' cadena de conexión .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "\db1.mdb" & _ ";Persist Security Info=False" End With ' Crea y abre el recordset Set Rs = New ADODB.Recordset Rs.CursorLocation = adUseClient cn.Open TabStrip1_Click End Sub Private Sub TabStrip1_Click() Dim sql As String Dim Letra As String ' Comprueba que el valor de la ficha no es nulo If Not TabStrip1.SelectedItem Is Nothing Then ' letra a filtrar Letra = TabStrip1.SelectedItem ' comando sql sql = "SELECT * From tPaises " & _ "where paises Like " & _ "'" & Letra & "%'" & _ "Order By Paises" '.. si el recordset está abierto lo cierra If Not Rs Is Nothing Then If Rs.State = adStateOpen Then Rs.Close End If End If ' Trae los registros Rs.Open sql, cn, adOpenStatic, adLockReadOnly ' Pasa los registros filtrados a la grilla With MSHFlexGrid1 Set .DataSource = Rs .ColWidth(0) = 800 .ColWidth(1) = 3000 End With End If End Sub

Recursos vb.net

Filtrar un DataGridView mediante la propiedad Filter de un BindingSource

Recursos vb 6.0

Ejemplos de base de datos

Buscar en Recursos vb