Consulta Sql Entre Duas Tabelas

[Vivendo&Aprendendo]

Olá galera preciso saber quais os alunos que estudaram em um determinado ano e trimestre, e para isso eu uso duas tabelas a de alunos e a de histórico onde fica qual o ano e trimestre que o aluno estudou.

Segue abaixo o meu código, mas na execução da um erro dizendo que o campo Código da tabela Alunos é not found.

      DmDados.Alunos.Close;
      DmDados.Alunos.SQL.Clear;  
      DmDados.Alunos.SQL.Add('Select * From Alunos, Historico');
      DmDados.Alunos.SQL.Add('Where Alunos.Codigo = Historico.CodAluno and Alunos.Nome Like :pNome');
      DmDados.Alunos.SQL.Add('Order By Alunos.Codigo');
      DmDados.Alunos.Parameters[0].Value := EdtBusca.Text + '%';
      DmDados.Alunos.Open;

Como posso fazer isso.

Alexandre

[Kikonanet]

Olá,

Tente fazer a Query assim:

Select Alunos.codigo, Alunos.nome, Historico.codigo From Alunos, Historico

Where (Alunos.Codigo = Historico.CodAluno) and Alunos.Nome...

abs.

[Vivendo&Aprendendo]

Olá KIKO!

Olha se eu fizer dessa forma que você me passou ele tipo que me obriga a colocar todos os campos da tabela no Select, isso é realmente necessário?

E quando eu coloco todos os campos da tabela na consulta, na execução da erro dizendo que nenhum valor foi forneceido para os parametros.

Alexandre

[Micheus]

...

mas na execução da um erro dizendo que o campo Código da tabela Alunos é not found.

Se a mensagem é "Codigo not found", ela parece clara e sugere que você esteja utilizando um nome de campo que não existe na tabela.

Qual a mensagem original? Qual a estrutura das tabelas envolvidas?

Lembre-se também de comentar que banco você utiliza e componente de acesso.

Olha se eu fizer dessa forma que você me passou ele tipo que me obriga a colocar todos os campos da tabela no Select, isso é realmente necessário?

A sugestão do colega Kikonanet é correta. você deve buscar na cláusula SELECT apenas os campos que necessita. Isto evitará trafego de dados desnecessários entre o banco e sua aplicação.

[]s

[Vivendo&Aprendendo]

Me ajudem com isso... eu sei que não é complicado mas acontece que não esta dando certo.;..

[Kikonanet]

Olá alexandre,

Posta aí as estruturas das tabelas.

Como o Micheus disse, acho que é um campo da tabela que não existe ou o nome seja diferente..

abs.

[Vivendo&Aprendendo]

Olá

Os campos que interessam para a sql são os campos da tabela alunos: Codigo (numeração automatica), nome (texto). E campos da tabela Histórico: CodAluno(numero) e Aluno(texto).

É isso ai...

Alexandre

[Micheus]

Vivendo&Aprendendo, parece que não deveria haver qualquer problema mesmo.

Mas insisto para que você coloque a mensagem de erro exatamente como você a recebe.

Eu poderia dizer que você adicionou os campos (fields) ao seu componente (dataset - não sei qual) e ao definir a propriedade DisplayLabel como Código, pode ter digitado esta informação na propriedade FieldName (estamos todos sujeitos a fazer isso). Daí, quando você abre a query em tempo de execução (e mesmo em design-time) você vai obter a mensagem: "Alunos: Field 'Código' not found" e nem se dar conta da acentuação.

[]s

[Vivendo&Aprendendo]

É Micheus mas infelizmente as propriedades estão corretas...

O que pode ser?

Alexandre

[Micheus]

Vivendo&Aprendendo, você não estaria utilizando mais que um database e daí, no dataset em questão, poderia estar apontando para um onde a tabela alunos não exista?

Qual banco de dados você está utilizando?

Já estão se esgotando as opções. :D

Abraços

[Vivendo&Aprendendo]

Eu uso banco access e o meu data set está correto, pois uso DATA MODULE e a tabela alunos está lá, certinho para onde estou apontando.

Alexandre

[Micheus]

Vivendo&Aprendendo, vai ser difícil de dar mais palpites.

