Adicionando Fields em run-time [bds2007 dbexpress]

29/05/2008

0

Olá Pessoal,

Possuo um aplicação, onde as telas de cadastro são geradas por herança, e a pesquisa desta tela tem que ser bem genérica. Possuo um ClientDataSet(cdsCadastro) que é o objeto que manipula os dados(Insert, Update, Deletes) e com a clausula SQL(select ... from TabelaTal) e outro ClientDataSet(cdsPesquisa).

No Create do Form passo a clausula SQL do cdsCadastro para o cdsPesquisa, no entanto preciso que o cdsPesquisa herde os TFields do cdsCadastro com todas as suas propriedades modificadas(DisplayName, DisplayFormat, Visible,...). A rotina que tentei implementar(segue rotina abaixo) está dando erro de memória sempre que fecho o form.
Alguém ai pode me ajudar?

Desde já Obrigado a todos


[color=blue:8fa028e1c8][b:8fa028e1c8]procedure TfrmCadastro..FormCreate(Sender: TObject);
var
i: integer;
begin

cdsPesquisa.CommandText := dtsCadastro.CommandText;

with cdsPesquisa do
begin

cdsPesquisa.Fields.Clear;
for i := 0 to cdsCadastro.FieldCount - 1 do
cdsPesquisa.Fields.Add(cdsPesquisa.Fields[i]);

end;

end;[/b:8fa028e1c8][/color:8fa028e1c8]


Atenciosamente,
Yale Leite


Yale.leite

Yale.leite

Responder

Posts

29/05/2008

Emerson Nascimento

veja se [url=http://forum.devmedia.com.br/viewtopic.php?t=95260]esse tópico[/url] te ajuda...


Responder

29/05/2008

Yale.leite

Estou usando

SQL-Server 2005
Delphi 2007
DbExpress[SqlDataSet -> DataSetProvider -> ClientDataSet - DataSource]


Responder

29/05/2008

Emerson Nascimento

veja se [url=http://forum.devmedia.com.br/viewtopic.php?t=95260]esse tópico[/url] te ajuda...


o tópico citado foi útil de alguma forma ???



.


Responder

30/05/2008

Yale.leite

Na Verdade não resolveu meu problema. Os erros de acesso à memória continuaram.
Acabei buscando outra maneira de montar a pesquisa.

Obrigado amigo!


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

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

Aceitar