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

190 - Dao - Ejemplo de FindFirst y FindNext

Este ejemplo muy simple muestra como utilizar dichos métodos para buscar mediante un bucle todos los registros sobre un determinado criterio de búsqueda.

Agregar en el proyecto la referencia Microsoft Dao, y especificar en el código la base de datos, el nombre de la tabla, el campo y el criterio de búsqueda.

Código fuente en un formulario

' Variables de tipo DAO para la bd y el recordset Dim rst As DAO.Recordset Dim db As DAO.Database Private Sub Form_Load() On Error GoTo ErrSUb Dim path As String Dim Tabla As String Dim Campo As String Dim Criterio As String 'Valores path = App.path & "\bd1.mdb" Tabla = "Productos" Campo = "Precio" Criterio = "Precio > 4" 'Abre la base de datos pasandole la ruta Set db = DBEngine.Workspaces(0).OpenDatabase( _ path, ReadOnly:=False) 'Abre el recordset pasandole el nombre de Tabla Set rst = db.OpenRecordset(Tabla, dbOpenDynaset) 'Busca el primer registro con dicho criterio rst.FindFirst Criterio Do Until rst.NoMatch 'Muestra el registro MsgBox rst(Campo).Value 'Busca el siguiente registro rst.FindNext Criterio Loop 'Cierra el Recordset y la base de datos rst.Close db.Close Exit Sub 'Error ErrSUb: MsgBox Err.Description, vbCritical End Sub~

Recursos visual basic - Enlaces relacionados

Recursos vb.net - enlaces relacionados

Filtrar un control DataGridview

Buscar en Recursos vb