Ayuda con el botón de buscar en Visual Basic 6.0

Estoy haciendo una base de datos con Access 2010 y Visual Basic 6.0 en la que se almacenan datos de pacientes de un consultorio medico, y debo añadir un botón de buscar para poder buscar el registro de cada paciente por su número de cédula, el problema es que no estoy muy segura de como seria el código, buscando en internet encontré este código:

Dim Buscar As String, criterio As String
Buscar = InputBox("¿Que Nombre desea buscar?", "búsqueda por nombre", vbQuestion)
If Buscar = "" Then Exit Sub
criterio = "nombre like '*" & Buscar & "*'"
Adodc1.Recordset.MoveNext
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Find criterio
End If
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find criterio
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
respuesta = MsgBox("Registro no encontrado", vbCritical)
End If
End If

Pero solo busca registros por nombre, ¿Cómo podría modificar el código para que busque por numero de cedula?

1 Respuesta

Respuesta

Reemplaza

criterio = "nombre like '*" & Buscar & "*'"

Por

criterio = "cedula like '*" & Buscar & "*'"

Claro, siempre y cuando el campo de la cedula se llame así.

No funciona, cambie la linea de código por:

criterio = "ci like '*" & Buscar & "*'"

Pero me sale este error:

Error'-2147217881 (80040e27)' en tiempo de ejecución:
No se pudo realizar la búsqueda en la columna especificada o el operador de comparación no es valido

¿Que puedo hacer?

El error lo muestra en esta linea:

Adodc1.Recordset.Find criterio

Te lo dice claramente que no puedes utilizar ese operador en la búsqueda

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Estoy haciendo una aplicación de Visual Basic con una base de datos de Microsoft Access.

Estoy haciendo una aplicación en visual basic contra una base de datos en access que permite hacer operaciones típicas de registros (borrar, actualizar, buscar...) La base de datos tiene: - Un campo Numero: autonumérico y clave primaria - Un campo...
1 respuesta

Buscar registro access

Tengo una tabla con 100 campos y la lleno con un form al que le hice un botón guardar implementando un INSERT y para ello le quite a todos los controles la propiedad "Origen del Control" y funciona perfecto. Ahora tengo que hacer un botón buscar (por...
1 respuesta

Datagrid

Me gustaría acceder a un dato concreto del datagrid, es decir, acceder a una fila y a una columna en concreto. ¿Cómo se hace?
1 respuesta

Botones de Opciones con Datagrid

Soy Juan Diego, estoy estudiando en la UTU estoy terminando el último año de informática, quede a examen con Programación por no haber terminado el proyecto y necesito mucha ayuda porque tengo bastantes errores y tengo una única oportunidad en...
1 respuesta

Consultas SQL directo en Adodc

Soy Juan Diego, mira necesito una mano con lo siguiente: Utilizo una variable string, una recordset y una connection para hacer esta consulta sql lo que hace es una búsqueda y compara haber sí el proveedor existe: Private Sub...
1 respuesta

¿Acceder a un registro distinto en un recordset?

Lo que pretendo es recuperar valores de datos de los campos de un registro en concreto de un recordset (no del actual, sino, por ejemplo, del siguiente o el anterior). ¿Cómo hago referencia a dicho registro en particular? ¿Mediante algún tipo de...
1 respuesta

Ayuda con mi programa de visual basic 6.0

Quisiera rectificar acerca de esta pregunta ya la había finalizado pero no lo había checado bien con esta codificación. If buscando <> "" Then Ya no manda error pero no realiza la búsqueda Así que sigo preguntando lo mismo. Espero me puedan ayudar...
1 respuesta

Contador de registros

Tengo una aplicación en Visual Basic a la que me gustaría añadile un textbox donde me diga el numero de registros que tengo en una base de datos de películas. La base de datos se llama películas y la tabla también se llama películas. Esta base de...
4 respuestas

¿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

Capturar el path con un commondDialog

Estos intentando copiar una imagen que abro con un ComondDialog. El problema es que luego quiero copiar esa imagen en un directorio distinto con la función FileCopy. Para ello necesito capturar el la ruta de la imagen y no se como. ¿Cómo puedo hacerlo?
3 respuestas