Botones de comando de la libreta de direcciones

Se aplica a: Access 2013, Office 2013

La aplicación Libreta de direcciones incluye los siguientes botones de comando:

• Un botón Buscar para enviar una consulta a la base de datos.

• Un botón Borrar para borrar los cuadros de texto antes de iniciar una nueva búsqueda.

• Un botón Actualizar perfil para guardar los cambios de un registro de empleado.

• Un botón Cancelar cambios para descartar cambios.

Botón Buscar

Al hacer clic en el botón Buscar, se activa el procedimiento Sub Find_OnClick de VBScript, que genera y envía la consulta SQL. Al hacer clic en este botón, se rellena la cuadrícula de datos.

Generar la consulta SQL

La primera parte del procedimiento Sub Find_OnClick genera la consulta SQL, una frase cada vez, anexando cadenas de texto a una instrucción SELECT global de SQL. Comienza estableciendo la variable en una instrucción SELECT de SQL que solicita todas las filas de datos de la tabla de origen de datos. A continuación, el subprocedimiento examina cada uno de los cuatro cuadros de entrada de la página.

Dado que el programa usa la palabra para compilar las instrucciones SQL, las consultas son búsquedas de subcadenas en lugar de coincidencias exactas.

Por ejemplo, si el cuadro Apellidos contenía la entrada "Berge" y el cuadro Título contenía la entrada "Administrador de programas", la instrucción SQL (valor de ) leería:

 
Select FirstName, LastName, Title, Email, Building, Room, Phone from Employee where lastname like 'Berge%' and title like 'Program Manager%' 

Si la consulta obtuvo resultados, todas las personas cuyo apellido contiene el texto "Berge" (tales como Berge y Berger) y cuyo título o cargo contiene las palabras "Program Manager" (por ejemplo, Program Manager, Advanced Technologies) aparecerán en la cuadrícula de datos HTML.

Preparar y enviar la consulta

La última parte del procedimiento Sub Find_OnClick está formada por dos instrucciones. La primera instrucción asigna a la propiedad SQL del objeto RDS.DataControl la consulta SQL generada dinámicamente. La segunda instrucción provoca el RDS. Objeto DataControl () para consultar la base de datos y, a continuación, mostrar los nuevos resultados de la consulta en la cuadrícula.

 
Sub Find_OnClick 
 '... 
 DC1.SQL = myQuery 
 DC1.Refresh 
End Sub 

Botón Actualizar perfil

Al hacer clic en el botón Actualizar perfil , se activa el procedimiento VBScript Update_OnClick Sub, que ejecuta RDS. Métodos SubmitChanges y Refresh del objeto DataControl .

 
Sub Update_OnClick 
 DC1.SubmitChanges 
 DC1.Refresh 
End Sub 

Cuando DC1. SubmitChanges se ejecuta, el servicio de datos remoto empaqueta toda la información de actualización y la envía al servidor a través de HTTP. La actualización es todo o nada: si una parte de la actualización no es correcta, no se realiza ningún cambio y se devuelve un mensaje de estado. , el servicio de datos remotos (RDS) empaqueta toda la información de actualización y la envía al servidor mediante HTTP. La actualización es todo o nada: si una parte de la actualización no es correcta, no se realiza ningún cambio y se devuelve un mensaje de estado. DC1. La actualización no es necesaria después de SubmitChanges con Remote Data Service, pero garantiza los datos actualizados.

Botón Cancelar cambios

Al hacer clic en Cancelar cambios , se activa el procedimiento VBScript Cancel_OnClick Sub, que ejecuta RDS. Objeto DataControl ( método CancelUpdate.

 
Sub Cancel_OnClick 
 DC1.CancelUpdate 
End Sub 

Cuando se ejecuta, descarta las modificaciones que un usuario ha realizado en un registro de empleado en la cuadrícula de datos desde la última consulta o actualización. Restaura los valores originales.