Fazer autoincremento no registro pela interface

[mcsmarmcs 0]

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.

[marcio.theis 3]

você pode fazer usando uma query mesmo:

 

var   prox: integer;beginqry.Close;qry.Sql.Clear;qry.Sql.Add('select max(campo_desejado) as Proximo');qry.Sql.Add('from tabela');qry.Open;prox:=qry.FieldByName('PROXIMO').AsInteger;Inc(prox);Na variável prox vai estar o próximo valor para a tabela...end;

[mcsmarmcs 0]

Não estou conseguindo trabalhar com MAX.O sistema pede outros campos tb, mas não consigo resolver.Estou usando MySQL, talvez os parâmetros sejam diferentes.

[marcio.theis 3]

Como esta montando a sua query ?Qual a versão do seu MySQL ?

[mcsmarmcs 0]

Estou usando MySQL 5.Estou usando a consulta SQL no botão inserir novo registro, evento OnClick.

[marcio.theis 3]

Ok. O que acontece ? Gera erro ? Não funciona, alguma mensagem ?

[mcsmarmcs 0]

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);var prox: integer;begin QRYfuturo.Close; QRYfuturo.Sql.Clear; QRYfuturo.Sql.Add('select max(ordem) as Proximo'); QRYfuturo.Sql.Add('from futuro'); QRYfuturo.Open; prox:=QRYfuturo.FieldByName('PROXIMO').AsInteger; Inc(prox);end;

[marcio.theis 3]

Esse erro é pq você tem no FieldEditor o campo cod_empresa, sendo que você repassa o SQL e não menciona este campo, no caso teria de remover todos os campos do FieldEditor.

[mcsmarmcs 0]

Agora não deu mais erro, porem não encontro o local correto para colocar um insert.Esse comando deve estar em um campo de inserção de novo registro e o campo ordem deve ser exibido em um edit.

[marcio.theis 3]

Coloca a chamada do evento para novo registro e atribuição em uma botão mesmo...tabela.Insert;chama novo código e depois atribui

[mcsmarmcs 0]

Não entendi, pode ser mais específico?

[marcio.theis 3]

Mais específico como ?

Não tem segredos, basta dar um Insert na tabela, fazer a busca pelo novo código e atribuir o valor.

 

procedure TFRMfuturo.Button2Click(Sender: TObject);varprox: integer;beginQRYfuturo.Close;QRYfuturo.Sql.Clear;QRYfuturo.Sql.Add('select max(ordem) as Proximo');QRYfuturo.Sql.Add('from futuro');QRYfuturo.Open;prox:=QRYfuturo.FieldByName('PROXIMO').AsInteger;Inc(prox);tabela.Insert;tabelaCAMPO_CHAVE.Value:=prox;end;

[mcsmarmcs 0]

Funcionou, valeu!

[marcio.theis 3]

beleza... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif