Fórum Como pego em Delphi o resultado de uma Query ? #30910

27/11/2006

0

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

Responder

Posts

27/11/2006

Massuda

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?


Responder

Gostei + 0

27/11/2006

Winfor

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]


Responder

Gostei + 0

27/11/2006

Massuda

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar