Máximo Do Campo

[VDLR]

Alguém poderia me ajudar neste problema.

Preciso pegar o máximo de um determinado campo e jogar em um Edit adicionando + 1

Estou trabalhando com BDE, Query e Banco MySql.

Abraço

Valdecir

[Jhonas]

Preciso pegar o máximo de um determinado campo e jogar em um Edit adicionando + 1

Se entendi direito deve ser algo parecido com isto

SELECT COD_FUNC
FROM FUNCIONARIOS
HAVING  MAX( COD_FUNC ) = COD_FUNC
ORDER BY COD_FUNC

Esta select vai retornar o maior codigo de funcionario na tabela e a partir dai voce pode adicionar + 1 a esse numero e jogar em um edit... é isto ?

[VDLR]

Jhonas, beleza

Onde eu colocaria isto na Query e como eu pego este valor numa variável

SELECT COD_FUNC

FROM FUNCIONARIOS

HAVING MAX( COD_FUNC ) = COD_FUNC

ORDER BY COD_FUNC

Abraço

Valdecir ;)

[Micheus]

Onde eu colocaria isto na Query e como eu pego este valor numa variável

VDLR, você mesmo já disse ter criado uma função para retornar o MAX baseado em algo que postei. A restposta a sua pergunta está neste seu post.

[VDLR]

Micheus, beleza.

Poxa, aquela função que tenho funciona com DataSet, neste caso de só Query com BDE não teu certo.

Abraço

Valdecir :blink:

[Micheus]

Poxa, aquela função que tenho funciona com DataSet, neste caso de só Query com BDE não teu certo.

é questão de, talvez, criar outra função utilizando o componente que você precisa. Mais a idéia é sempre a mesma. ;)

[VDLR]

Micheus, tudo bem

Fiz isto mas dá erro

Query1.Sql.Clear; 
Query1.Sql.Add('SELECT MAX(rttnr) FROM cadrttapi6a'); 
Query1.Open; 
NovoCod := Query1.FieldByName('rttnr').AsInteger + 1;

Recebo esse erro ao clicar no botão

Query1 : Field 'Cliente' not found

Abraço

Valdecir :rolleyes:

[Micheus]

Micheus, tudo bem

Fiz isto mas dá erro

Query1.Sql.Clear; 
Query1.Sql.Add('SELECT MAX(rttnr) FROM cadrttapi6a'); 
Query1.Open; 
NovoCod := Query1.FieldByName('rttnr').AsInteger + 1;

Recebo esse erro ao clicar no botão

Query1 : Field 'Cliente' not found

VDLR, você tem que fazer um:

MAX(rttnr) AS rttnr

para usar este nome de campo no FieldByname.

A mensagem reclamando "Cliente" não tem nada a ver com a sua instrução SQL, logo parece que você tem algum campo adicionado em design-time ao seu Query1 e daí, no Open, ele reclama. Dê uma conferida.

[VDLR]

VDLR, você tem que fazer um:

MAX(rttnr) AS rttnr

para usar este nome de campo no FieldByname.

A mensagem reclamando "Cliente" não tem nada a ver com a sua instrução SQL, logo parece que você tem algum campo adicionado em design-time ao seu Query1 e daí, no Open, ele reclama. Dê uma conferida.

Micheus, beleza.

Essa parte funcionou, porém surgiu outro problema:

Estou usando isto na tela de cadastro e ao clicar no botão para inserir um novo cadastro, o grid esta ficando em branco, já tentei e não consegui acertar isto. você poderia me dar uma luz.

Abraço

Valdecir

[Micheus]

Essa parte funcionou, porém surgiu outro problema:

Estou usando isto na tela de cadastro e ao clicar no botão para inserir um novo cadastro, o grid esta ficando em branco, já tentei e não consegui acertar isto. você poderia me dar uma luz.

VDLR, por acaso este dataset (Query1) é o mesmo que você utiliza para mostrar os dados no DBGrid?

Se a resposta for não, você poderia colocar o código existente no referido botão?