| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
dcbfreitas21
Membro Junior
Registrado: Sábado, 30 de Janeiro de 2010
Mensagens: 323
|
 Enviada: Qua Jul 28, 2010 2:52 pm Assunto: Duvidas na exclusao de dados <RESOLVIDO> |
 |
|
Tenho um programa de ordem de compra, porem na parte de exclusao de dados ele exclui perfeitamente porem quando nao ha dados na dbgrid ele da um erro, queria que o programa me desse uma mensagem de que nao existe dados para serem excluidos o codigo utilizado foi este:
if messageDlg ('Confirma exclusão do registro?', mtConfirmation, mbOkCancel,0) = mrOk
then
DataModule_dados.TblProdutos.Delete;
EditPesquisa.Clear;//Apagar dados da edit de pesquisa
EditPesquisa.SetFocus;//Selecionar edit de pesquisa
Editado pela última vez por dcbfreitas21 em Sex Jul 30, 2010 2:30 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
AnOnImUs.Info
Colaborador
Registrado: Quinta-Feira, 23 de Agosto de 2007
Mensagens: 1119
Localização: Goiânia - GO
|
| Enviada: Qua Jul 28, 2010 3:07 pm Assunto: Re: Duvidas na exclusao de dados |
|
|
Tente isso.
| Código: |
if not DataModule_dados.TblProdutos.isEmpty then begin
if messageDlg ('Confirma exclusão do registro?', mtConfirmation, mbOkCancel,0) = mrOk then begin
DataModule_dados.TblProdutos.Delete;
EditPesquisa.Clear;//Apagar dados da edit de pesquisa
EditPesquisa.SetFocus;//Selecionar edit de pesquisa
end;
end else showmessage('não ha registros');
|
_________________
Reter o conhecimento é promover a ignorância ! |
|
| Voltar ao Topo |
|
|
douglasmaicon
Aprendiz
Registrado: Sexta-Feira, 28 de Mai de 2010
Mensagens: 255
Localização: São João Del Rei - MG
|
| Enviada: Qua Jul 28, 2010 5:22 pm Assunto: |
|
|
vc pode tbm tentar com recordcount e utilize um raise no lugar do showmessage
| Código: |
if DataModule_dados.TblProdutos.recordcount > 0 then
begin
if messageDlg ('Confirma exclusão do registro?', mtConfirmation, mbOkCancel,0) = mrOk then begin
DataModule_dados.TblProdutos.Delete;
EditPesquisa.Clear;//Apagar dados da edit de pesquisa
EditPesquisa.SetFocus;//Selecionar edit de pesquisa
end;
end else
raise exception.create('Não existe registros no banco') |
_________________
"O Homem que perde sua Honra, morre para o mundo. Mas o Homem Honrado nunca morrerá. (José Alencar Gomes da Silva)" |
|
| Voltar ao Topo |
|
|
dcbfreitas21
Membro Junior
Registrado: Sábado, 30 de Janeiro de 2010
Mensagens: 323
|
| Enviada: Sex Jul 30, 2010 8:44 am Assunto: Re: Duvidas na exclusao de dados |
|
|
| AnOnImUs.Info escreveu: | Tente isso.
| Código: |
if not DataModule_dados.TblProdutos.isEmpty then begin
if messageDlg ('Confirma exclusão do registro?', mtConfirmation, mbOkCancel,0) = mrOk then begin
DataModule_dados.TblProdutos.Delete;
EditPesquisa.Clear;//Apagar dados da edit de pesquisa
EditPesquisa.SetFocus;//Selecionar edit de pesquisa
end;
end else showmessage('não ha registros');
|
|
Ele nao consegue excluir nenhum dados ao tentar selecionar o primeiro dado ele ja da a mensagem 'nao ha registros' |
|
| Voltar ao Topo |
|
|
dcbfreitas21
Membro Junior
Registrado: Sábado, 30 de Janeiro de 2010
Mensagens: 323
|
| Enviada: Sex Jul 30, 2010 8:47 am Assunto: |
|
|
| douglasmaicon escreveu: | vc pode tbm tentar com recordcount e utilize um raise no lugar do showmessage
| Código: |
if DataModule_dados.TblProdutos.recordcount > 0 then
begin
if messageDlg ('Confirma exclusão do registro?', mtConfirmation, mbOkCancel,0) = mrOk then begin
DataModule_dados.TblProdutos.Delete;
EditPesquisa.Clear;//Apagar dados da edit de pesquisa
EditPesquisa.SetFocus;//Selecionar edit de pesquisa
end;
end else
raise exception.create('Não existe registros no banco') |
|
Tentei deste modo ele consegue excuir os registros porem quando nao a dados ele da a seguinte mensagem 'Project Oc.exe raised exception with message "Não existe registros no banco" ' |
|
| Voltar ao Topo |
|
|
carbox
Colaborador
Registrado: Quarta-Feira, 3 de Março de 2010
Mensagens: 1471
|
| Enviada: Sex Jul 30, 2010 10:30 am Assunto: Re: Duvidas na exclusao de dados |
|
|
Tenta assim:
| Código: |
Try
Begin
if messageDlg ('Confirma exclusão do registro?', mtConfirmation, mbOkCancel,0) = mrOk then
DataModule_dados.TblProdutos.Delete;
EditPesquisa.Clear;//Apagar dados da edit de pesquisa
EditPesquisa.SetFocus;//Selecionar edit de pesquisa
end
Except
ShowMessage('não há mais dados a serem excluídos');
end;
|
| dcbfreitas21 escreveu: | Tenho um programa de ordem de compra, porem na parte de exclusao de dados ele exclui perfeitamente porem quando nao ha dados na dbgrid ele da um erro, queria que o programa me desse uma mensagem de que nao existe dados para serem excluidos o codigo utilizado foi este:
if messageDlg ('Confirma exclusão do registro?', mtConfirmation, mbOkCancel,0) = mrOk
then
DataModule_dados.TblProdutos.Delete;
EditPesquisa.Clear;//Apagar dados da edit de pesquisa
EditPesquisa.SetFocus;//Selecionar edit de pesquisa |
|
|
| Voltar ao Topo |
|
|
dcbfreitas21
Membro Junior
Registrado: Sábado, 30 de Janeiro de 2010
Mensagens: 323
|
| Enviada: Sex Jul 30, 2010 12:20 pm Assunto: Re: Duvidas na exclusao de dados |
|
|
| AnOnImUs.Info escreveu: | Tente isso.
| Código: |
if not DataModule_dados.TblProdutos.isEmpty then begin
if messageDlg ('Confirma exclusão do registro?', mtConfirmation, mbOkCancel,0) = mrOk then begin
DataModule_dados.TblProdutos.Delete;
EditPesquisa.Clear;//Apagar dados da edit de pesquisa
EditPesquisa.SetFocus;//Selecionar edit de pesquisa
end;
end else showmessage('não ha registros');
|
|
Desculpe-me eu tentei novamente e deu certo, acho que coloquei if no lugar de if not
Obrigado pela ajuda. |
|
| Voltar ao Topo |
|
|
BrunoMoreyra
Colaborador
Registrado: Quinta-Feira, 26 de Novembro de 2009
Mensagens: 1398
Localização: Goiânia - GO / Brasília - DF
|
| Enviada: Sex Jul 30, 2010 1:53 pm Assunto: Re: Duvidas na exclusao de dados |
|
|
Boa tarde,
caso tenha resolvido.
Modifique o tópico para resolvido.
| dcbfreitas21 escreveu: | | AnOnImUs.Info escreveu: | Tente isso.
| Código: |
if not DataModule_dados.TblProdutos.isEmpty then begin
if messageDlg ('Confirma exclusão do registro?', mtConfirmation, mbOkCancel,0) = mrOk then begin
DataModule_dados.TblProdutos.Delete;
EditPesquisa.Clear;//Apagar dados da edit de pesquisa
EditPesquisa.SetFocus;//Selecionar edit de pesquisa
end;
end else showmessage('não ha registros');
|
|
Desculpe-me eu tentei novamente e deu certo, acho que coloquei if no lugar de if not
Obrigado pela ajuda. |
_________________
Atencisamente,
Bruno Moreira Batista.
http://www.kawek.com.br/BrunoBatista
Skype: Bruno_Batysta |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
