Por Favor! Consulta em SQL PARADOX

Delphi

24/09/2003

Ola pessoal,peço mais um avez que me ajudem .

Preciso fazer uma consulta com Tres tabelas

Colecao
Cod_Col
Colecao

Ficha
Num_Ficha
Referencia
Modelo
Colecao
.
.
.

Itens
Num_Ficha
Descricao
Data
.
.
.

Onde ao digitar a Colecao em Um DbLookComboBox, e a Referencia Inicial e Final nos Edits , me retorne o intervalo emtre as referncia na respectiva coleção.

Segue um Select que criei porem ele me retorna a colecao mas não o intervalo entre as referencias.

Ex : Colecao = Inverno 2003
Ref.Inic = 1000
Ref.Fin = 1010
Ele me retorna o ultima referencia juntado os dados (Itens ) das Outra referencias

em um Query

Select Ficha.Num_Ficha,Colecao,Referencia,Modelo,Situacao,Tempo,Data,Cod_Tam,Total_Ficha,Itens.Descricao,Unidade,Quantidade,Valor_Item,sub_Total_Item,Colecao.Colecao,Cod_Col
From Ficha,Itens,Colecao
Where Ficha.Num_Ficha=Itens.Num_Ficha and
upper(Colecao) like upper(:VarColecao) and
Ficha.Referencia between :VarRefInic and :VarRefFin
Order By Ficha.Referencia

No delphi

begin
With QRFicha Do
Begin
Close;
ParamByName(´VarColecao´).AsString:=DBLookupComboBox2.Text+´¬´;
ParamByName(´VarRefInic´).AsString:=EdtInic.Text+´¬´;
ParamByName(´VarRefFin´).AsString:=EdtFin.Text+´¬´;
Prepare;
Open;
QrpFicha.Preview;
End;
if QRFicha.RecordCount=0 then
Begin
ShowMessage(´Não existe nenhuma Ficha Técnica para esta Referência!´);
End;
end;


Alexrol

Alexrol

Curtidas 0

Respostas

Mmtoor

Mmtoor

24/09/2003

Prezado amigo:
com certeza vc criou relacionamentos para que os cadastros pudessem ser ralizados.
No mais, melhor é criarmos um exemplo.
Se preferir, mande suas dbs que crio um exemplo rapidinho e ter mando de volta.
Se for mandar, poste para valhaha.mysql@bol.com.br
MMTOOR2003


GOSTEI 0
POSTAR