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

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 - Enlaces relacionados

Filtrar un DataGridView mediante la propiedad Filter de un BindingSource

Buscar en Recursos vb