COMO PASSAR ESSA INSTRUÇÃO SQL PARA O DELPHI? - FERAS
Select Cli.*,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
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
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
Curtidas 0
Respostas
Anonymous
15/02/2003
Faça assim .. tirando as aspas
[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
[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
GOSTEI 0
Jelves
15/02/2003
[quote:3b1ad4bd58=´b l e k a u t e´]Faça assim .. tirando as aspas
[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
[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
GOSTEI 0
Anonymous
15/02/2003
vc tentou tirar as aspas
assim
cli.Rota_Cliente = ´´111´´
fica
cli.Rota_Cliente = 111
falow
Fernando Souza
Votorantim-SP
assim
cli.Rota_Cliente = ´´111´´
fica
cli.Rota_Cliente = 111
falow
Fernando Souza
Votorantim-SP
GOSTEI 0
Jelves
15/02/2003
[quote:6549fc25ad=´b l e k 4 u t e´]vc tentou tirar as aspas
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
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
GOSTEI 0
Anonymous
15/02/2003
Tô intrigado com esse problema! Se você quiser mande a sua base de dados para [url]emerson.en@ig.com.br[/url] que eu vou ver se consigo algo
GOSTEI 0
Jelves
15/02/2003
Tô intrigado com esse problema! Se você quiser mande a sua base de dados para [url]emerson.en@ig.com.br[/url] que eu vou ver se consigo algo
ESTOU TE MANDANDO A BASE...
OBRIGADO..
GOSTEI 0
Oscar Ribeiro
15/02/2003
Cara, não sei se já resolveu, tive um problema parecido e resolvi aumentando o numero de aspas, antes e depois do valor e da um showmessage logo após montar o comando para ver se ficou ok. tá aí espero ter ajudado.
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;
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;
GOSTEI 0
Anonymous
15/02/2003
Verifique no FieldList do seu componente query se você adicionou este campo.
Todos os campos citados no SQL devem ser adicionados.
Todos os campos citados no SQL devem ser adicionados.
GOSTEI 0