duvia ao abrir todos os datasets

30/11/2005

ola amigos fiz o seguinte:


procedure AbreDataSet;
var
i : Integer;
begin
for i := 0 to DM.ComponentCount -1 do
if DM.Components[i] is TpFIBDataSet then
begin
TpFIBDataSet(DM.Components[i]).Open;
end;
end;

** TpFIBDataSet eh do pacote FIBPlus, o qual estou usando, gostaria de saber como n abrir ou negar um dataset que so servirar para leitura ou execuçao de sql, ja q esta rotina abre tooooooodas as datasets que existem no DM

obrigado!!


Njuniorba

Respostas

30/11/2005

Emerson

uma das formas é você alterar a Tag desses datasets que não queira abrir.
a sua procedure ficaria assim:

procedure AbreDataSet; 
var 
  i : Integer; 
begin 
  for i := 0 to DM.ComponentCount -1 do 
    if (DM.Components[i&93; is TpFIBDataSet)
    and (TpFIBDataSet(DM.Components&91;i&93;).Tag = 0) then 
      TpFIBDataSet(DM.Components&91;i&93;).Open; 
end;


ou seja: os componentes com Tag=0 seriam abertos. qualquer outro valor na Tag impediria esses datasets de serem abertos.


Responder Citar