Resultado de consulta em um combobox.

16/12/2003

1

Amigos,

Como faço para um combobox receber o resultado de uma consulta.
A consulta no componente Query é assim:

Select num_veiculo From Tab_veiculospart
where cod_emp =:empresa and [Tab_veiculospart].[num_veiculo] not in (Select num_veiculo
From Tab_veiculosreser where cod_emp =:empresa1)

Agradeço muito qualquer ajuda,

Gláucia.


Responder

Posts

16/12/2003

Lucas Silva

function Tform1.ListaVeiculo : TStringList;
begin

Result := TStringlist.Create;

Select num_veiculo From Tab_veiculospart 
where cod_emp =:empresa and [Tab_veiculospart].[num_veiculo] not in (Select num_veiculo 
From Tab_veiculosreser where cod_emp =:empresa1) 

  while not eof do
    begin
      result.add(FieldByName(´num_veiculo´).Asstring);
      Next;
    end;

end;



aí em qualquer procedure vc coloca..

combobox1.items := ListaVeiculo;




Espero ter ajudado!

Lucas!


Responder

16/12/2003

Lucas Silva

Corrigindo o código....
function Tform1.ListaVeiculo : TStringList;
begin

Result := TStringlist.Create;

with datamodule.query1 do
 begin
  Close();
  Sql.Clear();
  Sql.Add(´Select num_veiculo From Tab_veiculospart´);
  Sql.Add(´where cod_emp =:empresa and [Tab_veiculospart].[num_veiculo] not in´); 
  Sql.Add(´(Select num_veiculo From Tab_veiculosreser where cod_emp =:empresa1)´);
  Open(); 

  while not eof do
    begin
      result.add(FieldByName(´num_veiculo´).Asstring);
      Next;
    end;
 end;
end;




Responder

16/12/2003

Agnaldo

Amigos, Como faço para um combobox receber o resultado de uma consulta. A consulta no componente Query é assim: Select num_veiculo From Tab_veiculospart where cod_emp =:empresa and [Tab_veiculospart].[num_veiculo] not in (Select num_veiculo From Tab_veiculosreser where cod_emp =:empresa1) Agradeço muito qualquer ajuda, Gláucia.



Olá.

Sempre faço isso, mas se a tabela for pequena, tabela grande pode ficar inviável.

Query1(´Select num_veiculo From Tab_veiculospart
where cod_emp =:empresa and [Tab_veiculospart].[num_veiculo] not in (Select num_veiculo
From Tab_veiculosreser where cod_emp =:empresa1)´);
Query1.Prepare;
Query1.Open;

Combo.Items.Clear;
While Not Query1.Eof do begin
Combo.Items.Add(Query1.FieldByname(´Campoquevcquer´).AsString);
Query1.Next;
End;
Query1.Close;

Falou


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira