Paradox auto-incremento

Delphi

24/07/2003

Estou tentando criar auto-incremento através da forma abaixo, mas não dá certo, o delphi mostra:

[Error] UDados.pas(45): Undeclared identifier: ´TabelaCodigo´

----
Não use o autoincremento do paradox.
No projeto, use uma TQuery que contenha a instrução: Select MAX(Codigo_Tabela) from Tabela
Na tabela, no evento afterInsert, crie o evento: TabelaCodigo.Value := (QueryMax.value + 1);
----

Tenho pouco conhecimento sobre esta parte. Alguém pode me ajudar?
Tabela: tbCandidatos
Campo: CodCandidato


Fu

Fu

Curtidas 0

Respostas

Nebrio

Nebrio

24/07/2003

Deixe o SQL da Query assim:

Select MAX(CodCandidato) from tbCandidatos
// Nome da tabela deve ser igual a da criação e não da definida no Data Module

Agora antes de dar um Post na Tabela faça o seguinte:

query.Close;
query.Open;
tbCandidatosCodCabdidato.Value := QueryMaxValue.Value + 1;
query.Close;

Isso funciona...

T+

Nébrio


GOSTEI 0
POSTAR