Procedimientos y funciones

Estoy intentando hacer una función que me busque en una base de datos. La función la declare así.
Function buscar_alumno(tabla As Recordset, entrada As String, opcion As Integer) As Recordset
' declaracion de variables
Dim datos As Database
Dim eleccion As String
'asignacion en la base de datos
Set datos = OpenDatabase(App.Path & "\bbaa.mdb")
 If opcion = 1 Then
          eleccion = "select * from alumnos where codigo like "
          eleccion = eleccion + "'"
          eleccion = eleccion + entrada
          eleccion = eleccion + "'"
    End If
    If opcion = 2 Then
         eleccion = "select * from alumnos where dni like "
         eleccion = eleccion + "'"
         eleccion = eleccion + entrada
         eleccion = eleccion + "'"
    End If
     If opcion = 3 Then
         eleccion = "select * from alumnos where nombre like "
         eleccion = eleccion + "'"
         eleccion = eleccion + entrada
         eleccion = eleccion + "'"
    End If
    Set tabla = datos.OpenRecordset(eleccion)
End Function
Y luego la llamo aso
Set tabla = buscar_alumno(tabla, entrada, opcion)
Pero no funciona, ¿Qué hice mal?
Respuesta
1
Prueba con este código:
Function buscar_alumno(tabla As Recordset, entrada As String, opcion As Integer) As Recordset
    ' declaracion de variables
    Dim datos As Database
    Dim tabla As Recordset
    Dim eleccion As String
    buscar_alumno = "" ' Valor por defecto para caso de no encontrarlo
    ' asignacion en la base de datos
    Set datos = OpenDatabase(App.Path & "\bbaa.mdb")
    Select Case opcion
        Case 1: eleccion = "select * from alumnos where codigo like " '*" & entrada & "*'"
        Case 2: eleccion = "select * from alumnos where dni like " '*" & entrada & "*'"
        Case 3: eleccion = "select * from alumnos where nombre like " '*" & entrada & "*'"
        Case Else:
            MsgBox "No se reconoce la opcion"
            Exit Function
    End Select
    Set tabla = datos.OpenRecordset(eleccion)
    If Not tabla.EOF Then
        ' Devolvemos el primer nombre que encontremos (aunque podría haber más)
        tabla.moveFirst
        buscar_alumno = tabla!nombre
    End If
    tabla.Close
End Function
El problema que veo es que si pones que el nombre sea como '*pepe*' pueden salirte 20 personas, pero la función sólo te puede devolver un valor que te he puesto que sea el primer 'pepe' que encuentre.
También te podría devolver una parrafada con el nombre de todos los alumnos.
Hola, ante todo gracias por responder tan rapido
probé el código y me da los siguientes problemas
buscar_alumnos="" ' esto me dice que es un uso no valido de la propiedad
buscar_alumnos=tabla!nombre me dice lo mismo
Otra cosa yo quiero pasar a tabla todos los valores, dni, nombre, teléfono, etc y tabla! ¿Nombre no pasaría solo ese campo en el supuesto de que funcionara?
Perdona, pero la función está definida como un "recordset" y debería ser un "string" (una cadena de caracteres que contendrá el nombre del alumno).
Si lo que quieres es que devuelva el recordset, dímelo y lo cambiamos, pero tengo la impresión que estás buscando un nombre más que un conjunto de registros.
Por bien esta línea:
Function buscar_alumno(tabla As Recordset, entrada As String, opcion As Integer) As String
Exacto, lo que quiero que me devuelva es un recordset (nombre del alumno, dni, etc, que va todo en la tabla alumnos)
Entonces deja la definición de la función así:
Function buscar_alumno(entrada As String, opcion As Integer) As Recordset
    ' declaracion de variables
    Dim datos As Database
    Dim eleccion As String
    buscar_alumno = "" ' Valor por defecto para caso de no encontrarlo
    ' asignacion en la base de datos
    Set datos = OpenDatabase(App.Path & "\bbaa.mdb")
    Select Case opcion
        Case 1: eleccion = "select * from alumnos where codigo like " '*" & entrada & "*'"
        Case 2: eleccion = "select * from alumnos where dni like " '*" & entrada & "*'"
        Case 3: eleccion = "select * from alumnos where nombre like " '*" & entrada & "*'"
        Case Else:
            MsgBox "No se reconoce la opcion"
            Exit Function
    End Select
    Set buscar_alumno= datos.OpenRecordset(eleccion)
