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. Ele começa definindo a variável como uma instrução SQL SELECT que solicita todas as linhas de dados da tabela da fonte de dados. Em seguida, o procedimento Sub analisa cada uma das quatro caixas de entrada na página.

Como o programa usa a palavra na criação das instruções SQL, as consultas são pesquisas de subcadeias de caracteres em vez de correspondências exatas.

Por exemplo, se a caixa Sobrenome contiver a entrada "Berge" e a caixa Título contiver a entrada "Gerente de Programa", a instrução SQL (valor de ) seria:

 
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. DataControl () para consultar o banco de dados e, em seguida, exibir os novos resultados da consulta na grade.

 
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. DataControl, object's (), SubmitChanges e Refresh métodos.

 
Sub Update_OnClick 
 DC1.SubmitChanges 
 DC1.Refresh 
End Sub 

Quando DC1. SubmitChanges é executado, o Serviço de Dados Remotos empacota todas as informações de atualização e as 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. é 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 após SubmitChanges com o Serviço de Dados Remoto, mas garante dados atualizados.

Botão Cancelar alterações

Clicar em Cancelar alterações ativa o procedimento VBScript Cancel_OnClick Sub, que executa o RDS. DataControl do objeto ( CancelUpdate método.

 
Sub Cancel_OnClick 
 DC1.CancelUpdate 
End Sub 

Quando executado, ele descarta todas as edições que um usuário fez em um registro de funcionário na grade de dados desde a última consulta ou atualização. Ele restaura os valores originais.