Percorrer registros

Delphi

22/01/2004

Pessoal...

Seguinte...
Estou desenvolvendo um sistema de Cursos, e qdo eu seleciono uma matéria, dentro de um combo, eu coloquei um dbcombobox para ele me retornar os professores para aquela Matéria...
bem, até ai belê.. já consegui. :twisted:

Agora, o problema está sendo no seguinte...
Ele está me retornando apenas o 1o. registro do banco professores...

Teria que fazer talvez um While professores.Bof... .. MoveNext, sei lá... mais eu não faço a menor idéia de como fazer isso.....
Alguem pode me ajudar ??

O código que eu fiz é:

var procuracombo : string;
begin
procuracombo := ComboBox1.items[ComboBox1.itemindex];
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(´SELECT NOME,Valor_hora FROM PROFESSORES WHERE MATERIAS = :ProcuraCombo´);
ADOQuery1.Parameters.ParamByName(´ProcuraCombo´).Value := procuracombo;
ADOQuery1.Open;
ADOQuery1.ExecSQL;

Podem me ajduar ???

[b:4d3652c509]Tópico editado(Beppe): Prefira títulos mais explicativos[/b:4d3652c509]


Mauropn

Mauropn

Curtidas 0

Respostas

Weliton Oliveira

Weliton Oliveira

22/01/2004

ADOQuery1.First;
while not ADOQuery1.Eof do
begin
ComboBox1.items.Add(ADOQuery1.CampoDesejado.Value)ç
ADOQuery1.Next;
end;

OK???


GOSTEI 0
Mauropn

Mauropn

22/01/2004

Bem, então eu coloquei assim, para tentar aparecer no meu DBComboBox porem, no evento OnClick do ComboBox normal...

procedure TFrmCadastroTurmas.ComboBox1Click(Sender: TObject);
var procuracombo : string;
begin
procuracombo := ComboBox1.items[ComboBox1.itemindex];
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(´SELECT NOME,Valor_hora FROM PROFESSORES WHERE MATERIAS = :ProcuraCombo´);
ADOQuery1.Open;
while not ADOQuery1.Eof do
begin
ADOQuery1.Parameters.ParamByName(´ProcuraCombo´).Value := procuracombo;
ADOQuery1.Next;
end;

Porem, agora não me aparece nada no meu DBCombobox... :(
O que eu fiz errado ???


GOSTEI 0
POSTAR