COMO PASSAR ESSA INSTRUÇÃO SQL PARA O DELPHI? - FERAS
15/02/2003
0
Where cli.Cod_Vendedor = ´00´
and cli.Cod_Cidade = ´00´
and cli.Cod_Area = ´000´
and cli.Rota_Cliente = ´111´
and cli.Cod_cliente = Pfis.Cod_cliente
A instrução acima executa norma no SQL EXPLORER do Delphi, só que não tou conseguindo escrever os código para executar no delphi
abaixo tem um código que escrevi, veja...
Dm.Qr_Cliente.Close;
Dm.Qr_Cliente.SQL.Clear;
Dm.Qr_Cliente.SQL.add(´Select Cli.Cod_cliente, Pfis.* From TabCliente Cli, TabPes_Fisica Pfis´);
Dm.Qr_Cliente.SQL.Add(´Where cli.Cod_Vendedor = ´´00´´ ´);
Dm.Qr_Cliente.SQL.Add(´and cli.Cod_Cidade = ´´00´´ ´);
Dm.Qr_Cliente.SQL.Add(´and cli.Cod_Area = ´´000´´ ´);
Dm.Qr_Cliente.SQL.Add(´and cli.Rota_Cliente = ´´111´´ ´);
Dm.Qr_Cliente.SQL.Add(´and Cli.Cod_cliente = Pfis.Cod_cliente ´);
Dm.Qr_Cliente.open;
Mas algo dever está errado, pois retorna com um erro:
´Qr_Cliente: Fild ´Cod_Cliente´ not Found´
Meu Banco é ACCESS
e uso TQUERY
Agradeceria muito se alguém me ajudasse, pois até agora não consegui a solução
Jelves
Jelves
Posts
15/02/2003
Anonymous
[color=blue:3b4ee733a6]With Dm.Qr_Cliente do
begin
close;
SQL.Clear;
SQL.add(´Select Cli.Cod_cliente, Pfis.* From TabCliente Cli, TabPes_Fisica Pfis ´ +
´ Where cli.Cod_Vendedor = 00 ´+
´ and cli.Cod_Cidade = 00 ´+
´ and Dm.Qr_Cliente.SQL.Add(´and cli.Rota_Cliente = 11 ´+
´ and Cli.Cod_cliente = Pfis.Cod_cliente ´)
open;
end;[/color:3b4ee733a6]
falow
Fernando Souza
Votorantim -SP
15/02/2003
Jelves
[color=blue:3b1ad4bd58]With Dm.Qr_Cliente do
begin
close;
SQL.Clear;
SQL.add(´Select Cli.Cod_cliente, Pfis.* From TabCliente Cli, TabPes_Fisica Pfis ´ +
´ Where cli.Cod_Vendedor = 00 ´+
´ and cli.Cod_Cidade = 00 ´+
´ and Dm.Qr_Cliente.SQL.Add(´and cli.Rota_Cliente = 11 ´+
´ and Cli.Cod_cliente = Pfis.Cod_cliente ´)
open;
end;[/color:3b1ad4bd58]
falow
Fernando Souza
Votorantim -SP[/quote:3b1ad4bd58]
With Dm.Qr_Cliente do
begin
close;
SQL.Clear;
SQL.add(´Select Cli.Cod_cliente, Pfis.* From TabCliente Cli, TabPes_Fisica Pfis ´ +
´ Where cli.Cod_Vendedor = ´´00´´ ´+
´ and cli.Cod_Cidade = ´´00´´ ´+
´ and cli.Cod_Area = ´´000´´ ´+
´ and Cli.Rota_Cliente = ´´111´´ ´+
´ and Cli.Cod_cliente = Pfis.Cod_cliente´);
open;
end;
O problema é que está dando o seguinte erro:
´Qr_Cliente: Fild ´Cod_Cliente´ not Found´
Infelismente já recebi uma 20 dicas mais nenhuma acertou ainda
15/02/2003
Anonymous
assim
cli.Rota_Cliente = ´´111´´
fica
cli.Rota_Cliente = 111
falow
Fernando Souza
Votorantim-SP
15/02/2003
Jelves
assim
cli.Rota_Cliente = ´´111´´
fica
cli.Rota_Cliente = 111
falow
Fernando Souza
Votorantim-SP[/quote:6549fc25ad]
Por via das dúvidas eu até tirei, mais não deu certo, é porque meu campo na tabela é do tipo string, por isto que tem que ter as aspas , quando eu faço somente para uma tabela dá certo o problema que tou unido duas tabela..
jelves
15/02/2003
Anonymous
15/02/2003
Jelves
ESTOU TE MANDANDO A BASE...
OBRIGADO..
15/02/2003
Oscar Ribeiro
Dm.Qr_Cliente.Close;
Dm.Qr_Cliente.SQL.Clear;
Dm.Qr_Cliente.SQL.add(´Select Cli.Cod_cliente, Pfis.* From TabCliente Cli, TabPes_Fisica Pfis´);
Dm.Qr_Cliente.SQL.Add(´Where cli.Cod_Vendedor = ´´´00´´´´ ´);
Dm.Qr_Cliente.SQL.Add(´and cli.Cod_Cidade = ´´´00´´´´ ´);
Dm.Qr_Cliente.SQL.Add(´and cli.Cod_Area = ´´´000´´´´ ´);
Dm.Qr_Cliente.SQL.Add(´and cli.Rota_Cliente = ´´´111´´´´ ´);
Dm.Qr_Cliente.SQL.Add(´and Cli.Cod_cliente = Pfis.Cod_cliente ´);
showmessage(Dm.Qr_Cliente.SQL.text);
Dm.Qr_Cliente.open;
15/02/2003
Anonymous
Todos os campos citados no SQL devem ser adicionados.
Clique aqui para fazer login e interagir na Comunidade :)