Fórum Deletar com Query #154556

procedure Tform1.Excluir(CodCliente);
var
qryExcluir:TQuery;
begin
qryExcluir := TQuery.Create(self);
with qryExcluir do
begin
DatabaseName := (Nome do Seu DataBase);
SessionName := ´Default´;
RequestLive := True //Para aceitar Gravação
SQL.Text := ´DELETE FROM CLIENTES WHERE CODCLI=:CODCLI´;
ParamByName(´CODCLI´).AsInteger := CodCliente;
Try
ExecSQL;
Close;
Free;
except
ShowMessage(´Não foi possível excluir cliente ´+IntToStr(CodCliente))
end;
end;
end;