Apagar

<< Clique para Mostrar o Sumário >>

 

Apagar

Neste exercício, vamos apagar o registro selecionado no E3Browser. Para remover um registro da tabela, use o comando Delete.

1.Insira na Tela um objeto Consulta e nomeie-o como "ConsultaDelete".

2.Na aba SQL, edite o comando para o código a seguir.

DELETE FROM ConfigEquipamento
  WHERE Equipamento = '<%Equipamento%>'

 

3.No Botão Remover, insira o script a seguir no evento Click.

'Nome do equipamento
clp = Screen.Item("spEquipamento").Value
'Confirmação do usuário
If MsgBox("Deseja realmente remover o equipamento " & _
  clp & "?", vbYesNo + vbQuestion) = vbYes Then
  Set cs = Screen.Item("ConsultaDelete")
  cs.SetVariableValue "Equipamento", Screen.Item("spEquipamento").Value
  cs.Execute()
End If

 

4.Execute a aplicação e teste a nova funcionalidade.

Esta página foi útil?