Quem sabe me dizer aonde está o erro??????Please...

Delphi

14/02/2003

procedure TFrm_Clientes.Button1Click(Sender: TObject);
begin
Dm.Qr_Cliente.Close;
Dm.Qr_Cliente.SQL.Clear;
Dm.Qr_Cliente.SQL.add(´Select Cli.*,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_Pes_Fisica.Open;
Dm.Qr_Cliente.open;

end;

Dá o seguinte erro: ´Qr_Cliente: Fild ´Cod_Cliente´ not Found´

Que sabe me falar o que eu estou fazendo de errado???

Obrigado!
Jelves


Jelves

Jelves

Curtidas 0

Respostas

Nildo

Nildo

14/02/2003

O campo cod_client nao existe


GOSTEI 0
Jelves

Jelves

14/02/2003

O campo cod_client nao existe


Tudo bem isto é o que a mensagem diz, mais o campo Cod_cliente existe nas duas tabela...

Não é isso...

Thanks


GOSTEI 0
Nildo

Nildo

14/02/2003

´Select Cli.*,Pfis.* From TabCliente Cli, TabPes

Aquele ´tabCliente Cli´ esta certo com aquele espaco ?


GOSTEI 0
Jelves

Jelves

14/02/2003

´Select Cli.*,Pfis.* From TabCliente Cli, TabPes Aquele ´tabCliente Cli´ esta certo com aquele espaco ?



O Cli é o apelido que dei para TabCliente do mesmo jeito que dei o apelido Pfis para tabPes_Fisica..

Ainda não é isso, incrivel é usando o SQLExplorer eu consigo obter os resultados..

Jelves


GOSTEI 0
Anonymous

Anonymous

14/02/2003

Boa tarde jovem..
Qual base de Dados voce esta usando.????
Caso seje Paradox...me manda as duas tabelas que posso dar uma olhada..


GOSTEI 0
Anonymous

Anonymous

14/02/2003

Já vi problemas semelhantes e a solução era escolher apenas um dos campos que tem o mesmo nome. No seu caso, PFis e Cli tem um campo em comum: Cod_Cliente. Altere a sua instrução de modo a escolher apenas um dos campos. Por exemplo:

Select Cli.Nome_Cliente, Cli.CNPJ_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

Note que da tabela Cli foram selecionados os campos desejados com exceção do campo Cod_Cli, pois ele será selecionado na instrução PFis.*.


GOSTEI 0
Anonymous

Anonymous

14/02/2003

Boa tarde jovem.. Qual base de Dados voce esta usando.???? Caso seje Paradox...me manda as duas tabelas que posso dar uma olhada..


Estou usando Access, para qual endereço vc quer que lhe mande...

Jelves


GOSTEI 0
Jelves

Jelves

14/02/2003

Já vi problemas semelhantes e a solução era escolher apenas um dos campos que tem o mesmo nome. No seu caso, PFis e Cli tem um campo em comum: Cod_Cliente. Altere a sua instrução de modo a escolher apenas um dos campos. Por exemplo: Select Cli.Nome_Cliente, Cli.CNPJ_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 Note que da tabela Cli foram selecionados os campos desejados com exceção do campo Cod_Cli, pois ele será selecionado na instrução PFis.*.



Obrigado, mas não deu certo...

jelves


GOSTEI 0
Anonymous

Anonymous

14/02/2003

Boa tarde jovem..
Qual base de Dados voce esta usando.????
Caso seje Paradox/Access...me manda as duas tabelas que posso dar uma olhada..


dms@iis.com.br


Desculpa...da primeira vez que te respondi nao passei o email :)

Ass Ricardo M.Souza


GOSTEI 0
Oscar Ribeiro

Oscar Ribeiro

14/02/2003

