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
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)