Fórum Preciso gerar um relatório e ta dificil. #180759

[b:0321e7c9b2]Conselho![/b:0321e7c9b2]
Evita usar Parâmetros em uma Query.
Ex.:

Query1.Add(‘Select * From Tabela_01 where Código = ’ + EditCodigoPesq.Text);

T+

Existem alguns problemas na query que vc criou.
Um dele foi que vc não identificou a origem dos dados (´From´), outra mesmo que vc identificasse, provavelmente vc teria um erro de ´Ambiguos Column Name´, pois vc teria duas colunas como mesmo nome (´Codigo´).

Faça a query da seguinte forma.

With form_principal.Query1 do
Begin
Close;
SQL.Clear;
SQL.Add ( ´Select Alu.Nome, Per.Codigo, Per.Nome´);
SQL.Add ( Not.1_Nota, Not.2_Nota´);
SQL.Add ( Not.Media, Not.Descricao´);
SQL.Add (From Alunos Alu ´);
SQL.Add (Inner join Periodo Per on (Alu.Codigo = Per.cod_alunos´);
SQL.Add (Inner join Notas Not on (Per.Codigo = Per.cod_periodo´);
SQL.Add (Where Alu.Codigo = :iAlunos ´);
ParamByName(´iAlunos´).asInteger := zonal;
open;

// Verifica se existem dados na Query
If isEmpty then
ShowMessage(´Não existem notas para o Aluno´);
Else
form_rel_geral.QuickRep1.Preview;

Close;
End;


Não sei qual banco de dados vc esta utilizando, fiz uma query que funcionaria no SQLServer (caso não exista erros de sintaxe). [risos]

Não sei se entendi bem seu problema, mas se houver dúvida pode me consultar em derecksp@bol.com.br.








End;

.SQL.Clear;
form_principal.Query1.SQL.Add(´SELECT * FROM notas where cod_periodo= :pzonal´);
form_principal.Query1.ParamByName(´pzonal´).AsString := (zonal);
form_principal.Query1.Prepare;
form_principal.Query1.Open;
form_rel_geral.QuickRep1.Preview;