Instrução errada no while
Olá pessoal...o que eu fiz de errado neste while??
while not Eof = true do
Combo_Estoque.AddItem(Data_Module.Query_EstoqueNome.Value);
end;
Abs
while not Eof = true do
Combo_Estoque.AddItem(Data_Module.Query_EstoqueNome.Value);
end;
Abs
Fabricio Luciano
Curtidas 0
Respostas
Wilton Júnior
17/09/2013
Faz assim :
Data_Module.Query_Estoque.first;
while not Data_Module.Query_Estoque.Eof do
Combo_Estoque.AddItem(Data_Module.Query_EstoqueNome.Value);
Data_Module.Query_Estoque.next
end;
Data_Module.Query_Estoque.first;
while not Data_Module.Query_Estoque.Eof do
Combo_Estoque.AddItem(Data_Module.Query_EstoqueNome.Value);
Data_Module.Query_Estoque.next
end;
GOSTEI 0
Fabricio Luciano
17/09/2013
Dá o mesmo erro amigão.....o delphi marca antes conteúdo a ser addicionado. será que devo colocar alguma aspas???? addItem('afadsfasd') assim? como faço essa concatenação pois o ficará dentro dos parênteses é comando?
GOSTEI 0
Fabricio Luciano
17/09/2013
Meu código ficou assim pessoal.....parou de dar erro mas tb retorna a combo vazia....aff:
with Data_Module.Query_Estoque do
begin
close;
sql.Clear;
sql.Add('SELECT * FROM Estoque ORDER BY Cod_Estoque ASC');
Open;
while not Eof = true do
begin
Combo_Estoque.Items.Add(Data_Module.Query_EstoqueNome.Value);
Data_Module.Query_Estoque.Next;
end
end;
with Data_Module.Query_Estoque do
begin
close;
sql.Clear;
sql.Add('SELECT * FROM Estoque ORDER BY Cod_Estoque ASC');
Open;
while not Eof = true do
begin
Combo_Estoque.Items.Add(Data_Module.Query_EstoqueNome.Value);
Data_Module.Query_Estoque.Next;
end
end;
GOSTEI 0
Rodolpho Silva
17/09/2013
Tente assim:
var
qry: TQuery;
begin
qry := Data_Module.Query_Estoque;
qry.close;
qry.sql.Clear;
qry.sql.Add('SELECT * FROM Estoque ORDER BY Cod_Estoque ASC');
qry.Open;
while (not qry.Eof) do
begin
Combo_Estoque.Items.Add(qry.FieldByName('Nome').AsString);
qry.Next;
end;
end;
GOSTEI 0
Fabricio Luciano
17/09/2013
Não reconheceu o TQuery.
GOSTEI 0
Rodolpho Silva
17/09/2013
Não reconheceu o TQuery.
Verifique se a unit DBTables está declarada na sua seção uses....
GOSTEI 0