Botões de comando do Catálogo de Endereços

Aplica-se ao: Access 2013, Office 2013

O aplicativo de Catálogo de endereços inclui os seguintes botões de comando:

• Um botão Localizar para enviar uma consulta ao banco de dados.

• Um botão Desmarcar para desmarcar as caixas de texto antes de iniciar uma nova pesquisa.

• Um botão Atualizar perfil para salvar as alterações em um registro de funcionário.

• Um botão Cancelar alterações para descartar as alterações.

Botão Localizar

Clicar no botão Localizar ativa o procedimento VBScript Find_OnClick Sub, que cria e envia a consulta SQL. Clicar nesse botão preenche a grade de dados.

Criando a consulta SQL

A primeira parte do procedimento Find_OnClick Sub cria a consulta SQL, uma frase por vez, anexando as sequências de caracteres de texto a uma instrução SQL SELECT global. Começa por definir a variável para uma instrução SQL SELECT que pede todas as linhas de dados da tabela de origem de dados. Em seguida, o procedimento Sub analisa cada uma das quatro caixas de entrada na página.

Uma vez que o programa utiliza a palavra na criação das instruções SQL, as consultas são pesquisas de subcadeia em vez de correspondências exatas.

Por exemplo, se a caixa Apelido contiver a entrada "Berge" e a caixa Título contiver a entrada "Gestor de Programas", a instrução SQL (valor de ) leria:

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

Se a consulta foi bem-sucedida, todas as pessoas com o último nome contendo o texto "Berge" (como Berge e Berger) e com um cargo contendo as palavras "Program Manager" (por exemplo, Program Manager, Advanced Technologies) serão exibidas na grade de dados HTML.

Preparando e enviando a consulta

A última parte do procedimento Find_OnClick Sub consiste em duas instruções. A primeira atribui a propriedade SQL do objeto RDS.DataControl à consulta SQL criada de forma dinâmica. A segunda instrução causa o RDS. Objeto DataControl () para consultar a base de dados e, em seguida, apresentar os novos resultados da consulta na grelha.

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

Botão Atualizar perfil

Clicar no botão Atualizar Perfil ativa o procedimento VBScript Update_OnClick Sub, que executa o RDS. Os métodos SubmitChanges e Refresh do objeto DataControl ().

 
Sub Update_OnClick 
 DC1.SubmitChanges 
 DC1.Refresh 
End Sub 

Quando DC1. SubmitChanges executa, o Serviço de Dados Remoto empacota todas as informações de atualização e envia-as para o servidor através de HTTP. A atualização ocorre em tudo ou em nada; se uma parte da atualização não tiver sucesso, nenhuma das alterações será feita, e uma mensagem de status será retornada. é executado, o Serviço de dados remoto cria pacote de todas as informações de atualização e os envia ao servidor via HTTP. A atualização ocorre em tudo ou em nada; se uma parte da atualização não tiver sucesso, nenhuma das alterações será feita, e uma mensagem de status será retornada. DC1. A atualização não é necessária depois de SubmitChanges com o Serviço de Dados Remoto, mas garante dados novos.

Botão Cancelar alterações

Clicar em Cancelar Alterações ativa o procedimento VBScript Cancel_OnClick Sub, que executa o RDS. Objeto DataControl(s) ( CancelUpdate method (Método CancelUpdate).

 
Sub Cancel_OnClick 
 DC1.CancelUpdate 
End Sub 

Quando é executada, elimina as edições que um utilizador efetuou a um registo de funcionário na grelha de dados desde a última consulta ou atualização. Ele restaura os valores originais.