Botões de comando do catálogo de endereços

O aplicativo 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 Limpar para limpar as caixas de texto antes de iniciar uma nova pesquisa.

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

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

Botão Localizar

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

Compilando a consulta SQL

A primeira parte do procedimento Find_OnClick Sub cria a consulta SQL, uma frase por vez, acrescentando cadeias de caracteres de texto a uma instrução SQL SELECT global. Ele começa definindo a variável myQuery para uma instrução SQL SELECT que solicita todas as linhas de dados da tabela de fonte de dados. Em seguida, o procedimento Sub verifica cada uma das quatro caixas de entrada na página.

Como o programa usa a palavra like na criação das instruções SQL, as consultas são pesquisas de subcadeia 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 "Gerenciador de Programas", a instrução SQL (valor de myQuery) leria:

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

Se a consulta tiver sido bem-sucedida, todas as pessoas com um sobrenome contendo o texto "Berge" (como Berge e Berger) e com um título contendo as palavras "Gerenciador de Programas" (por exemplo, Gerenciador de Programas, Tecnologias Avançadas) 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 instrução atribui a propriedade SQL do RDS. Objeto DataControl igual à consulta SQL criada dinamicamente. A segunda instrução faz com que o objeto RDS.DataControl (DC1) consulte o banco de dados e exiba 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 os métodos SubmitChanges e Refresh do objeto RDS.DataControl (DC1).

Sub Update_OnClick  
   DC1.SubmitChanges  
   DC1.Refresh  
End Sub  

Quando DC1.SubmitChanges executado, o Serviço de Dados Remoto empacota todas as informações de atualização e as envia para o servidor por meio de HTTP. A atualização é tudo ou nada; se uma parte da atualização não tiver êxito, nenhuma das alterações será feita e uma mensagem de status será retornada. DC1.Refresh não é necessário após SubmitChanges com o Serviço de Dados Remotos, mas garante dados atualizados.

Botão Cancelar Alterações

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

Sub Cancel_OnClick  
   DC1.CancelUpdate  
End Sub  

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

Consulte Também

botões de navegação do catálogo de endereços
Objeto DataControl (RDS)