(Resolvido) Ajuda com Consulta.

[Fabiano Furquim]

Boa Tarde a todos.

Estou desenvolvendo um sistema para o Colégio onde trabalho, q tem um cadastro de ocorrências(falta de documentos, advertências,etc), que tem varias formas de serem exibidas.

O que estou precisando fazer é o seguinte; um tela de gerenciamento de ocorrências, onde será exibido um dbgrid com todas as ocorrências cadastradas. Até ai td bem, preciso tb de 2 formas de presquisa: uma por código do aluno e outra pelo nome.

O q não estou conseguindo implementar é exatamente essa consulta, a qual após ser realizada o resultado deve aparecer no lugar de todas as ocorrências.

Estou trabalhando com Interbase, e utilizo os componetes da guia interbase no Delphi.

Estou trabalhando com um Datamodulo com IDataBase, IBTransaction e IBDataSet.

A tabela Ocorrência tem a seguinte estrutura.

/* Table: OCORRENCIA, Owner: SYSDBA */
CREATE TABLE "OCORRENCIA"
(
  "CODIGO"    INTEGER NOT NULL,
  "ALUNO"    INTEGER NOT NULL,
  "TP_OCOR"    INTEGER NOT NULL,
  "COMENTARIO"    VARCHAR(30) NOT NULL,
  "OBSERVACAO"    VARCHAR(200),
  "LANCAM"    DATE NOT NULL,
  "DT_INICIAL"    DATE NOT NULL,
  "DT_FIM"    DATE NOT NULL,
  "NOME"    VARCHAR(50),
 PRIMARY KEY ("CODIGO")
);

Se alguém puder me ajudar ficarei grato.

PS.: pesquisei no site, porém não achei algo relacionado a isso.

[Jhonas]

preciso tb de 2 formas de presquisa: uma por código do aluno e outra pelo nome.

voce pode usar um componente Ibquery para isto, onde a instrução SQL ficaria assim:

select * from ocorrencia

where codigo = 'codigo do aluno'

order by codigo

ou ainda

select * from ocorrencia

where codigo = :cod

order by codigo

neste caso voce passaria o codigo do aluno como parametro

----------------------------------------------------------------------

exemplo

Alunos_IB.Active := false;
 CDS_Alunos.Active := false;
 CDS_Alunos.Params[0].AsInteger := 34; 
 Alunos_IB.Active := true;
 CDS_Alunos.Active := true;

select * from ocorrencia where nome = 'nome do aluno' order by nome ou ainda select * from ocorrencia where nome = :nom order by nome neste caso voce passaria o nome do aluno como parametro ---------------------------------------------------------------------- exemplo

Alunos_IB.Active := false;
 CDS_Alunos.Active := false;
 CDS_Alunos.Params[0].AsString := 'José Fanscisco'; 
 Alunos_IB.Active := true;
 CDS_Alunos.Active := true;

abraço

[Fabiano Furquim]

Entendi...

Obrigado Jhonas.....foi de grande ajuda....

Consegui reslver o problema com esssa dica...

Sucesso a todos