(Resolvido) Erro no BDE

[K!ko]

Olá senhores.

Bom, o meu problema é o seguinte:

Meu cliente me notificou a respeito de um erro que ocorreu repentinamente em determinada tela.

Ele relatou que o erro ocorreu de forma muito estranha, pois o mesmo já havia usado a mesma rotina naquele dia e nada havia acontecido.

Pois bem, o erro ocorrido relata uma mensagem: "Table is not indexed";

isto ocorre ao passar um comando sql para determinada tabela em meu fonte. O código é este:

qryaux.SQL.clear;

qryaux.SQL.add( 'Select * from rc ' +
                         ' Where clcodi = ''' +variavel+ ''''+
                         ' and rcesto is null and rcdtpg is null and (rcrece is null or rcrece <> '''+'SIM'+''')');

qryaux.open;

Aparentemente os índeces dessa tabela foram perdidos. :blink:

Estou desenvolvendo em Delphi 5 e BDE

Grato desde já

[Jhonas]

Pois bem, o erro ocorrido relata uma mensagem: "Table is not indexed";

Tabela não está indexada

Este erro costuma aparecer em tabelas Paradox, quando voce define indices em sua tabela e esqueçe de colocar o nome do indice que vai usar:

exemplo correto:

TCadProd1.IndexDefs.Clear;
TCadProd1.IndexName := 'CODPROX';      // indice da tabela
TCadProd1.IndexDefs.Update;

abraço

[K!ko]

Pode crer Jhonas. Isto resolveu o problema parcialmente. O problema é que eu não estava usando índece algum. Ou se estava o mesmo foi gerado pela aplicação que usei para criar o banco (Database Desktop).

Eu havia descartado esta possibilidade pelo fato de meu cliente já estar usando esta tela a bastante tempo e, além disto, no mesmo dia ele havia feito lançamentos nela.

Mas antes disto eu havia feito outro método:

A minha query estava com o RequestLive setado para false. Impossibilitando que eu fizesse transções a partir dela.

Eu fiz um esquema para trabalhar com esta propriedade quando fosse necessário e funfo beleza.

Obrigado pela atenção.

Editado Abril 14, 2009 por K!ko