Fórum Como posso montar esta instrucao SQL ??? usando INNER JOIN #284673

14/06/2005

0

Boa tarde a todos do forum , estou tendo dificuldades em executar a seguinte instrucao SQL: Presciso buscar o nome dos Vendedores da tabela VENDEDOR, Baseada na tabela de CAIXA

CAIXA : CodCaixa, CodSupervisor, CodUsuario, Data, Valor.
VENDEDOR : CodVendedor, Nome, Comissao.

Veja a minha SQL montada, nao da erro mas porem tras para o campo CAIXA o mesmo vendedor


SqlAux.Close;
SqlAux.SQL.Clear;
SqlAux.SQL.Add(´Select Caixa.*,´);
SqlAux.SQL.Add(´Vendedor.Nome as Supervisor,´);
SqlAux.SQL.Add(´Vendedor.Nome as Usuario from Caixa´);
SqlAux.SQL.Add(´Inner Join Vendedor on Vendedor.CodVendedor = Caixa.CodSupervisor´);
SqlAux.SQL.Add(´Inner Join Vendedor on Vendedor.CodVendedor = Caixa.CodUsuario´);
SqlAux.SQL.Add(´Where Caixa.CodCaixa = :Codigo´);
SqlAux.ParamByName(´Codigo´).AsInteger:= NumeroDaAbertura;
SqlAux.Open;

edtSupervisor.Text:= SqlAux.fieldByName(´Supervisor´).AsString;
edtUsuario.Text:= SqlAux.fieldByName(´Usuario´).AsString;


Entao aparece o mesmo no de vendedor para os dois edits...?
alguem sabe me dizer aonde erro ??? Estou usando IB6, delphi 7 Obrigado ...


Walter Faria

Walter Faria

Responder

Posts

14/06/2005

Rjun

Altere seu sql.

SqlAux.Close; 
SqlAux.SQL.Clear; 
SqlAux.SQL.Add(´Select Ca.*,´); 
SqlAux.SQL.Add(´Su.Nome as Supervisor,´); 
SqlAux.SQL.Add(´Us.Nome as Usuario from Caixa Ca´); 
SqlAux.SQL.Add(´Inner Join Vendedor Su on Su.CodVendedor = Caixa.CodSupervisor´); 
SqlAux.SQL.Add(´Inner Join Vendedor Us on Us.CodVendedor = Caixa.CodUsuario´); 
SqlAux.SQL.Add(´Where Ca.CodCaixa = :Codigo´); 
SqlAux.ParamByName(´Codigo´).AsInteger:= NumeroDaAbertura; 
SqlAux.Open; 



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar