Como pego em Delphi o resultado de uma Query ?

MySQL

27/11/2006

Amigos,

Estou usando Delphi e Mysql e estou necessitando incrementar um campo com um valor que é o maior valor já armazenado pra ele + 1. Estou usando o seguinte código e está dando erro na hora de abrir a query.
Dm.QrAux.Close;
Dm.QrAux.SQL.Clear;
Dm.QrAtos.SQL.Add(´SELECT MAX(WCODIGO)+1 AS PROXIMOCODIGO FROM SACADO_CEDENTE´);
Dm.QrAux.Open;
Result := Dm.QrAux.fieldByName(´PROXIMOCODIGO´).AsInteger;

Como pego o resultado desta query ?

Alguém pode sugerir um código ou ver o que está de errado com esse ?
Já alterei o Fieldbyname por Params, FieldList e não consegui.


Winfor

Winfor

Curtidas 0

Respostas

Massuda

Massuda

27/11/2006

Dm.QrAtos.SQL.Add(´SELECT MAX(WCODIGO)+1 AS PROXIMOCODIGO FROM SACADO_CEDENTE´); Dm.QrAux.Open;
Não entendi... você altera o SQL de QrAtos e espera o resultado em QrAux?


GOSTEI 0
Winfor

Winfor

27/11/2006

Nossa q vergonha... estava na minha cara e não estava vendo... me desculpa pelo importunio amigo, é que estou recomeçando em Delphi e esses detalhes me passaram despercebido. Valeu pela puxadinha de orelha...

A sua disposição companheiro...

Fique com Deus



[quote:df24587e39=´Winfor´]Dm.QrAtos.SQL.Add(´SELECT MAX(WCODIGO)+1 AS PROXIMOCODIGO FROM SACADO_CEDENTE´); Dm.QrAux.Open;
Não entendi... você altera o SQL de QrAtos e espera o resultado em QrAux?[/quote:df24587e39]


GOSTEI 0
Massuda

Massuda

27/11/2006

estava na minha cara e não estava vendo...
Acontece... muitos erros se resolvem simplesmente contando para os outros. Boa sorte!


GOSTEI 0
POSTAR