rotina
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;
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
Curtidas 0
Respostas
Lucas Silva
20/01/2004
depois que você abrir a query faça o seguinte
se não der certo me dá o toque que eu te ajudo!
Lucas!
query1.Open; query1.Last; query1.First;
se não der certo me dá o toque que eu te ajudo!
Lucas!
GOSTEI 0
Mrmario
20/01/2004
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;
Form2.DBRichEdit1.Clear;
DataModule2.busca.First;
while not DataModule2.busca.eof do
begin
Form2.DBRichEdit1.DataSource := DataModule2.DataSource1;
DataModule2.busca.Next;
end;
Form2.ShowModal;
GOSTEI 0
Djjunior
20/01/2004
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
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
GOSTEI 0
Djjunior
20/01/2004
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)
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)
GOSTEI 0
Djjunior
20/01/2004
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
esquece o while, e crie os botões de navegação
busca.first; //primeiro
busca.Prior; //anterior
busca.next; //próximo
busca.last; //último
GOSTEI 0