O ApplyUpdates fecha o CDS?

Question

Ol�, tenho um CDS, que vou dando um Append nele por meio de um while,a minha pergunta � a seguinte: se eu der o ApplyUpdates, ele fecha o CDS? Porque eu preciso dos dados que foram gravados, e se eu d...

Sergiomatos · Answer

N�o. N�o fecha, mas coloca seu codigo  ae pra gente poder ver o que esta acontecendo....

Titanius · Answer

Amigo, o meu CDS fechou sim, segue o codigo:

cdsBoleta <-- � esta que eu nao quero que feche


cdsBoleta.Open;
TbConsCliente.First;
while not TbConsCliente.EOF do
begin
   cdsBoleta.Append;
   cdsBoleta.FieldByName(�NOME�).AsString := TbconsCliente.FieldByName(�nome�);
   cdsBoleta.FieldByName(�MENSALIDADE�).AsString := TbconsCliente.FieldByName(�MENSALIDADE�);
   cdsBoleta.Post;
  TbconsCliente.Next;
end;
cdsBoleta.ApplyUpdates(0);

cdsBoleta.First;
while not cdsBoleta.EOF do
begin
>>>    FUNCAO DE IMPRIMIR <<<
  cdsBoleta.NExt;
end;

o que esta acontecendo?, quando dou o First, ele volta ao inicio da tabela e pega TODOS os registros... mas eu queria soh trazer os que eu acabei de inserir, entendeu?

Desde j� agrade�o

[]s

Marco Salles · Answer

[quote:bf79b1dde0] quando dou o First, ele volta ao inicio da tabela e pega TODOS os registros... [/quote:bf79b1dde0]e isto ta errado :?: :?: :?: :?: [quote:bf79b1dde0]mas eu queria soh trazer os que eu acabei de inserir, entendeu? [/quote:bf79b1dde0]Marque o inicio do processo com uma vari�vel BookMark e depois n�o de First , e sim retorne com o valor da vari�vel BookMark.. N�o seria isto :?: :?:[code:1:bf79b1dde0]varBookmark:TBookMarkStr; begincdsBoleta.Open; Bookmark:=cdsBoleta.Bookmark;cdsBoleta.DisableControls;TbConsCliente.First; while not TbConsCliente.EOF do begin cdsBoleta.Append; cdsBoleta.FieldByName(�NOME�).AsString := TbconsCliente.FieldByName(�nome�); cdsBoleta.FieldByName(�MENSALIDADE�).AsString := TbconsCliente.FieldByName(�MENSALIDADE�); cdsBoleta.Post; TbconsCliente.Next; end; cdsBoleta.ApplyUpdates(0); //cdsBoleta.First; cdsBoleta.EnableControls;ClientDataSet1.Bookmark:=Bookmark;while not cdsBoleta.EOF do begin >>> FUNCAO DE IMPRIMIR <<< cdsBoleta.NExt; end; [/code:1:bf79b1dde0]...

Titanius · Answer

Amigo, s� uma perguntinha...Se eu fizer isso, ele me trar� todos os registros da tabela? pra depois posicionar ele no local?Se for assim  n�o daria, pois tem uma m�dia de 1000 boletas por m�s, e depois vai ficar muito lento :dDesde j� agrade�o[]sFellipe H....

Yallebr · Answer

[quote:e3df1a244f]Se for assim n�o daria, pois tem uma m�dia de 1000 boletas por m�s, e depois vai ficar muito lento :d [/quote:e3df1a244f]Amigo lento isso vai ficar mesmo. Para uma quantidade de 1000 registros n�o � nunca recomendado vc utilizar While EOF. Use um SQL para otimizar isso ou outra alternativa que achar melhor (sem While). Primeiro q vc dever� trazer 1000 registro para a memoria, trafegar toda rede, e o processo de While EOF � muito lento....

Marco Salles · Answer

[quote:5c44e8ea71]Amigo, s� uma perguntinha... Se eu fizer isso, ele me trar� todos os registros da tabela? pra depois posicionar ele no local?[/quote:5c44e8ea71] O Mecanismo que se usa para posicionar usando a String Opaca BookMark , eu confesso que n�o sei... Mas posso garantir que isto esta devidamente Registrado Nos livros de Delphi , quando o assunto � Posicionar o Registro.. Note que estamos desabilitando temporariamente a interface como  o Usu�rio... Muito do tempo Consumido � devido a esta atualiza��o com a interface do que com o Processamento Em si...Da mesma forma , que dar Um cdsBoleta.First; Voce tamb�m corre Este inconveniente ... Sugiro que voce teste o mecansimo e se pronuncie depois ....(Pelo que tudo indica voce n�o testou o c�digo...)...

Titanius · Answer

Amigos, acabei de tentar o c�digo, e nada, voltou ao inicio da tabela, segue o c�digo:

 cdsBoleta.Open;
 Bookmark := cdsBoleta.Bookmark;
 cdsBoleta.DisableControls;
 while not cdsCliente.EOF do
 begin
     cdsBoleta.Append; 
   cdsBoleta.FieldByName(�NOME�).AsString := TbconsCliente.FieldByName(�nome�); 
   cdsBoleta.FieldByName(�MENSALIDADE�).AsString := TbconsCliente.FieldByName(�MENSALIDADE�); 
   cdsBoleta.Post; 
  TbconsCliente.Next;  
 end;

 cdsBoleta.EnableControls;
 cdsBoleta.Bookmark := Bookmark;

 while not cdsBoleta.EOF do
 begin
   <<funcao de imprimir >>
   cds.Boleta.Next;
 end;

o Codigo SQL do meu cdsBoleta, est�:

select cl.cliente, cl.razaosocial, cl.endereco, cl.complemento, cl.bairro, cl.cidade, cl.cep, cl.cnpjcpf, cl.enderecocob,
cl.complementocob, cl.bairrocob, cl.cidadecob, cl.cepcob, cl.mensalidade, cl.datavencimentoboleta, cl.imprimirnf, cl.situacao, cl.desconto,
cl.valordesconto, cl.boletabb, cl.saldoconta, c.nome NomeCidade, c.uf UFCidade, c.cep CEPCidade, c2.nome NomeCidadeCob, c2.uf UFCidadeCob, c2.cep CEPCidadeCob from cliente cl
left join cidade c on (c.cidade = cl.cidade)
left join cidade c2 on (c2.cidade = cl.cidadecob)

eu crio o WHERE, mediante escolha do usu�rio...

[]s

Khundalini · Answer

Eu acho muito mais f�cil, r�pido e pr�tico filtrar os registros que apenas foram inclu�dos ou alterados atrav�s da propriedade UpdateStatus. Fa�a o seu la�o normal, mas apenas escolha os registros que possuem o UpdateStatus com a condi��o do registro que vc quer trabalhar (apenas inclu�dos, apenas alterados, etc.). � uma sugest�o.

[]s
Rubem Rocha
Manaus, AM

Titanius · Answer

Khundalini, poderia me dar um exemplo? Pois nunca usei isso :dDesde j� agrade�o[]s...

Titanius · Answer

Pessoal, resolvi da seguinte maneira:1- No meu while onde eu dou um Append na minha cdsBoleta, eu gravo os codigos de cada boleta.2- No final eu abro um outro CDS, somente com os codigos, dou um select nos codigo que eu selecionei acima.Prontinho... infelizmente tive que ir 2 vezes ao banco de dados, mas foi o jeito que eu achei....Muito obrigado a todos que participaram dessa discuss�o...[]s...

F�rum O ApplyUpdates fecha o CDS? #288131