olha como disse domingo de madrugada aumente o numero de aspas de ambos os lados. dê um show para ver se ficou ok ou se precisa adicionar ou tirar aspas, exemplo:
Dm.Qr_Cliente.Close;
Dm.Qr_Cliente.SQL.Clear;
Dm.Qr_Cliente.SQL.add(´Select Cli.*,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_Pes_Fisica.Open;
Dm.Qr_Cliente.open;

end;

Dá o seguinte erro: ´Qr_Cliente: Fild ´Cod_Cliente´ not Found´

Que sabe me falar o que eu estou fazendo de errado???

Obrigado!
Jelves



GOSTEI 0
Oscar Ribeiro

Oscar Ribeiro

14/02/2003

[quote=´Oscar Martins Ribeiro´]olha como disse domingo de madrugada aumente o numero de aspas de ambos os lados. dê um show para ver se ficou ok ou se precisa adicionar ou tirar aspas, exemplo:
Dm.Qr_Cliente.Close;
Dm.Qr_Cliente.SQL.Clear;
Dm.Qr_Cliente.SQL.add(´Select Cli.*,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_Pes_Fisica.Open;
Dm.Qr_Cliente.open;

end;

Dá o seguinte erro: ´Qr_Cliente: Fild ´Cod_Cliente´ not Found´

Que sabe me falar o que eu estou fazendo de errado???

já experimentou clicar duas vezes no componente query, depois com o direito e adicionar todos os campos?


GOSTEI 0
Alemaum

Alemaum

14/02/2003

Depois do Pfis.Cod_cliente,
da linha onde vc esta relacionando as tabelas,
existe um espaço, tente eliminá-lo ....

Dm.Qr_Cliente.SQL.Add(´and cli.Cod_cliente = Pfis.Cod_cliente ´); <=

Abraços ...


GOSTEI 0
Jelves

Jelves

14/02/2003

Depois do Pfis.Cod_cliente, da linha onde vc esta relacionando as tabelas, existe um espaço, tente eliminá-lo .... Dm.Qr_Cliente.SQL.Add(´and cli.Cod_cliente = Pfis.Cod_cliente ´); <= Abraços ...


Bem devido receber muitas dicas e ainda não consegui eleminar este problema eu deixei um exemplo(Código fonte com Base de Dados em Access, utilizando um ADO como conexão)no seguinte endereço http://www.jelves.hpg.ig.com.br/index.html ´Exemplo do erro da Query´

Agradeço muito se vc der uma olhada e me der um retorno..

Jelves


GOSTEI 0
Alemaum

Alemaum

14/02/2003

Login e Senha do ADO ?!


GOSTEI 0
Jelves

Jelves

14/02/2003

Login e Senha do ADO ?!


Não, infelismente não é o login, por favor pegue e de uma olhada no exemplo que deixei disponivel na minha página, endereço está acima...

Obrigado!
Jelves


GOSTEI 0
Alemaum

Alemaum

14/02/2003

Caro amigo,
já baixei o programa,
e quando vou rodá-lo,
ele pede login e senha do ado ..


GOSTEI 0
Jelves

Jelves

14/02/2003

Caro amigo, já baixei o programa, e quando vou rodá-lo, ele pede login e senha do ado ..


É so vc dá ENTER e ele continua norma....

Jelves
jelves@terra.com.br


GOSTEI 0
Alemaum

Alemaum

14/02/2003

Sinto muito, mas é pedido um .bpl
inexistente ..
Até mais ..


GOSTEI 0
Jelves

Jelves

14/02/2003

Sinto muito, mas é pedido um .bpl inexistente .. Até mais ..


Acabei de colocar um exemplo utilizando também DBE, talvez você consiga rodar com BDE...

Obrigado!
Jelves


GOSTEI 0
Anonymous

Anonymous

14/02/2003

Bom dia a todos..
Ja tendo respondido ao nobre colega Jelves pelo e-mail venho agora
elucidar a questao para aqueles que por ventura estiverem passando pelo
mesmo problema...

O problema era que o Field Edittor da TADOQuery_cliente estava Carregado com os campos da tabela cliente
Quando ele usava esta mesma Query para fazer uma nova consulta,
so que desta vez de duas tabelas, cliente e PessoaFisica, e pedia para um TDBEdit mostrar um campo da tabela de pessoa fisica ao abrir dava o erro
dizendo que nao existia o campo Nome... o que realmente é verdade , pois o campo nome e da tabela pessoa fisica e o field editor esta carregado com os campos da tabela Cliente....


Espero ter me feito entender e esclarescido algumas pessoas....
No mais
Um abraço a todos
Ass Ricardo M.Souza


GOSTEI 0
POSTAR