--- Em delphi-br@yahoogrupos.com.br, "Erika" <[EMAIL PROTECTED]>
escreveu
>
> Pessoal
>
> Eu quero excluir os itens da minha tabela que possuam
o "CODCOMPRA"
> igual ao valor de uma Label... não sei o que está acontecendo mas
> ele exclui TODOS os itens.... não está selecionando!!!
> Alguém poderia me dizer se existe algum erro neste código?
> Gente, não consigo enxergar erro.... será que estou cega? ..rs..
>
> (...)
> if Application.MessageBox('Confirma a exclusão do
> registro ?','Excluir',Mb_YesNo+Mb_IconQuestion)=IdYes then
> with QrExclui do begin
> Close;
> Sql.Clear;
> Sql.Add('SELECT *');
> Sql.Add('FROM "ITEM.DB"');
> Sql.Add('WHERE CODCOMPRA = :PCod');
> ParamByName('PCod').AsInteger := StrToInt(Label5.Caption);
>
> if not QrExclui.Prepared then Prepare;
> Open;
> end;
> QrExclui.First;
> while not QrExclui.Eof do TabelItem.Delete;
Vc tem que dar um locate ou filtar a tabela de itens de acordo com a
QrExclui, senão todos serão excluídos. Ou troca a tua query para :
DELETE
FROM "ITEM.DB"
WHERE CODCOMPRA = :PCod
Acho que fica mais fácil.
Roberto.
> (...)
>
> Obrigado gente!!!!
> Abraços!!!
>
> PS: uso o banco paradox...
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
