Alguém poderia me ajudar com esta função ...

Delphi

13/04/2007

function TDM.getSQL(oCds: TClientDataSet): String;
Begin
If FindComponent( oCds.ProviderName ) <> nil Then
If TDataSetProvider(FindComponent( oCds.ProviderName )).DataSet <> nil Then
Result:=TClientDataSet(TProvider(DM.FindComponent( oCds.ProviderName )).DataSet).CommandText;
End;

Está sempre retornando o commandtext vazio, o que pode estar errado. :(


Ibotirama

Ibotirama

Curtidas 0

Respostas

Marco Salles

Marco Salles

13/04/2007

talvez:

If FindComponent( oCds.ProviderName ) <> nil Then
   If TDataSetProvider(FindComponent( oCds.ProviderName )) <> nil Then
      Result:=TClientDataSet(oCds).CommandText;



GOSTEI 0
POSTAR