Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

User386_Denilson

Retornar valor da query em variável

Recommended Posts

Pessoal estou buscando o Max(Step)+1 para meu contador quando o Bateria for igual ao valor do DBLcbx, mas não está retornando o valor do campo do BD (Firebird 2.5). Por favor ajudem o novato.
[codigo]
procedure TFPrograma.BTInserirClick(Sender: TObject);
begin
Dm.QryReceita.SQL.Clear;
Dm.QryReceita.SQL.ADD('SELECT max (NSTEP)+1 FROM RECEITA WHERE BATERIA_BAT=:PARAMETRO');
DM.QryReceita.ParamByName('PARAMETRO').Value:=DBLookupComboBox1.KeyValue;
DM.QryReceita.Open;

Edit1.text:=DM.QryReceita.FieldByName('NSTEP').Text;
ShowMessage('Step: '+Edit1.text);
end; [/codigo]

 

Mas o valor do campo está vindo Nulo.

e no BD está executando tudo certo.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Consegui resolver...
Criei uma nova Query com o Select max, e depois o exibi no DBEdit. Segue script:

Dm.QryNStep.Close;
Dm.QryNStep.SQL.Clear;
Dm.QryNStep.SQL.ADD('SELECT max(NSTEP) NSTEP FROM RECEITA WHERE BATERIA_BAT=:PARAMETRO');
DM.QryNStep.ParamByName('PARAMETRO').Value:=LabelBateria.Caption;
DM.QryNStep.Open;
DBText1.Caption:=IntToStr((DM.QryNStep.FieldByName('NSTEP').Value)+1);

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.