Licenciatura

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 medianteOLEDB
( 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

1.
2.Option Strict On
3. Option Explicit On
4.
5. ' Espacio de nombres para para acceder al proveedor OleDb
6. Imports system.Data.OleDb
7.
8. Public Class Form1
9.
10. ' declaración delConnectionString
11. Private Const cadena_conexion As String = "Indicar la cadena"
12.
13. ' declaración del dataset
14. Private oledb_dataset As DataSet
15.
16. Private Sub Form1_Load( _17. ByVal sender As System.Object, _
18. ByVal e As System.EventArgs) Handles MyBase.Load
19.
20. Button1.Text = "Buscar"
21. TextBox1.Text = String.Empty
22.
23. 'Configurararpropiedades para el DataGridView
24. With DataGridView1
25. .MultiSelect = False
26. .SelectionMode = DataGridViewSelectionMode.FullRowSelect
27. End With
28.
29. Try
30. ' Inicializar nuevaconexión OLEDB y abrirla
31. Using cn As New OleDbConnection(cadena_conexion)
32.
33. cn.Open()
34.
35. ' Inicializar nuevo adaptador de datos OleDb
36. Dim da As New OleDbDataAdapter("Select *From una Tabla", cn)
37.
38. ' Crear y cargar el DataSet
39. oledb_dataset = New DataSet
40.
41. da.Fill(oledb_dataset, "Mi Tabla")
42.
43.
44. With oledb_dataset.Tables("Mi Tabla")45.
46. ' Indicar en la propiedad Sort el campo por el cual buscar
47. .DefaultView.Sort = "Clientes"
48. ' asignar el origen de datos a la grilla
49. DataGridView1.DataSource = .DefaultView50. End With
51.
52. End Using
53.
54. Catch ex As Exception
55. MsgBox(ex.Message.ToString)
56. Finally
57. Me.Cursor = Cursors.Default
58. End Try
59.
60. End Sub
61.
62....