Consulta Cabulosa..iniciante

10/03/2003

0

Ola PessoALL...
Bem o problema é o seguinte..

tenho uma tabela de professores..onde existem os campos..
´FAIXA´ ´DISCIPLINA´ ´SITUACAO´, onde os professores são classificados.

Então no campo ´FAIXA´ ele pode ser..
FAIXA I
FAIXA II
FAIXA III

No campo DISCIPLINA ele pode ser..
MATEMATICA
PORTUGUES
HISTORIA
GEOGRAFIA
...

E no campo Situação ele pode ser..
MUNICIPAL
MUNICIPALIZADO
..........................................

Quero fazer uma pesquisa usando tres DBLookUpComboBox, um para DISCIPLINA,outro
para SITUACAO, e outro para FAIXA...para eu selecionar o professores..

EXEMPLO

Quero um PROFESSOR

´FAIXA I´ ´MATEMATICA´ ´MUNICIPAL´ ou

´FAIXA II´ ´PORTUGUES´ ´MUNICIPALIZADO´

PS..to usando PARADOX..

Espero que que possam me ajudar, como sempre vc´s ajudam que necessita.!

[]´s junior
fiquem com deus..


Anonymous

Anonymous

Responder

Posts

10/03/2003

Anonymous

Select * from Professores
Where FAIXA =:faixa AND
DISCIPLINA =:disciplina AND
SITUACAO =:situacao

na prop params da query altere os parametros para cada tipo necessário

depois faça assim

with query do
begin
close;
parambyname(´faixa´).value := ComboBoxFaixa.Text; // converta se necessário
parambyname(´disciplina´).value := ComboBoxDisciplina.Text;
parambyname(´situacao´).value := ComboBoxSituacao.Text;
open;
end;


Pronto .....


Responder

10/03/2003

Anonymous

Obrigado pela resposta mas nao to usando query...
como fazer então...?

[]´ junior


Responder

10/03/2003

Fred

Trate de Usar uma Query!!! 8)


Responder

10/03/2003

Marcelo Saviski

Crie um Edit e no evento OnChange coloque a seginte rotina

procedure TForm1.Edit1Change(Sender: TObject);
begin
  try
  // Crie um indice secundário para o campo                                            Tabela.IndexFieldNames := ´nome do campo´;
  Tabela.Editkey;
  Tabela.FindNearest([Edit1.Text]);
  Tabela.Refresh;
  except on
  EDBEngineError do MessageDlg(´Erro na busca! Tente novamente.´, mtError,
  [mbOK], 0);
end
end;
Este procedimento executa uma busca na tabela que vc quer


[img:d8fb4733cd]http://www.apriori.com.br/cgi/forum/images/smiles/icon_biggrin.gif[/img:d8fb4733cd][img:d8fb4733cd]http://www.apriori.com.br/cgi/forum/images/smiles/icon_smile.gif[/img:d8fb4733cd][img:d8fb4733cd]http://www.apriori.com.br/cgi/forum/images/smiles/icon_frown.gif[/img:d8fb4733cd][img:d8fb4733cd]http://www.apriori.com.br/cgi/forum/images/smiles/icon_eek.gif[/img:d8fb4733cd][img:d8fb4733cd]http://www.apriori.com.br/cgi/forum/images/smiles/icon_confused.gif[/img:d8fb4733cd][img:d8fb4733cd]http://www.apriori.com.br/cgi/forum/images/smiles/icon_cool.gif[/img:d8fb4733cd][img:d8fb4733cd]http://www.apriori.com.br/cgi/forum/images/smiles/icon_lol.gif[/img:d8fb4733cd][img:d8fb4733cd]http://www.apriori.com.br/cgi/forum/images/smiles/icon_mad.gif[/img:d8fb4733cd][img:d8fb4733cd]http://www.apriori.com.br/cgi/forum/images/smiles/icon_razz.gif[/img:d8fb4733cd][img:d8fb4733cd]http://www.apriori.com.br/cgi/forum/images/smiles/icon_redface.gif[/img:d8fb4733cd][img:d8fb4733cd]http://www.apriori.com.br/cgi/foru

Responder

10/03/2003

Marcelo Saviski

m/images/smiles/icon_cry.gif[/img:d8fb4733cd][img:d8fb4733cd]http://www.apriori.com.br/cgi/forum/images/smiles/icon_evil.gif[/img:d8fb4733cd][img:d8fb4733cd]http://www.apriori.com.br/cgi/forum/images/smiles/icon_rolleyes.gif[/img:d8fb4733cd][img:d8fb4733cd]http://www.apriori.com.br/cgi/forum/images/smiles/icon_wink.gif[/img:d8fb4733cd]
Responder

11/03/2003

Anonymous

da uma força ai pessoal...


Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar