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;
(...)
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
