Fórum Percorrer registros #208603
22/01/2004
0
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]
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
Curtir tópico
+ 0
Responder
Posts
22/01/2004
Weliton Oliveira
ADOQuery1.First;
while not ADOQuery1.Eof do
begin
ComboBox1.items.Add(ADOQuery1.CampoDesejado.Value)ç
ADOQuery1.Next;
end;
OK???
while not ADOQuery1.Eof do
begin
ComboBox1.items.Add(ADOQuery1.CampoDesejado.Value)ç
ADOQuery1.Next;
end;
OK???
Responder
Gostei + 0
22/01/2004
Mauropn
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 ???
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 ???
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)