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

Artigo
04/04/2023

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. Ela começa definindo a variável como uma instrução SELECT do SQL que solicita todas as linhas de dados da tabela de 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 construção das instruções SQL, as consultas são pesquisas de substring em vez de correspondências exatas.

Por exemplo, se a caixa Sobrenome contivesse a entrada "Berge" e a caixa Título contivessem a entrada "Gerenciador 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 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 Perfil de Atualização ativa o procedimento VBScript Update_OnClick Sub, que executa o RDS. 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 Remotos empacota todas as informações de atualização e as envia para o servidor por meio 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 após o SubmitChanges com o Serviço de Dados Remotos, mas garante novos dados.

Botão Cancelar alterações

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

 
Sub Cancel_OnClick 
 DC1.CancelUpdate 
End Sub

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

Compartilhar via