Quem sabe me dizer aonde está o erro??????Please...
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
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
Curtidas 0
Respostas
Nildo
14/02/2003
O campo cod_client nao existe
GOSTEI 0
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
14/02/2003
´Select Cli.*,Pfis.* From TabCliente Cli, TabPes
Aquele ´tabCliente Cli´ esta certo com aquele espaco ?
Aquele ´tabCliente Cli´ esta certo com aquele espaco ?
GOSTEI 0
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
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..
Qual base de Dados voce esta usando.????
Caso seje Paradox...me manda as duas tabelas que posso dar uma olhada..
GOSTEI 0
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.*.
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
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
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
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
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
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
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
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?
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
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 ...
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
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
14/02/2003
Login e Senha do ADO ?!
GOSTEI 0
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
14/02/2003
Caro amigo,
já baixei o programa,
e quando vou rodá-lo,
ele pede login e senha do ado ..
já baixei o programa,
e quando vou rodá-lo,
ele pede login e senha do ado ..
GOSTEI 0
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
14/02/2003
Sinto muito, mas é pedido um .bpl
inexistente ..
Até mais ..
inexistente ..
Até mais ..
GOSTEI 0
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
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
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