Carregar um treeview com dados do BD sem usar o EOF?

Question

Pessoal bom dia, gostaria de saber se tem como:[b:4080525f12]Carregar um treeview com dados do BD sem usar o EOF?[/b:4080525f12]Estou usando o codigo assim:[code:1:4080525f12]procedure TForm5.FormActi...

Paullsoftware · Answer

creio que n�o tenha como voc� ler todos os registros de uma tabela sem l�-la do inicio at� o final, mais, para ficar melhor e para o usu�rio ver o processo da sua aplica��o seria legal implementar uma barra de progresso, outra coisa, voc� abre e fecha a tabela antes de come�ar o precesso, porque?
var
Node, SubNode1, SubNode2: TTreeNode;
begin
fechatabelaS;
abretabelaS;

//Esse linha pode ser cancelada...
//dm.ibdbgridsaida.active:=true; 
dm.ibdbgridsaida.Close; 
dm.ibdbgridsaida.SQL.Text := �select CNPJ from saidas GROUP BY CNPJ�; 
dm.ibdbgridsaida.Open; 
TreeView1.Items.Clear; 
//desabilitar os controle ligados a tabela, para melhorar a performance
dm.ibdbgridsaida.DisabledControls;
  while not dm.ibdbgridsaida.Eof do 
  begin 
    SubNode1 := TreeView1.Items.AddChild(Node, dm.ibdbgridsaida.fieldbyname(�cnpj�).value); 
    SubNode1.ImageIndex := 1; 
    SubNode1.SelectedIndex := 0; 
  dm.ibdbgridsaida.Next; 
  end; 
  dm.ibdbgridsaida.EnabledControls;
  dm.ibdbgridsaida.Close;

se algu�m sabe uma forma de fazer isso, sem ler toda tabela, o que acho pouco porv�vel, post ae n�s ent�o!! :roll:

Adriano_servitec · Answer

[quote:9839f4ad84]creio que n�o tenha como voc� ler todos os registros de uma tabela sem l�-la do inicio at� o final, mais, para ficar melhor e para o usu�rio ver o processo da sua aplica��o seria legal implementar uma barra de progresso, outra coisa, voc� abre e fecha a tabela antes de come�ar o precesso, porque? [/quote:9839f4ad84]Obrigado por me ajudar amigo, mesmo assim fica muito lento, como estou usando somente um campo dentro do treeview, acho que ficaria melhor eu optar por um dbgrid ja que esse abre os dados muito mais rapidos. Entao vem a pergunta, tem como colocar um imagelist com a imagem dentro de um dbgrid como uso no treeview?...

Emerson Nascimento · Answer

al�m disso, voc� pode exibir as altera��es somente depois de terem sido finalizadas:

var
  Node, SubNode1, SubNode2: TTreeNode;
begin
  fechatabelaS;
  abretabelaS;

  with dm.ibdbgridsaida do
  begin
    Close;
    SQL.Text := �select CNPJ from saidas GROUP BY CNPJ�;
    Open;

    // adicione a linha abaixo.
    // ela prepara o treeview para edicao e n�o reporta as altera��es
    // para a tela enquanto n�o terminar o processo, tornando o
    // procedimento mais veloz
    TreeView1.Items.BeginUpdates;

    TreeView1.Items.Clear;
    //desabilitar os controle ligados a tabela, para melhorar a performance
    DisabledControls;

    while not Eof do
    begin
      SubNode1 := TreeView1.Items.AddChild(Node, fieldbyname(�cnpj�).asstring);
      SubNode1.ImageIndex := 1;
      SubNode1.SelectedIndex := 0;
      Next;
    end;

    EnabledControls;
    Close;

    // informa ao treeview que as altera��es foram finalizadas
    TreeView1.Items.EndUpdates;
  end;

note que o c�digo foi reescrito somente para melhor entendimento. d� import�ncia para as linhas TreeView1.Items.BeginUpdates e TreeView1.Items.EndUpdates.
espero que isso ajude a melhorar a performande da sua rotina

Adriano_servitec · Answer

Olah Emerson.En, acho que nao funciona os codigos:
[b:004b7a6537]BeginUpdates;
[/b:004b7a6537] e [b:004b7a6537]EndUpdates[/b:004b7a6537] no Delphi 5

Olha o erro na hora de compilar
[color=red:004b7a6537][Error] UExcluirAssociado.pas(188): Undeclared identifier: �BEGINUPDATES�[/color:004b7a6537]

Tambem estou querendo montar esse ListView para mostrar os dados mais nao estou conseguindo

begin
DM.IBQ1.First;
ListView1.AllocBy:= DM.IBQ1.RecordCount;
WHILE NOT DM.IBQ1.Eof DO
  BEGIN
    //ListView1.BEGINUPDATES;
    With ListView1.ITEMS.ADD DO
    BEGIN
      Caption:= DM.ibq1.FieldByName(�ASSOCIADO�).AsString;
      subitems[0]:= DM.IBQ1.FieldByName(�MATRICULA�).AsString;
      subitems[1]:= DM.IBQ1.FieldByName(�ASSOCIADO�).AsString;
      SubItems[2]:= DM.IBQ1.Fieldbyname(�NATURAL�).AsString;
      SubItems[3]:= DM.IBQ1.Fieldbyname(�PAI�).AsString;
      SubItems[4]:= DM.IBQ1.Fieldbyname(�MAE�).AsString;
    end;

  //ListView1.ENDUPDATES;
  DM.IBQ1.NEXT;

  END;

Aparece o seguinte erro na hora de executa-lo [color=red:004b7a6537]List index out bounds (0)[/color:004b7a6537]

Grato a ajuda de todos.
Obrigado Adriano

[/b]

Emerson Nascimento · Answer

1o. - � BEGINUPDATE e ENDUPDATE (singular)
2o. - o m�todo � aplicado aos Itens e n�o diretamente ao ListView ou TreeView
- ListView1.Items.BeginUpdate / ListView1.Items.EndUpdate
- TreeView1.Items.BeginUpdate / TreeView1.Items.EndUpdate
3o. - Realmente n�o sei se esse m�todo est� dispon�vel no componente do Delphi 5.

F�rum Carregar um treeview com dados do BD sem usar o EOF? #333703