Ajuda em fazer uma instrução SQL

Delphi

13/09/2007

Olá pessoal tenho os seguintes dados que quero buscar em minha tabela.

TABELA Lancamentos
Controle
Codigo_Aluno
Status
Vencimento
Valor
Emissao

Esse é a instrução que eu fiz mas não tá dando certo:


      With QryLan do
      Begin
         Close;
         Sql.Clear;
         Sql.Add (´Select L.Codigo, L.Promissoria, L.Vencimento, L.Valor, ´ +
                  ´L.Emissao, A.Nome From Lancamentos L, ´ +
                  ´Lancamentos I Where L.Codigo=´ + txtcod.Text +
                  ´ AND I.Codigo=L.Lancamentos ORDER BY L.Vencimento´ );
         Open;
      end;



Robinhocne

Robinhocne

Curtidas 0

Respostas

Raserafim

Raserafim

13/09/2007

não retorna nenhum resultado? ou dá um erro?

coloque as condições no Where entre parênteses.

Where (...) and (...)


GOSTEI 0
Robinhocne

Robinhocne

13/09/2007

não retorna nenhum resultado? ou dá um erro? coloque as condições no Where entre parênteses. Where (...) and (...)


Dá esse erro:

Validation error for column codigo, value ´***null***´


GOSTEI 0
Paulo

Paulo

13/09/2007

Faltou a tabela A, onde você faz: A.Nome. Você não a colocou no FROM.


GOSTEI 0
Dbergkamps10

Dbergkamps10

13/09/2007

ola,

tente assim:

      With QryLan do
      Begin
         Close;
         Sql.Clear;
         Sql.Add (´Select I.Codigo, L.Codigo, L.Promissoria, L.Vencimento, L.Valor, ´ +
                  ´L.Emissao, A.Nome From Lancamentos L, ´ +
                  ´Lancamentos I Where L.Codigo=´ + txtcod.Text +
                  ´ AND I.Codigo=L.Lancamentos ORDER BY L.Vencimento´ );
         Open;
      end;


espero ter ajudado


att
Dalton


GOSTEI 0
Mahdak

Mahdak

13/09/2007

Faltou a tabela A, onde você faz: A.Nome. Você não a colocou no FROM.


concordo com vc paulo...

se a sua intenção é buscar lançamentos de um determinado aluno na tabela Lançamentos, eu faria algo do tipo:

Select L.Codigo as CodLancamento, L.Codigo_Aluno  as CodAlunoLancamento, L.Promissoria as PromLancamento, L.Vencimento as VctoLancamento, L.Valor as VlrLancamento, L.Emissao as EmsLancamento, A.Codigo as CodAluno, A.Nome as NomeAlunos From Lancamentos L, Alunos A Where (L.Codigo=:PCod AND A.Codigo= L.Codigo_Aluno ORDER BY L.Vencimento


Obs: chutei que A = tabela alunos


GOSTEI 0
Mahdak

Mahdak

13/09/2007

complementando...

1. no exemplo acima voce teria que adicionar os campos definidos na sql ao seu SQLDataSet,
2. a pesquisa funciona via parametros...
3. O sql que coloquei ali é ilustrativo, nao testei para ver se funciona, mas a lógica é por ali..


abração


GOSTEI 0
POSTAR