comando Max!

[mayconvm]

Galera n sei o que ta acontecendo já tentei de todas as formas e nada... da um erro estranho aqui...

Query.SQL.Clear;
query.SQL.add('SELECT Max(N_REGISTRO) AS n_max FROM Membros');
query.ExecSQL;
n_registro.text := Query.FieldByName('N_REGISTRO').AsString; <-- O ERRO DA AQUI!

já algumas alterações nesse codigo como

Query.SQL.Clear;
query.SQL.add('SELECT Max(N_REGISTRO) AS n_max FROM Membros');
query.ExecSQL;
n_registro.text := Query.FieldByName('n_max').AsString; <-- O ERRO DA AQUI!

mais nada funciona!! Eu estou usando ODBC!

Obrigado Pela atenção!

[Jhonas]

Query.SQL.Clear;

query.SQL.add('SELECT Max(N_REGISTRO) AS n_max FROM Membros');

query.ExecSQL;

n_registro.text := Query.FieldByName('N_REGISTRO').AsString; <-- O ERRO DA AQUI!

mais nada funciona!! Eu estou usando ODBC!

Experimente assim:

Query.SQL.Clear;
query.SQL.add('SELECT MAX( CAST(N_REGISTRO)) FROM Membros');
query.ExecSQL;

n_registro.text := inttostr(Query.Fields[0].AsInteger);

abraço

[mayconvm]

Moço n deu certo não, o seguinte erro "Erro desconhecido!"... o q sera q pode ser!

[Jhonas]

Moço n deu certo não, o seguinte erro "Erro desconhecido!"... o q sera q pode ser!

Bom... primeiro preciso de mais informações:

qual a versão do seu delphi ? banco de dados ? O erro tem que ser aquele que aparece extamente na sua tela

seja mais amplo nas informações para ficar mais facil ajudar

abraço

[mayconvm]

:D bom eu uso Delphi7, e o banco de dados é ACCESS 2007.

O erro q ta dando e esse aqui:)

Obrigado pela atenção!

OBS: Favor seguir as regras e não digitar texto em caixa alta

3.7 Ao postar uma mensagem, procure usar o tamanho de fonte padrão do fórum, não deixando as letras grandes ou pequenas demais; evite o uso de cores fortes, as quais prejudicam a leitura, e não insira textos totalmente em caixa alta (ESTE É UM TEXTO EM CAIXA ALTA). Tópicos que violarem essa regra serão editados sem prévio aviso.

Editado Abril 25, 2009 por Jhonas
Regras do Forum

[Jhonas]

Tente assim

Query.SQL.Clear;
query.SQL.add('SELECT MAX( CAST(N_REGISTRO AS INTEGER)) FROM Membros');
query.ExecSQL;

n_registro.text := inttostr(Query.Fields[0].AsInteger);

abraço