Por acaso você estaria utilizando uma base de teste (essa em access), porque daí se lhe interessar, você poderia enviar-me para que possa tentar obter a mesma cituação que você está tendo aí.

No campo do "virtual", já não consigo pensar em mais nenhuma opção.

Abraços.

[Vivendo&Aprendendo]

Olá Micheus!

Qual o seu e-mail porque pelo forum não estou conseguindo enviar.

Alexandre

[Micheus]

Olá Micheus!

Qual o seu e-mail porque pelo forum não estou conseguindo enviar.

Alexandre

Dê uma olhada na sua caixa de mensagem aqui do forum.

[Vivendo&Aprendendo]

Micheussssssssssssssss.... hehehehe... socorro.....

[Micheus]

Vivendo&Aprendendo, Confirme o exemplo que lhe passei por e-mail e veja se com sua base quente vai funcionar. Não obtive qualquer erro utilizando aquela consulta em seu post inicial.

Como você não mensionou que componentes utiliza para fazer o acesso, eu utilizei TADOConnection e TADOQuery, com parâmetros padão. A propriedade ConnectionString do TADOConnection ficou Provider=Microsoft.Jet.OLEDB.4.0;Data Source=U:\Micheus\Delphi 7\Projetos\Teste Alexandre\dados.mdb;Persist Security Info=False.

Informe mais detalhes sobre componentes utilizados, modo de acesso, já que existem outros. Só assim, quem sabe, consigamos gerar seu problema.

Abraços.

[Vivendo&Aprendendo]

Olá Micheus... me desculpa não ter informado os componentes e o banco da minha aplicação, usei essa sql abaixo que você me passou e continua dando erro.

SQL

      with DMDados.Alunos do
      begin
        Close;
        SQL.Clear;
        SQL.Add('Select * From Alunos, Historico');
        SQL.Add('Where Alunos.Codigo = Historico.CodAluno and Alunos.Nome Like :pNome');
        SQL.Add('Order By Alunos.Codigo');
        Parameters[0].Value := EdtBusca.Text + '%';
        Open;
      end;

Erro

Alunos: Field 'Codigo' Not Found.

O meu campo Codigo da tabela Alunos é Auto Incremento.

Alexandre

[Micheus]

Vivendo&Aprendendo, por acaso você testou o programa demo que eu fiz, utilizando a sua tabela quente?

Faça isso e diga se com ele, as consultas estão funcionando, por favor.

Compile-o e coloque seu database na pasta em que você o tiver colocado - há um botão para executar cada uma das duas dúvidas que você postou aqui no forum.

Abraços

[Vivendo&Aprendendo]

Micheus me desculpa o incomodo cara, mas agora que eu não sei o que pode ser mesmo, porque quando eu executo a sql com meu banco na sua aplicação da certo, mas quando copio a sql da sua aplicação e coloco na meu sistema com o mesmo banco da erro dizendo: Alunos: Field 'Codigo' Not Found. Cara não sei o que é, já exclui o campo Codigo e busquei do banco novamente mas continua a mesma coisa.

Alexandre

[Micheus]

Micheus me desculpa o incomodo cara, mas agora que eu não sei o que pode ser mesmo, porque quando eu executo a sql com meu banco na sua aplicação da certo, mas quando copio a sql da sua aplicação e coloco na meu sistema com o mesmo banco da erro dizendo: Alunos: Field 'Codigo' Not Found. Cara não sei o que é, já exclui o campo Codigo e busquei do banco novamente mas continua a mesma coisa.

Alexandre

Por isso que insisti para que você testasse com meu exemplo. Como estava imaginando, deve haver alguma particularidade nas suas telas.

Talvez seja a forma da conexão - já conferiu os parâmetros, não estaria apontando para outro database, que você possa ter utilizado anteriormente e que ainda não tenha o campo com este nome?

Outra situação em que este tipo de erro pode ocorrer é quando você tem um campo associado a um componente dataware (tipo TDBEdit) e por algum motivo troca o datasource de onde deveria estar vindo o field. Teria alguma situação como esta?

Se não conseguir achar o problema, e quizer, me envie apenas o datamodule que você está utilizando (tem que ter ao menos a cópia do componente de conexão dentro dele) e a tela da consulta que eu testo com aquela base de teste que você me enviou.

Abraços

[Vivendo&Aprendendo]

