[delphi-br] Re: Me ajudem a achar algum erro neste código!!!
Olá, esqueci de dizer, Quando se trata de uma consulta que não retorna registros, uma consulta ação, vc deve utilizar QueryX.ExecSql. Roberto. --- Em delphi-br@yahoogrupos.com.br, Erika Lemes [EMAIL PROTECTED] escreveu Roberto, Até que apagou certinho, mas deu este erro antes: Error creating cursor handle O que pode ser??? Obrigado pela sua ajuda! Erika - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- 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
Re: [delphi-br] Re: Me ajudem a achar algum erro neste código!!!
Usa como está abaixo. 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('Delete'); Sql.Add('FROM ITEM.DB'); Sql.Add('WHERE CODCOMPRA = :PCod'); ParamByName('PCod').AsInteger := StrToInt(Label5.Caption); if not QrExclui.Prepared then Prepare; ExecSql; -- No lugar de Open. end; - Original Message - From: Erika Lemes To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 27, 2005 7:19 PM Subject: Re: [delphi-br] Re: Me ajudem a achar algum erro neste código!!! André, Onde eu uso o ExecSql no meu código? Obrigado!!! __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [As partes desta mensagem que não continham texto foram removidas] -- 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.7.6 - Release Date: 27/01/05 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.7.6 - Release Date: 27/01/05 [As partes desta mensagem que não continham texto foram removidas] -- 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
[delphi-br] Re: Me ajudem a achar algum erro neste código!!!
--- 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
Re: [delphi-br] Re: Me ajudem a achar algum erro neste código!!!
Quando se usa o SQL de deletar vc deve usar assim: Query.ExecSQL; Uma vez que este tipo de SQL não retorna dados. - Original Message - From: Erika Lemes To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 27, 2005 6:11 PM Subject: Re: [delphi-br] Re: Me ajudem a achar algum erro neste código!!! Roberto, Até que apagou certinho, mas deu este erro antes: Error creating cursor handle O que pode ser??? Obrigado pela sua ajuda! Erika - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- 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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.7.6 - Release Date: 27/01/05 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.7.6 - Release Date: 27/01/05 [As partes desta mensagem que não continham texto foram removidas] -- 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
Re: [delphi-br] Re: Me ajudem a achar algum erro neste código!!!
André, Onde eu uso o ExecSql no meu código? Obrigado!!! __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [As partes desta mensagem que não continham texto foram removidas] -- 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