SQLQuery + DataSetProvider + ClientDataSet

Seque fonte para criar e associar esses componentes em tempo de execução.


var
consultaEstrutura : TSQLQuery;
providerEstrutura : TDataSetProvider;
datasetEstrutura : TClientDataSet;

begin
consultaEstrutura := TSQLQuery.Create(Self);
providerEstrutura := TDataSetProvider.Create(Self);
datasetEstrutura := TClientDataSet.Create(Self);

try
consultaEstrutura.SQLConnection := Conexao;
consultaEstrutura.SQL.Text := 'select current_date';
consultaEstrutura.Open;

providerEstrutura.DataSet := consultaEstrutura;
providerEstrutura.Name := 'providerEstrutura';

datasetEstrutura.ProviderName := providerEstrutura.Name;

datasetEstrutura.Open;
finally
consultaEstrutura.Free;
providerEstrutura.Free;
datasetEstrutura.Free;
end;
end;