Adicionando Fields em run-time [bds2007 dbexpress]

29/05/2008

2

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


Responder

Posts

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
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

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar