Sección de ejemplos vb.net

52 - Buscar fila en DataGridView

Buscar un registro o fila en una grilla de tipo DataGridView

Simple código de ejemplo que usa el método Find del componente BindingSource para buscar un registro en un campo específico en una tabla

formulario

captura del formulario de ejemplo para buscar las filas en el DataGridview

Controles

Un control DataGridView llamado DataGridView1
Un control Button llamado Button1 ( botón para buscar )
Un control textBox llamado textBox1 ( para ingresar el dato )
Indicar el campo por el cual buscar ( Primer parámetro del método Find)
Establecer la cadena de conexión a utilizar

Código fuente

Option Explicit On Option Strict On Imports System.Data Imports System.Data.SqlClient Public Class Form1 ' ConnectionString para SQL server EXPRESS Private Const cs As String = "Data Source=(local)\SQLEXPRESS;" & _ "Integrated Security=True;" & _ "Initial Catalog=la_base_de_datos" 'Declarar un BindingSource Private BindingSource1 As Windows.Forms.BindingSource = New BindingSource Private Sub Form1_FormClosed( _ ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed BindingSource1.Dispose() End Sub Private Sub Form1_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Button1.Text = "Buscar fila" Try ' Declarar la conexión y abrir Using cn As SqlConnection = New SqlConnection(cs) cn.Open() ' Crear un DataAdapter y pasarle el comando para traer los registros Dim da As New SqlDataAdapter("SELECT * FROM la_tabla", cn) ' DataTable Dim dt As New DataTable ' llenar el DataTable da.Fill(dt) ' enlazar el DataTable al BindingSource BindingSource1.DataSource = dt ' propiedades para el DataGridview ''''''''''''''''''''''''''''''''''''''' With DataGridView1 ' opcional: Sin selección múltiple .MultiSelect = False ' seleccioanr fila completa al hacer clic en un registro .SelectionMode = DataGridViewSelectionMode.FullRowSelect ' enlazar los controles .DataSource = BindingSource1.DataSource End With End Using ' errores Catch ex As Exception MsgBox(ex.Message.ToString) End Try End Sub ' Función que retorna el índice de la fila '' '''''''''''''''''''''''''''''''''''''''''''''''''''' Function Buscar( _ ByVal Columna As String, _ ByVal texto As String, _ ByVal BindingSource As BindingSource) As Integer Try ' si está vacio salir y no retornar nada If BindingSource1.DataSource Is Nothing Then Return -1 End If ' Ejecutar el método Find pasándole los datos Dim fila As Integer = BindingSource.Find(Columna.Trim, texto) ' Mover el cursor a la fila obtenida BindingSource.Position = fila ' retornar el valor Return fila ' errores Catch ex As Exception MsgBox(ex.Message.ToString, MsgBoxStyle.Critical) End Try ' no retornar nada Return -1 End Function ' Botón para buscar en el DataGridView Private Sub Button1_Click( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click ' Pasar el nombre del campo por el cual buscar , ' el dato, y el BindingSource enlazado al DataGridView ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim ret As Integer = Buscar( _ "Nombre", _ TextBox1.Text.Trim, _ BindingSource1) ' si no se encontró .... If ret = -1 Then ' mostrar un mensaje MsgBox("No se encontró la fila", MsgBoxStyle.Critical) Else With DataGridView1 ' volver a enlazar .DataSource = BindingSource1 ' Pasarle el índice para Visualizar la fila al comienzo de la grilla .FirstDisplayedScrollingRowIndex = ret End With End If End Sub End Class

Buscar usando el método find de la propiedad DefaultView

Código similar al anterior , pero que usa el método Find de la propiedad Defaultview de un Dataset accediendo a la base de datos mediante OLEDB

( Button1 , dataGridView1 y TextBox1)

Nota: indicar la cadena de conexión, el comando sql en el oledbdataAdapter y también el nombre del campo por el cual buscar, en la propiedad Sort

Option Strict On Option Explicit On ' Espacio de nombres para para acceder al proveedor OleDb Imports system.Data.OleDb Public Class Form1 ' declaración del ConnectionString Private Const cadena_conexion As String = "Indicar la cadena" ' declaración del dataset Private oledb_dataset As DataSet Private Sub Form1_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Button1.Text = "Buscar" TextBox1.Text = String.Empty 'Configurarar propiedades para el DataGridView With DataGridView1 .MultiSelect = False .SelectionMode = DataGridViewSelectionMode.FullRowSelect End With Try ' Inicializar nueva conexión OLEDB y abrirla Using cn As New OleDbConnection(cadena_conexion) cn.Open() ' Inicializar nuevo adaptador de datos OleDb Dim da As New OleDbDataAdapter("Select * From una Tabla", cn) ' Crear y cargar el DataSet oledb_dataset = New DataSet da.Fill(oledb_dataset, "Mi Tabla") With oledb_dataset.Tables("Mi Tabla") ' Indicar en la propiedad Sort el campo por el cual buscar .DefaultView.Sort = "Clientes" ' asignar el origen de datos a la grilla DataGridView1.DataSource = .DefaultView End With End Using Catch ex As Exception MsgBox(ex.Message.ToString) Finally Me.Cursor = Cursors.Default End Try End Sub Private Sub Button1_Click( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click ' buscar y retornar el índice de la fila encontrada Dim fila As Integer = oledb_dataset.Tables("Mi tabla").DefaultView.Find(TextBox1.Text) ' si el índice es -1 no se encontró If fila <> -1 Then With DataGridView1 ' Establecer el índice de la primera fila del DataGridview ' para visualziarlo arriba de todo .FirstDisplayedScrollingRowIndex = fila ' asignar la celda al CurrentCell para seleccionarla .CurrentCell = .Rows(fila).Cells(0) ' seleccionar el control .Select() 'mostrar el índice en el caption del formulario Me.Text = "índice de la fila actual : " & .CurrentCell.RowIndex.ToString End With Else ' No se encontró MsgBox("No se encontró el elemento en el DataGridView") End If End Sub End Class

Recursos vb 6.0 - Enlaces Relacionados

Buscar en Recursos vb