Erro ao deletar (SQL) IBExpert/Fb

[petini 0]

Olá pessoal,

 

tenho um sisteminha de emissão de NPs (como se fossem Carnets)

com uma tabela básica onde estão todos os dados e uma tabela que é

criada por um laço FOR onde estarão todos os vencimentos futuros.

essa segunda tabela só é usada para emitir (impimir) as NPs.

depois de emitidas, a tabela deve ser zerada para não ficar nenhum registro do negócio, mas toda vez que preciso deletar acontece um erro:

 

Erro Token Unknow

SQL Error Code -104

Lin 1 column 24

 

as linhas são as seguintes:

 

If DataModule1.cdsIMPR.IsEmpty = False then

If MessageDlg('Confirma a exclusão ?',

MtWarning,

[mbYes, mbNo], 0 ) = mrYES then

If DataModule1.cdsIMPR.IsEmpty = False then

SQLQuery1.SQL.Clear;

SQLQuery1.Close;

SQLQuery1.SQL.Clear;

SQLQuery1.SQL.Text:= ('Delete from DataModule1.cdsIMPR');

SQLQuery1.ExecSQL;

 

as strings são:

SELECT NUMNP, TOTNPS, DTVENCT, VALOR, VENCDIA, VENCMES,

VENCANO, NOME_EMT, CPF_EMT, RG_EMT, ENDR_EMT, BAIR_EMT,

NOME_FAV, CPF_FAV, RG_FAV, VALOR, EXTENSVR,PGTOLOCL,

EMISLOC, EMISDATA, VCTEXDIA FROM TABIMPR

 

já verifiquei tudo, mudei de tabela, renomeei as Strings, mas continua

dando o mesmo erro.

esse erro só ocorre ao tentar deletar, pois de resto o funcionamento é

normal. o que mais devo verificar ?

 

uso D7, IBExpertPersonal, Fb 2.1, DBExpress(UIB).

 

agradeço dicas e ajuda. obrigado. eulicio.

[Chrnos 30]

Amigo, você está passando um componente para a sql deletar??? o.O

 

O problema deve estar nesta linha:

 

SQLQuery1.SQL.Text:= ('Delete from DataModule1.cdsIMPR');

Quando se usa o comando Delete, você não manda o componente... você precisa montar sua condição no WHERE do sql para pegar apenas os registros que quer deletar, algo do tipo:

 

DELETE FROM TB_CLIENTES
WHERE COD_CLIENTE = 200484

[]'s