Pessoal, num botao que exclui os dados das tabelas coloquei o seguinte código: if messagebox(0, 'TEM CERTEZA QUE DESEJA EXCLUIR A NOTA DE DEVOLUÇÃO?', 'CONFIRMAÇÃO', MB_YESNO + MB_ICONQUESTION) = 6 THEN IF MESSAGEBOX(0, 'TEM CERTEZA MESMO?' + #13+ 'APOS APAGAR A NOTA NÃO PODERAM SER RECUPERADA!', 'CONFIRMAÇÃO!!!!', MB_YESNO + MB_ICONQUESTION) = 6 THEN BEGIN WITH qrDados DO //apaga os itens da nota fiscal tabela itens_devolucao BEGIN CLOSE; SQL.Clear; SQL.Add('DELETE * FROM ITENS_DEVOLUCAO '); SQL.Add('WHERE DEVOLUCAO = :DEVOLUCAO '); ParamByName('DEVOLUCAO').AsInteger := cdsNotaDEVOLUCAO.Value; ExecSQL; END;
WITH qrGrid DO //apaga os dados da tabela com os dados da nota BEGIN CLOSE; SQL.Clear; SQL.Add('DELETE * FROM DEVOLUCAO '); SQL.Add('WHERE DEVOLUCAO = :DEVOLUCAO '); ParamByName('DEVOLUCAO').AsInteger := cdsNotaDEVOLUCAO.Value; ExecSQL; END; END; cdsDadosQuery.Refresh; cdsNota.Refresh; da o seguinte erro INVALID USE OS KEYWORD TOKEN : * LINE NUMBER 1 se tiro o * da sentença sql, aparece outro erro, TABLE IS READ ONLY o que será que esta dando pau??? Miguel Villacorta 4446-4100 ramal 4126 7312-5509 [EMAIL PROTECTED] www.dpfautopecas.com.br MSN [EMAIL PROTECTED] ---------- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.338 / Virus Database: 267.9.6/59 - Release Date: 27/7/2005 [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