Conteudo do CommandText

06/11/2009

0

Boa tarde a todos.   Tenho o seguinte comando:     if (DBGrid.DataSource.DataSet is TClientDataSet) then
  begin
    if not (DBGrid.DataSource.DataSet as TClientDataSet).Active then
      begin
        (DBGrid.DataSource.DataSet as TClientDataSet).Open;
        strSqlAtual:= (DBGrid.DataSource.DataSet as TClientDataSet).CommandText;
      end;
  end;   Na linha em negrito eu queria pegar o conteudo do CommandText do DataSet linkado ao dbgrid..   Ele está passando o valor vazio ''.   Alguem sabe como fazer isso?   Aguardo...
Carlos Júnior

Carlos Júnior

Responder

Posts

07/11/2009

Paulo Silva

Ola amigo tente isso     procedure TForm1.BitBtn1Click(Sender: TObject);
var
sql:string;
begin
  try
    if (DBGrid.DataSource.DataSet is TClientDataSet) then
  begin
    if not (DBGrid.DataSource.DataSet as TClientDataSet).Active then
      begin
        (DBGrid.DataSource.DataSet as TClientDataSet).Open;
        Sql:= TClientDataSet(dbgrid.DataSource.DataSet).CommandText;
        showmessage(sql);
      end;
  end;
  except
   raise Exception.Create('Nao foi possivel recuperar o comando');
  end;   end;  
Responder

09/11/2009

Carlos Júnior

Amigo,   Seu código tb não resolveu..   Fiz de outra forma..   criei uma variavel constante, e passei a sql pra ela...   Obrigado.
Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

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

Aceitar