Consulta com resultado agrupado em campo MEMO
Olá pessoal estou com uma dúvida.
Tenho uma tabela que preciso que após a consulta o resultado seja mostrado em um Campo MEMO.
A tabela tem 4 campos que vão ser consultados ao mesmo tempo.
1- Posição
2 - Quadra
3 - Fila
4 - Linha
Os quatro são números e o último Linha pode ter mais que uma resposta na consulta, por isso preciso que agrupe o resultado em um campo MEMO.
No MEMO só será mostrado os campos Linha e Descrição (que descreve a situação do registro). Tentei assim mas diz que o Type está errado.
DMEntra.QyLinha.Close;
DMEntra.QyLinha.SQL.Clear;
DMEntra.QyLinha.SQL.Add ('Select * from entrada.db');
DMEntra.QyLinha.SQL.Add('where posicao=:posicao');
DMEntra.QyLinha.SQL.Add('AND quadra=:quadra');
DMEntra.QyLinha.SQL.Add('AND fila=:fila');
DMEntra.QyLinha.SQL.Add('AND linha>=:linha_ini and linha<=:linha_fin');
DMEntra.QyLinha.ParamByName('posicao').Value:=Edit6.Text;
DMEntra.QyLinha.ParamByName('quadra').Value:=Edit7.Text;
DMEntra.QyLinha.ParamByName('fila').Value:=Edit1.Text;
DMEntra.QyLinha.ParamByName('linha_ini').Value:=strtoint(Edit2.Text);
DMEntra.QyLinha.ParamByName('linha_fin').Value:=strtoint(Edit3.Text);
DMEntra.QyLinha.Open;
end;
Se alguém tiver uma ideia, agradeço.
Tenho uma tabela que preciso que após a consulta o resultado seja mostrado em um Campo MEMO.
A tabela tem 4 campos que vão ser consultados ao mesmo tempo.
1- Posição
2 - Quadra
3 - Fila
4 - Linha
Os quatro são números e o último Linha pode ter mais que uma resposta na consulta, por isso preciso que agrupe o resultado em um campo MEMO.
No MEMO só será mostrado os campos Linha e Descrição (que descreve a situação do registro). Tentei assim mas diz que o Type está errado.
DMEntra.QyLinha.Close;
DMEntra.QyLinha.SQL.Clear;
DMEntra.QyLinha.SQL.Add ('Select * from entrada.db');
DMEntra.QyLinha.SQL.Add('where posicao=:posicao');
DMEntra.QyLinha.SQL.Add('AND quadra=:quadra');
DMEntra.QyLinha.SQL.Add('AND fila=:fila');
DMEntra.QyLinha.SQL.Add('AND linha>=:linha_ini and linha<=:linha_fin');
DMEntra.QyLinha.ParamByName('posicao').Value:=Edit6.Text;
DMEntra.QyLinha.ParamByName('quadra').Value:=Edit7.Text;
DMEntra.QyLinha.ParamByName('fila').Value:=Edit1.Text;
DMEntra.QyLinha.ParamByName('linha_ini').Value:=strtoint(Edit2.Text);
DMEntra.QyLinha.ParamByName('linha_fin').Value:=strtoint(Edit3.Text);
DMEntra.QyLinha.Open;
end;
Se alguém tiver uma ideia, agradeço.
Alexandre
Curtidas 0
Respostas
Alexandre
09/05/2015
Consegui assim só não mostra todos os registros juntos, não sei se usaria um campo MEMO ou um campo TEXTO.
Alguém pode ajudar?
DMENTRA.QyLINHA.Close;
DMENTRA.QyLINHA.SQL.Clear;
DMENTRA.QyLINHA.SQL.Add ('Select * from entrada.DB');
DMENTRA.QyLINHA.SQL.Add('where LINHA>=:LINHA_INI and LINHA<=:LINHA_FIM');
DMENTRA.QyLINHA.SQL.Add('AND POSICAO=:POSICAO');
DMENTRA.QyLINHA.SQL.Add('AND QUADRA=:QUADRA');
DMENTRA.QyLINHA.SQL.Add('AND FILA=:FILA order by LINHA');
DMENTRA.QyLINHA.ParamByName('LINHA_INI').AsInteger:=strtoint(Edit2.Text);
DMENTRA.QyLINHA.ParamByName('LINHA_FIM').AsInteger:=strtoint(Edit3.Text);
DMENTRA.QyLINHA.ParamByName('POSICAO').AsInteger:=strtoint(Edit6.Text);
DMENTRA.QyLINHA.ParamByName('QUADRA').AsInteger:=strtoint(Edit7.Text);
DMENTRA.QyLINHA.ParamByName('FILA').AsInteger:=strtoint(Edit1.Text);
DMENTRA.QyLINHA.Open;
Alguém pode ajudar?
DMENTRA.QyLINHA.Close;
DMENTRA.QyLINHA.SQL.Clear;
DMENTRA.QyLINHA.SQL.Add ('Select * from entrada.DB');
DMENTRA.QyLINHA.SQL.Add('where LINHA>=:LINHA_INI and LINHA<=:LINHA_FIM');
DMENTRA.QyLINHA.SQL.Add('AND POSICAO=:POSICAO');
DMENTRA.QyLINHA.SQL.Add('AND QUADRA=:QUADRA');
DMENTRA.QyLINHA.SQL.Add('AND FILA=:FILA order by LINHA');
DMENTRA.QyLINHA.ParamByName('LINHA_INI').AsInteger:=strtoint(Edit2.Text);
DMENTRA.QyLINHA.ParamByName('LINHA_FIM').AsInteger:=strtoint(Edit3.Text);
DMENTRA.QyLINHA.ParamByName('POSICAO').AsInteger:=strtoint(Edit6.Text);
DMENTRA.QyLINHA.ParamByName('QUADRA').AsInteger:=strtoint(Edit7.Text);
DMENTRA.QyLINHA.ParamByName('FILA').AsInteger:=strtoint(Edit1.Text);
DMENTRA.QyLINHA.Open;
GOSTEI 0