Micheus eu testei com o meu DATA MODULE e deu o erro que mencionei acima. Enviei para o seu e-mail um exemplo, Valeu.

Aguardo resposta.

Obrigado

Alexandre

[Micheus]

SQL

   with DMDados.Alunos do
      begin
        Close;
        SQL.Clear;
        SQL.Add('Select * From Alunos, Historico');
        SQL.Add('Where Alunos.Codigo = Historico.CodAluno and Alunos.Nome Like :pNome');
        SQL.Add('Order By Alunos.Codigo');
        Parameters[0].Value := EdtBusca.Text + '%';
        Open;
      end;

Erro

Alunos: Field 'Codigo' Not Found.

O meu campo Codigo da tabela Alunos é Auto Incremento.

Vivendo&Aprendendo, vou seguir deste post para tentar exclarecer(também) aos colegas que acompanham, de onde vinha o problema com a referida mensagem de erro. Pode servir de alerta para quem utiliza método parecido. Primeiramente, convém salientar que seu datamodule tem um componente TADOQuery com o nome Alunos com a propriedade SQL(em design-time) definida como: Select * From Alunos Sendo que também foram adicionados os campos a este componente, resultando em 31 campos (existentes nesta tabela, resultado do select), dentre eles está o campo "Codigo". A propriedade FieldDefList nos dataset's mantém uma lista de campos (TField) adicionados em design-time ou em run-time, quando o dataset é aberto. Se campos foram adicionados em design-time, ao abrir o dataset, uma verificação é realizada. Justamente aqui está o problema. Nesta consulta que você faz em run-time (grifado acima), alterando a propriedade SQL, passando a relacionar as tabelas Alunos e Histórico, você busca todos os campos de ambas as tabelas, que tem como resultado 45 campos. Não haveria problema algum se não houvessem campos com o mesmo nome em ambas as tabelas. Ocorre que, ao abrir a consulta, uma nova lista de campos (propriedade FieldDefList) é gerada e uma chamada ao método BindFields(True) para realização uma "consistência" entre os campos obtidos com a consulta (lista FieldDefList) e os adidionados em design-time (lista Fields). Como há campos com o mesmo nome em ambas tabelas, a lista FieldDefList possui os campos com os nomes 'Alunos.Codigo' e 'Historico.Codigo', entretando a lista Fields possui um único campo com o nome 'Codigo', obtido pelo select simples (apenas tabela Alunos, lembram) e a não localização do mesmo na lista FieldDefList resulta na mensagem de erro citada. A melhor maneira de resolver este problema, então, seria adicionar na cláusula SELECT os campos um-a-um, utilizando um alias, para facilitar, e "renomeando" os campos duplicados. Por ex.:

SELECT H.CodAluno, A.Nome, A.DataNasc, H.Codigo as CodHistorico, H.Disciplina
FROM Alunos A, Historico H
WHERE A.Codigo = H.CodAluno

Note que utilizando CodAluno do histórico já estará obtendo o Codigo do Aluno, além de deixar claro de que "código" se trata. Do mesmo modo, "renomear" Codigo em Histórico para CodHistorico, gera o mesmo efeito e evita qualquer confusão.

* Sobre o uso do AS, ele é necessário no caso do MSAccess

Convém utilizar uma consulta TADOQuery para cada situação, ou seja, uma para a pesquisa dos alunos aniversariantes e outra para o histórico dos alunos. Deste modo você pode adicionar os select's nas respectivas propriedades SQL, configurar a propriedade parameters e adicionar os campos aos componentes em design-time. Dica conveniente para resolver problema com seu outro post também.

Espero ter sido claro. Infelizmente não consegui ser muito sussinto e se houver alguma "abobrinha" na minha explanação, queiram-me corrigir.

Abraços

[Vivendo&Aprendendo]

Olá

Mais um prblema solucionado, e mais uma vez quero dar os méritos ao nosso amigo MICHEUS, que com seu conhecimento e tempo para estudar minha dúvida solucionou ela com extrema categoria.

Galera a partir deste post aprendi uma coisa e acho interessante a todos, evitar usar campos com nomes iguais em tabela diferentes ou nas sql de consulta renomear os campos para não passar pelo que eu passei...

MICHEUS que Deus te abençoe sempre.

Alexandre