Fórum rotina #207846

20/01/2004

0

Pessoal fiz uma consulta em sql e estou exibindo em um dbrichedit nao pode ser outro. até ai tudo bem, o problema é que ele me mostra apenas uma linha da consulta onde é que eu estou errando? o código esta logo abaixo:

Form2.DBRichEdit1.Clear; //limpa o dbrichedit1
DataModule2.busca.First; //busca é a consulta sql
while not DataModule2.busca.eof do
begin
Form2.DBRichEdit1.DataSource := DataModule2.DataSource1;
DataModule2.busca.Next;
end;
Form2.ShowModal;


Mrmario

Mrmario

Responder

Posts

20/01/2004

Lucas Silva

depois que você abrir a query faça o seguinte
  query1.Open;
query1.Last;
query1.First;


se não der certo me dá o toque que eu te ajudo!
Lucas!


Responder

Gostei + 0

20/01/2004

Mrmario

Lucas estou usando delphi7 com interbase a query ta com o nome ´busca´

Form2.DBRichEdit1.Clear;
DataModule2.busca.First;
while not DataModule2.busca.eof do
begin
Form2.DBRichEdit1.DataSource := DataModule2.DataSource1;
DataModule2.busca.Next;
end;
Form2.ShowModal;


Responder

Gostei + 0

21/01/2004

Djjunior

cara se eu entendi direito vc tem um formulário com um richtext, que deveria exibir o conteúdo de um determinado campo em cada um dos registros que ele passa, passando por todos eles, certo? e ele só está exibindo o último registro?

se eu estiver certo, tente dar um refresh na tela logo depois do next seria algo do tipo:

DBRichEdit1.DataSource := DataModule2.DataSource1;
with DataModule2.busca do
begin
while not eof do
begin
next;
Form2.Refresh;
end;
end;
Form2.ShowModal


Responder

Gostei + 0

22/01/2004

Djjunior

seguinte qual é o tipo de dado da tabela?
a propriedade datafield está correta? se vc muda o datasource em tempo de execução não deveria mudar também o datafield?
o wordwrap está como true?
o AutoDisplay está como true?
dê uma olhada tb em HideSelection (não fragrei direito o que ele faz)


Responder

Gostei + 0

22/01/2004

Djjunior

seguinte pelo que pude entender faça o seguinte

esquece o while, e crie os botões de navegação

busca.first; //primeiro
busca.Prior; //anterior
busca.next; //próximo
busca.last; //último


Responder

Gostei + 0

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

Aceitar