Fórum Alguém poderia me ajudar com esta função ... #340364

13/04/2007

0

Delphi

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

Responder

Posts

13/04/2007

Marco Salles

talvez:

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



Responder

Gostei + 0

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

Aceitar