Yes, sir. rsrsr
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Ricardo César Cardoso Enviada em: sexta-feira, 17 de abril de 2009 12:10 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: RES: [delphi-br] <<< Copiar TTable para TClientDataSet >>> É Rubem, não Rubens. "Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!" --- Em sex, 17/4/09, Juliano Silva - Yahoo <smjjuli...@yahoo.com.br <mailto:smjjuliano%40yahoo.com.br> > escreveu: De: Juliano Silva - Yahoo <smjjuli...@yahoo.com.br <mailto:smjjuliano%40yahoo.com.br> > Assunto: RES: RES: [delphi-br] <<< Copiar TTable para TClientDataSet >>> Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> Data: Sexta-feira, 17 de Abril de 2009, 11:56 Rubens, obrigado O meu código é bem parecido com o seu, quanto comentei de fazer a transferência de um TTable ou TQuery estava me referindo a não fazer tudo na unha, isso eu já faço, ou seja, percorro a origem em busca dos campos e crio eles no destino, depois faço um looping na origem e coloco no destino, isso eu já faço... Isso que faço tem me atendido bem, mas tem alguns inconvenientes, como por exemplo quanto tenho campos calculados na Origem, daí meu código não funciona, cheguei até a começar a tratar o problema, mas daí pensei, poxa, será que não tem uma forma de fazer um ASSIGN direto e já conseguir fazer isso... é o que estou atrás de fazer... Mas realmente estou achando que estou matando a coisa com a ferramenta errada, estou estando uma dica de outro companheiro que ao invés de transferir os dados, porque eu não conecto um Provider na minha origem e faço o q tenho que fazer... estou fazendo testes... Juliano De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em nome de Rubem Nascimento da Rocha Enviada em: sexta-feira, 17 de abril de 2009 11:32 Para: delphi-br Assunto: RE: RES: [delphi-br] <<< Copiar TTable para TClientDataSet >>> Prioridade: Alta (Odeio fornecer receita de bolo, mas...) veja se este código abaixo pode te ajudar a encontrar uma luz. Escrevi ele rapidamente, não testei a fundo mas acredito que ele possa te ajudar a encontrar o que vc procura. function DataSetToClientData Set(ADataSet: TDataSet): TClientDataSet; var iFld: integer; begin Result := nil; if not Assigned(ADataSet) then Exit; if not ADataSet.Active then Exit; Result := TClientDataSet. Create(nil) ; Result.FieldDefs. Assign(ADataSet. FieldDefs) ; Result.CreateDataSe t; ADataSet.DisableCon trols; ADataSet.First; while not ADataSet.Eof do begin Result.Append; for iFld := 0 to ADataSet.FieldCount - 1 do Result.Fields[ iField].Value := ADataSet.Fields[ iField].Value; Result.Post; ADataSet.Next; end; ADataSet.EnableCont rols; end; Sds. To: delphi...@yahoogrup os.com.br <mailto:delphi- br%40yahoogrupos .com.br> From: smjjuli...@yahoo. com.br <mailto:smjjuliano% 40yahoo.com. br> Date: Fri, 17 Apr 2009 11:17:51 -0300 Subject: RES: [delphi-br] <<< Copiar TTable para TClientDataSet >>> Não, tem que ser dinâmico, ou seja, eu não sei quais os dados estarão no Dataset. Ou seja, eu não sei quais os dados (Campos) estarão na minha Origem... De: delphi...@yahoogrup os.com.br <mailto:delphi- br%40yahoogrupos .com.br> [mailto:delphi...@yahoogrup os.com.br <mailto:delphi- br%40yahoogrupos .com.br> ] Em nome de Humberto Oliveira Enviada em: sexta-feira, 17 de abril de 2009 10:49 Para: delphi...@yahoogrup os.com.br <mailto:delphi- br%40yahoogrupos .com.br> Assunto: Re: [delphi-br] <<< Copiar TTable para TClientDataSet >>> Botão direito do mouse no seu ClientDataSet Fields Editor não resolve? 2009/4/17 Juliano Silva - Yahoo <smjjuli...@yahoo. com.br <mailto:smjjuliano% 40yahoo.com. br> <mailto:smjjuliano% 40yahoo.com. br> > > > > > > Tanto faz, mas nos meus casos, sempre tenho o ClientDataSet na tela, sem o > Fields, os Fields são criados sempre com base no Dataset de Origem... > Resumidamente, tenho a Origem dos dados na tela, quero transportar estes > dados para um ClientDataSet que também está na tela. > > De: delphi...@yahoogrup os.com.br <mailto:delphi- br%40yahoogrupos .com.br> <mailto:delphi- br%40yahoogrupos .com.br> <delphi-br%40yahoog rupos.com. br> [mailto: > delphi...@yahoogrup os.com.br <mailto:delphi- br%40yahoogrupos .com.br> <mailto:delphi- br%40yahoogrupos .com.br> <delphi-br%40yahoog rupos.com. br>] Em > nome de Humberto Oliveira > Enviada em: sexta-feira, 17 de abril de 2009 10:00 > Para: delphi...@yahoogrup os.com.br <mailto:delphi- br%40yahoogrupos .com.br> <mailto:delphi- br%40yahoogrupos .com.br> <delphi-br%40yahoog rupos.com. br> > Assunto: Re: [delphi-br] <<< Copiar TTable para TClientDataSet >>> > > > Juliano, > > você está criando o DataSet e o ClientDataSet na "unha"? > > Abraços. > > 2009/4/17 Juliano Silva - Yahoo <smjjuli...@yahoo. com.br <mailto:smjjuliano% 40yahoo.com. br> <mailto:smjjuliano% 40yahoo.com. br> <smjjuliano% 40yahoo.com. br> > <mailto:smjjuliano% 40yahoo.com. br <smjjuliano% 2540yahoo. com.br>> > > > > > > > > Pessoal > > > > Sempre que eu preciso copiar todos os dados de um TTable ou TQuery para > um > > ClientDataSet, eu faço da seguinte maneira > > > > 1. Crio os Fields da origem (Table ou Query) nos ClientDataSet > > > > 2. Faço um Looping na Oritem (table ou query) e adicionando no > > ClientDataSet > > > > Bem, é assim que faço, tenho até uma função para fazer isso > > automaticamente, > > a questão é, poxa, será que eu preciso fazer isso, sabendo do poder do > > ClientDataSet? Será que não tem como fazer essa copia diretamente? Sem > > precisar fazer loopings, etc... ??? > > > > Marçal, Juliano > > > > MSN: smjuli...@hotmail. com <mailto:smjuliano% 40hotmail. com> <mailto:smjuliano% 40hotmail. com> <smjuliano%40hotmai l.com> <mailto: > smjuliano%40hotmail .com <smjuliano%2540hotm ail.com>> > <smjuliano%40hotmai l.com> > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > __________ Informação do NOD32 IMON 4016 (20090417) __________ > > Esta mensagem foi verificada pelo NOD32 sistema antivírus > http://www.eset. com.br > > [As partes desta mensagem que não continham texto foram removidas] > > > [As partes desta mensagem que não continham texto foram removidas] __________ Informação do NOD32 IMON 4016 (20090417) __________ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset. com.br [As partes desta mensagem que não continham texto foram removidas] ____________ _________ _________ _________ _________ _________ _ Novo Windows Live: Messenger 2009 e muito mais. Descubra! http://www.windowsl ive.com.br [As partes desta mensagem que não continham texto foram removidas] __________ Informação do NOD32 IMON 4016 (20090417) __________ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset. com.br [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] __________ Informação do NOD32 IMON 4016 (20090417) __________ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
