Como recuperar o TSQLConnection � partir do TClientDataSet ?

Question

Amigos,Nesta estrutura :TSQLConnection->TSQLDataSet -> TDataSetProvider -> TClientDataSetExiste alguma forma de se recuperar o TSQLConnection e ler suas propriedades e/ou executar seus m�todo...

Beppe · Answer

Vina, veja se n�o � vi�vel colocar Integer(SQLConnection) na Tag do ClientDataSet. Depois recupera dali....

Vinicius2k · Answer

Beppe,O problema maior � que � para uma fun��o... atualmente ela est� +/- assim (s� exemplo, existe c�digo omitido) :[code:1:992fb3dee5]cdsApplyUpdates(aClientDataSet: TClientDataSet; aSQLConnection: TSQLConnection);begin  ...  aSQLConnection.StartTransaction(TD);  aClientDataSet.ApplyUpdates(0);  aSQLConnection.CommitTransaction(TD);  ...end;[/code:1:992fb3dee5]Para chamar eu preciso passar nos parametros o ClientDataSet e SQLConnection e eu queria, se poss�vel claro, s� passar o ClientDataSet...Com a Tag com certeza � uma forma melhor, mas eu teria que �taguear� todos os CDS com a Tag da SQLConnection... (� isso q vc quis dizer n�o �?)... de qq forma eu teria q passar o DataModule no parametro para �rodar� e achar a SQLConnection q tem a mesma Tag do CDS...T+Vina....

Beppe · Answer

[quote:c5dd2f5b7a=�vinicius2K�]Para chamar eu preciso passar nos parametros o ClientDataSet e SQLConnection e eu queria, se poss�vel claro, s� passar o ClientDataSet...Com a Tag com certeza � uma forma melhor, mas eu teria que �taguear� todos os CDS com a Tag da SQLConnection... (� isso q vc quis dizer n�o �?)... de qq forma eu teria q passar o DataModule no parametro para �rodar� e achar a SQLConnection q tem a mesma Tag do CDS...[/quote:c5dd2f5b7a]N�o, n�o...nada de lookup...Insira um c�digo assim nos OnCreate�s:ClientDataSet1.Tag := Integer(SQLConnection1);Na sua rotina use isto TSQLConnection(aClientDataSet.Tag)...

Vinicius2k · Answer

:D
Blz ! It�s working fine ! :wink:

S� implementei um pouco diferente... fiz uma procedure para automatizar o processo e a chamo no OnCreate do DataModule... com 2 Loops consegui fazer o caminho inverso e �taguear� todos dos CDS automaticamente mesmo que eles estejam conex�es diferentes...

procedure dbxAutoTagCDS(aContainer: TComponent);
var i, i2: Integer;
begin
  for i:= 0 to (aContainer.ComponentCount - 1) do
    if aContainer.Components[i] is TClientDataSet then
      for i2:= 0 to (aContainer.ComponentCount - 1) do
        if aContainer.Components[i2] is TDataSetProvider then
          if aContainer.Components[i2].Name = 
          (aContainer.Components[i] as TClientDataSet).ProviderName then
            with (aContainer.Components[i2] as TDataSetProvider) do
              (aContainer.Components[i] as TClientDataSet).Tag:= 
              Integer((DataSet as TSQLDataSet).SQLConnection);
end;

Valew a for�a Beppe !

Abra�o.
Vina.

Vinicius2k · Answer

Corre��o... eu estava esquecendo de testar a �ltima classe... � necess�rio pq posso ter CDSs ligados � outros tipos de DataSets :

procedure dbxAutoTagCDS(aContainer: TComponent);
var i, i2: Integer;
begin
  for i:= 0 to (aContainer.ComponentCount - 1) do
    if aContainer.Components[i] is TClientDataSet then
      for i2:= 0 to (aContainer.ComponentCount - 1) do
        if aContainer.Components[i2] is TDataSetProvider then
          if aContainer.Components[i2].Name =
            (aContainer.Components[i] as TClientDataSet).ProviderName then
            with (aContainer.Components[i2] as TDataSetProvider) do
              begin
                if DataSet is TSQLQuery then
                 (aContainer.Components[i] as TClientDataSet).Tag:=
                   Integer((DataSet as TSQLQuery).SQLConnection);
                if DataSet is TSQLDataSet then
                 (aContainer.Components[i] as TClientDataSet).Tag:=
                    Integer((DataSet as TSQLDataSet).SQLConnection);
              end;
end;

T+
Vina.

R�mulo Barros · Answer

Muito boa a sua solu��o, vina !!!! :wink:

eu, particularmente, efetuo o �SqlConnection.Commit(Td)� no evento Before Post de meus TClientDataSet;;;; :?

[color=red:30368ffc69]Relaxe[/color:30368ffc69] :arrow: http://www.horadocafezinho.com.br

Vinicius2k · Answer

Blz U.I...Eu pensei em abrir a transa��o no Before Post e commitar no After Post, mas isso pode ser ruim, pelo menos pra mim, em alguns casos como edi��o em v�rias tabelas diferentes ao mesmo tempo... At� ent�o eu controlava a transa��o sempre em todos os clicks de �salvar�, da� o c�digo estava ficando espalhado e repetitivo...Tenho trabalhado muito em fun��es para automatizar processos... com esta fun��o �cdsApplyUpdates�, por exemplo, com uma linha de c�digo eu consigo efetuar a grava��o, controlando a transa��o e exibindo mensagens de erro, inclusive o OnReconcileError (este �ltimo gra�as ao Beppe tbm :D)... T+Vina....