GARANTIR DESCONTO

Fórum Recuperar SQL padão do SQLDATASET após consulta #343538

23/07/2007

0

:idea: Olá a todos
Uso Delphi 7 + DbExpress + DataSetPRovider....
Gostaria de poder recuperar a SQL padrão armazenada no CommandText do componente SQLDATASET.
Imagine o exemplo abaixo:
// ---
M_Aux := ´SELECT * FROM FORNECEDORES A ´;
M_Aux := M_Aux + ´Where (A.Frn_Cod >= :FrnIni) ´;
M_Aux := M_Aux + ´And (A.Frn_Cod <= :FrnFim) ´;
M_Aux := M_Aux + ´And (A.Frn_Uf >= :UfI) ´;
M_Aux := M_Aux + ´And (A.Frn_Uf <= :UfF) ´;
M_Aux := M_Aux + ´And (A.Cat_Cod >= :CatIni) ´;
M_Aux := M_Aux + ´And (A.Cat_Cod <= :CatFim) ´;

M_Aux := M_Aux + ´ ORDER BY ´ + M_Ordem + ´ ASC´;

dtm.SqlDtStFornecedores.CommandText := M_Aux;

dtm.SqlDtStFornecedores.Parambyname(´FrnIni´).AsString := EdtCodI.Text;
dtm.SqlDtStFornecedores.Parambyname(´FrnFim´).AsString := EdtCodF.Text;
dtm.SqlDtStFornecedores.Parambyname(´UfI´).AsString := EdtUfI.Text;
dtm.SqlDtStFornecedores.Parambyname(´UfF´).AsString := EdtUfF.Text;
dtm.SqlDtStFornecedores.Parambyname(´CatIni´).AsString := EdtCatI.Text;
dtm.SqlDtStFornecedores.Parambyname(´CatFim´).AsString := EdtCatF.Text;

M_Aux := M_Aux + ´ ORDER BY ´ + M_Ordem + ´ ASC´;

dtm.CliDtStFornecedores.Open;

Com isso filtro alguns registros. Ok.
Depois caso seja necessário acessar o cadastro de fornecedores faço:

dtm.ClidtStFornecedores.Open;

e chamo o Form correspondente, mas o filtro executado na seleção anterior fica mantido, então quero saber se há uma maneira de recuperar o SQL padrão do componente sem ter que fazer:

COMMANDTEXT := ´SELECT * from fornecedores´;

Abraços a todos
Neto


Neto

Neto

Responder

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

Aceitar