Por Favor! Consulta em SQL PARADOX
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;
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
Curtidas 0
Respostas
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
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