Conteudo do CommandText
06/11/2009
0
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
Posts
07/11/2009
Paulo Silva
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;
09/11/2009
Carlos Júnior
Clique aqui para fazer login e interagir na Comunidade :)