Eu li o histórico do post....
Pq vc não pega o CPF, diretamente da tabela ??

SQL.Add('DELETE FROM TABLE WHERE CPF =' + QuotedStr(TabelaCPF.AsString)) ;

Qual o motivo, de vc querer pegar o campo selecionado ?? isso resolveria seu 
problema cara !

Vinicius dos Santos
Blog: http://tuplas.blogspot.com
http://www.msisolucoes.com.br


  ----- Original Message ----- 
  From: Douglas Takahara 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, July 17, 2008 9:17 AM
  Subject: [delphi-br] Re: Exclusão dbgrid!!


  Vinicius Santos,

  Obrigado pelo chute, porém minha tabela tem chaves primárias sim.

  --- Em delphi-br@yahoogrupos.com.br, "Vinicius Santos - MSI"
  <[EMAIL PROTECTED]> escreveu
  >
  > Desculpa me intrometer, eu não estou acompanhando este Post....
  > vou dar um belo de um chute, sua tabela tem chaves primárias ?? se
  não tiver chaves primárias, provavelmente é isso !
  > 
  > Vinicius dos Santos
  > Blog: http://tuplas.blogspot.com
  > http://www.msisolucoes.com.br
  > 
  > ----- Original Message ----- 
  > From: Douglas Takahara 
  > To: delphi-br@yahoogrupos.com.br 
  > Sent: Wednesday, July 16, 2008 6:49 PM
  > Subject: [delphi-br] Re: Exclusão dbgrid!!
  > 
  > 
  > Daniel Bastos,
  > 
  > Eu consigo deletar os dados, porem nem sempre deleta os dados que eu
  > quero.. eu seleciono a field que eu quero deletar, por exemplo, porem
  > n deleta o field que selecionei e sim outro.
  > 
  > --- Em delphi-br@yahoogrupos.com.br, "Daniel Bastos" <danbastos@>
  > escreveu
  > >
  > > Um chute.. até pq não trabalho a um tempo com dbx :)
  > > Será que este delete não pode estar pendente de um commit?
  > > Pq se ele atualiza os dados e não aparece, pode estar usando o
  > isolamento
  > > transacional "ReadCommited". Mas, sem commit, realmente não
  aparecerá no
  > > dbgrid.
  > > 
  > > Abs.
  > > Daniel A. Bastos
  > > 
  > > 2008/7/16 Douglas Takahara <douglashideki@>:
  > > 
  > > > Rubem,
  > > >
  > > > Com relação a primeira pergunta , acredito que realmente o
  selected
  > > > field n corresponde ao campo que contém cpf..
  > > >
  > > > Quanto a segunda pergunta..
  > > > sim , eu abro e fecho novamente a consulta...
  > > >
  > > > --- Em delphi-br@yahoogrupos.com.br
  <delphi-br%40yahoogrupos.com.br>,
  > > > Rubem Nascimento da Rocha
  > > > <djpardalrocha@> escreveu
  > > >
  > > > >
  > > > >
  > > > > Acho que vc está cometendo um equivoco. Vc usa
  DBGrid.SelectedField
  > > > para pegar o valor da chave (por assim dizer) que será usada
  para a
  > > > exclusão, mas será que o SelectedField do DBGrid, no momento da
  > > > deleção, corresponde mesmo ao campo que contém o CPF? Outra coisa,
  > > > depois da deleção, vc fecha e depois abre a consulta do DBGrid?
  > > > >
  > > > > Sds.
  > > > >
  > > > > ________________________________
  > > > > > To: delphi-br@yahoogrupos.com.br
  <delphi-br%40yahoogrupos.com.br>
  > > > > > From: douglashideki@
  > > >
  > > > > > Date: Wed, 16 Jul 2008 17:07:55 +0000
  > > > > > Subject: [delphi-br] Exclusão dbgrid!!
  > > > > >
  > > > > >
  > > > > > Boa tarde,
  > > > > >
  > > > > > Estou tentando excluir uma linha do dbgrid por um button,
  > coloquei o
  > > > > > seguinte:
  > > > > >
  > > > > > if MessageDlg ('Tem certeza que deseja excluir a
  > > > > > informação?',mtConfirmation,[mbYes,mbNo],0)= mrYes then begin
  > > > > >
  > > > > > with DataModule.SQLQuery do begin
  > > > > > close;
  > > > > > sql.Clear;
  > > > > > SQL.Add('DELETE FROM TABLE WHERE CPF =
  > > > > > '+QuotedStr(DBGrid.SelectedField.AsString)+' ');
  > > > > > ExecSQL;
  > > > > >
  > > > > >
  > > > > > Close;
  > > > > >
  > > > > > end;
  > > > > >
  > > > > > Showmessage('Registro excluí­do com sucesso!');
  > > > > > end
  > > > > > Else
  > > > > > Showmessage('Operação cancelada!');
  > > > > >
  > > > > > Gostaria de quando o usuario clicasse neese buton fosse
  deletado a
  > > > > > linha selecionada... Acontece que deletar até deleta, mas ás
  > vezes nao
  > > > > > delete a linha que está selecionada...
  > > > > >
  > > > > > essa parte" +QuotedStr(DBGrid.SelectedField.AsString)+'"
  eh assim
  > > > > > mesmo?
  > > > > >
  > > > > >
  > > > > >
  > > > >
  > > > > __________________________________________________________
  > > > > Instale a Barra de Ferramentas com Desktop Search e ganhe
  EMOTICONS
  > > > para o Messenger! É GRÁTIS!
  > > > > http://www.msn.com.br/emoticonpack
  > > > >
  > > >
  > > > 
  > > >
  > > 
  > > 
  > > [As partes desta mensagem que não continham texto foram removidas]
  > >
  > 
  > 
  > 
  > 
  > 
  > [As partes desta mensagem que não continham texto foram removidas]
  >



   

[As partes desta mensagem que não continham texto foram removidas]

Responder a