End Function
Aunque sería mejor que la base de datos 'datos' estuviera definida fuera de la función y se la pasases como parámetro, en cuyo caso el código sería:
Function buscar_alumno(datos As Database, entrada As String, opcion As Integer) As Recordset
    ' declaracion de variables
    Dim eleccion As String
    buscar_alumno = "" ' Valor por defecto para caso de no encontrarlo
    Select Case opcion
        Case 1: eleccion = "select * from alumnos where codigo like " '*" & entrada & "*'"
        Case 2: eleccion = "select * from alumnos where dni like " '*" & entrada & "*'"
        Case 3: eleccion = "select * from alumnos where nombre like " '*" & entrada & "*'"
        Case Else:
            MsgBox "No se reconoce la opcion"
            Exit Function
    End Select
    Set buscar_alumno= datos.OpenRecordset(eleccion)
End Function
Y siempre teniendo en cuenta que antes de llamar a la función tienes que abrir la base de datos:
    ' Asignación en la base de datos
    Set datos = OpenDatabase(App.Path & "\bbaa.mdb")

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

La mejor forma de compartir trabajo ¿Réplicas?

Tengo una base de datos en Access. La tabla principal tiene un Id autonumérico para relacionarla con una segunda tabla que tiene un Id2 autonumérico para relacionarla con una tercera. Padres(Id)->Hijos(id, Id2)->(Id2)Actividades Necesito que varios...
1 respuesta

Fecha mínima

Necesito extraer la fecha mínima de una tabla de access para ubicarla en el pie de página de un reporte, ¿Cómo hago?
1 respuesta

Necesito hacer un formulario de búsqueda (urgente)

Tengo una tabla alumnos y de ahí tengo que hacer un formulario que tiene primer nombre, primer apellido y un botón que diga buscar... Bueno tengo que teclear en primer nombre o en primer apellido una letra o parte de un nombre o apellido y al...
2 respuestas

Necesito ayuda sobre un error 3027 en un formulario con DAO en una base de datos

Es una pregunta muy tonta, pero me está trayendo un dolor de cabeza terrible! Estoy trabajando con un formulario donde utilizo DAO, y al ejecutar diferentes consultas me surge el error 3027 en tiempo de ejecución. No se puede actualizar. Base de...
1 respuesta

¿Cómo vincular mi folio con el nombre?

Necesito de favor vincular un textbox con mi base de datos que al insertar el folio en un textbox en otro aparezca el nombre del articulo mi base de datos tiene estos campos folio Nombre 123 Pedro Que al escribir 123 automáticamente me ponga el...
6 respuestas

Access 2007, campo despliegue

En Access 2007, 1.como hago para que en un formulario yo pueda a la hora de digitar el numero de ID del empleado en otro campo se despliegue el nombre. (Asumiendo que tenemos una tabla de empleados). Este formulario no esta sobre la tabla empleados...
1 respuesta

Ayuda para corregir una consulta select en SQL

A ver si puedes solucionarme esto; Trabajo en visual basic y access, y aunque no entran en tu categoría visual basic, lo que quiero saber es el formato de una consulta SQL. Lo que quiero es que me devuelva todos los registros en los cuales en el...
1 respuesta

Filtrar 2 campos en una misma tabla

Estoy haciendo un programita para una remiseria en VB 6.0 con base de datos access... El problema con el cual me encuentro es el siguiente: tengo una tabla xxx en la cual tengo que filtrar por 2 campos, uno es por la fecha y el otro es por un código...
1 respuesta

Creacion dinamica en vb6

Me ayudaste a crear dinámicamente los optionbutton y va fenómeno. Los obtengo de una base de datos. Mi problema que al intentar poner la popiedad name, me dice que no se puede poner en forma solo lectura. ¿Abrí mal la base de datos?. Mi otro...
1 respuesta

Buscador visual basic

He tratado de crear un buscador con visual basic pero no he podido hallar. Quiero que me busque en una base de datos el numero de factura que yo quiera, pero que me muestre los resultados en campos de textbox, hay muchos ejemplos en internet pero...
1 respuesta