----------------------------------------------------------------------
Se precisar de ajuda para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)
Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br
----------------------------------------------------------------------
procedure TForm3.Button1Click(Sender: TObject);
var
id: Integer;
begin
id := 6; // id do registro a ser excluído
// vamos definir o comando SQL a ser executado
SQLDataSet1.CommandText := 'DELETE FROM contatos WHERE id = :id';
SQLDataSet1.Params[0].Name := 'id';
SQLDataSet1.Params[0].Value := id;
// vamos executar o comando
SQLDataSet1.ExecSQL(False);
// vamos mostrar uma mensagem indicando o sucesso da operação
ShowMessage('Comando SQL executado com sucesso.');
end;
Link para compartilhar na Internet ou com seus amigos:
