--- 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