[resolvido] Fazer Autoincremento No Registro Pela Interface

[mcsmarmcs]

Alguém sabe como fazer um autoincremento pegando a informação do último registro e acrescentando +1.

Ex: Tenho um campo chamado ordem que é do tipo integer, preciso pegar o último registro desse campo e acrescentar +1. Mas não posso usar o MySQL pra fazer isso pois ele já está fazendo outro autoincremento nesta tabela. Preciso fazer isso na interface.

[Micheus]

Ex: Tenho um campo chamado ordem que é do tipo integer, preciso pegar o último registro desse campo e acrescentar +1. Mas não posso usar o MySQL pra fazer isso pois ele já está fazendo outro autoincremento nesta tabela. Preciso fazer isso na interface.

mcsmarmcs, você pode fazer uma consulta nesta tabela pegando o MAX do campo e somando 1.

QryNumOrdem.SQL.Clear;
QryNumOrdem.SQL.Add('select MAX(ordem) ordem from nome_tabela');
QryNumOrdem.Open;
Edit1.Text := IntToStr(QryNumOrdem.FieldByName('ordem').AsInteger +1);

Mas, se este campo é incrementado automaticamente pelo banco, esse procedimento não é garantia de que será o valor que seu registro receberá ao ser gravado.

Vamos supor que dois usuários, cadastrando um novo item na tabela, ao mesmo tempo obtenham o código 1000 para mostrar em sua interface. O corre é que na hora que a informação for gravada, o primeiro que gravar irá receber o código 1000 (atribuído pelo banco) e o registro gravado pelo próximo usuário receberá o código 1001 (atribuído pelo banco) - o que é diferente do esperado (1000).

Abraços

[mcsmarmcs]

Não estou conseguindo trabalhar com MAX.

O sistema pede outros campos também, mas não consigo resolver.

Estou usando MySQL, talvez os parâmetros sejam diferentes.

[Micheus]

Não estou conseguindo trabalhar com MAX.

O sistema pede outros campos também, mas não consigo resolver.

Estou usando MySQL, talvez os parâmetros sejam diferentes.

mcsmarmcs, hipótese improvável.

A sintax para uso do MAX, da forma proposta (apenas ele na cláusula SELECT), e exatamente esta para 99,99% dos bancos de dados. Apenas se houvessem outros campos, juntamente com a função de agregação - MAX, é que você deveria utilizar a sintax completa do GROUP BY. Veja documentação do MySQL (link), logo no início, na tabela tem um link para a função MAX() nesta condição.

O ideal seria você colocar aqui a mensagem exata que você recebe. Bem como a parte do código em que você monta a instrução.

Abraços

[mcsmarmcs]

A mensagem de erro é: "Project Sistema.exe raised exception class EDatabaseError with message QRYfuturo: Field 'cod_empresa' not found".

O código está abaixo:

procedure TFRMfuturo.Button2Click(Sender: TObject);

begin

QRYfuturo.SQL.Clear;

QRYfuturo.SQL.Add('select MAX(ordem) ordem from futuro');

QRYfuturo.Open;

EDordem.Text := IntToStr(QRYfuturo.FieldByName('ordem').AsInteger +1);

end;

[Churc]

Opa

entrando pelas portas do fundo tipo, pela mensagem diz que o campo "cod_empresa" não

existe na tabela, chegou a verificar ou se por exemplo alguma outra coisa faz ligação

a "cod_empresa"?

abraço

[Micheus]

"portas dos funfos..." essa foi boa Churc :)

Só completando o que você sugeriu, parece-me que o componente QRYfuturo tem outra aplicação no programa que não apenas ser utilizado para obter o MAX ou, por algum outro motivo, ela tem fields adicionados em design-time que não correspondem ao esperado.

Se a instrução utilizada (select max...) fosse adicionada em design-time, a adição dos fields deste TQuery resultaria apenas no field de nome Ordem - não é o caso. Dê uma verificada mcsmarmcs.

Abraços

[mcsmarmcs]

Esse era o problema mesmo, obrigado!