Una vez conocido como se crea la consulta, el código para ello se programa en el botón cmdConsultasVisitas, pero antes creamos un nuevo control dbgrid que llamamos dbConsulta que se asocia al control datConsulta para presentar por pantalla los registros seleccionados. Después de crear este nuevo control, el código de cmdConsultaVisitas será:

Todas las sentencias del botón aparecen comentadas en el propio código, obsérvese no obstante, que en la creación de la cadena consulta, primero se escribe una parte entre comillas dobles, luego se concatena con el valor que tenga la caja de texto txtPersonal(0) y luego se vuelve a concatenar con otra parte escrita directamente entre comillas dobles. Lo anterior ha de ser así para especificar la condición que ha de cumplir la consulta, que no es otra que el campo Nif de la tabla Visitas sea igual al campo Nif del registro de la tabla Personal actual, que es el que en ese momento contiene la caja de texto txtPersonal(0). La cadena Consulta se crea pues, concatenando las tres partes siguientes:

1.- "SELECT * FROM VISITAS WHERE NIF = `" Se escribe la primera parte de la sentencia entre comillas dobles, obsérvese que el último carácter encerrado entre comillas dobles es una comilla simple (`) para que al concatenar todas las partes el valor del Nif aparezca encerrado entre comillas simples.

2.- txtPersonal(0) Esta segunda parte varía en función del valor que contenga la caja de texto txtPersonal(0), cuyo contenido es lo que se concatenará para crear la cadena.

3.- "' ORDER BY FechaVisita" Tercera parte escrita al igual que la primera entre comillas dobles en la que el primer carácter es una comilla simple (´), para encerrar el valor del Nif.

Con todo lo anterior, al pulsar en el botón cmdConsultaVisitas, se accede a un control dbgrid que contiene una consulta de las visitas realizadas por una persona concreta.