Cleverson Honório Gouvêa

Rapaz, não deu muito certo não, o código que você me passou deleta todos os dados da tabela, eu quero que ele delete apenas um, especificamente o que está sendo vizualizado!!! Que caso não haja dados para apagar apareça uma mensagem ao invés do erro!!! Para o SQL a mesma coisa, posso usar o Query mas após o dado ser deletado a tabela precisa ser atualizada para o form não mostrar mais o Dado em tempo real! E quero deletar especificamente o dado que está a ser vizualizado!

E aí pessoal !!! estou com um probleminha aqui quero ver se derrepente vocês podem me ajudar !!! Tenho um Form que acessa o banco de dados e vizualiza as informações aí tenho um botão que exclui os dados " table1.delete", mas tem um problema quando o banco já está vazio dá erro, como eu faço para que retorne uma mensagem dizendo que não há dados para serem apagados ao invés de ocorrer o erro??? E esses dados também tem um campo código que tem autoincremento mas acontece que quando eu apago os dados ao invés de voltar para o inicio eles continuam a partir do ponto que pararam, isso não é problema pois vou precisar dele assim, mas como eu reseto o autoincremento se eu precisar??? Meu nome é Cleverson Eu uso InterBase 6.5 e Delphi 7 Sou grato desde já pela atenção!

Aí galera eu mesmo consegui!!!! Que ignorância a minha!!! rs Aí vai o código pra alguém interessado!!!! //////////////// procedure TFrm_Incluir.BitBtn1Click(Sender: TObject); begin if ed_nome.text = '' then begin application.MessageBox('O nome do Cliente não foi informado!!!',pchar(caption),mb_iconinformation + mb_ok); ed_nome.SetFocus; exit; end; if ed_telefone.text = '' then begin application.MessageBox('O telefone do Cliente não foi informado!!!',pchar(caption),mb_iconinformation + mb_ok); ed_telefone.SetFocus; exit; end; if ed_equipamento.text = '' then begin application.MessageBox('O equipamento do Cliente não foi informado!!!',pchar(caption),mb_iconinformation + mb_ok); ed_equipamento.SetFocus; exit; end; if ed_problema.text = '' then begin application.MessageBox('O problema do Cliente não foi informado!!!',pchar(caption),mb_iconinformation + mb_ok); ed_problema.SetFocus; exit; end; end; end. ///////////////////// valeu

Galera tenho esse código ////// procedure TFrm_Incluir.BitBtn1Click(Sender: TObject); begin if ed_nome.text = '' then begin application.MessageBox('O nome do Cliente não foi informado!!!',pchar(caption),mb_iconinformation + mb_ok); ed_nome.SetFocus; exit; end; /////// Mas é o seguinte eu quero que nessa mesma procedure ele verifique se outros 3 campos edit.text estão vazios e caso estejam, quero que haja uma mensagem distinta para cada um !!!! Eu fiz assim: ///////// procedure TFrm_Incluir.BitBtn1Click(Sender: TObject); begin if ed_nome.text = '' then begin application.MessageBox('O nome do Cliente não foi informado!!!',pchar(caption),mb_iconinformation + mb_ok); ed_nome.SetFocus; if ed_telefone.text = '' then begin application.MessageBox('O nome do Cliente não foi informado!!!',pchar(caption),mb_iconinformation + mb_ok); ed_telefone.SetFocus; if ed_equipamento.text = '' then begin application.MessageBox('O nome do Cliente não foi informado!!!',pchar(caption),mb_iconinformation + mb_ok); ed_equipamento.SetFocus; if ed_problema.text = '' then begin application.MessageBox('O nome do Cliente não foi informado!!!',pchar(caption),mb_iconinformation + mb_ok); ed_problema.SetFocus; exit; end; end; end; end; end; /////////////////////////////// Mas aí se apenas o 1º ed_nome.text contém texto ele ignora a continuação do código!!! Sera que alguém pode ajudar esse iniciante???? Serei muito grato!!!