Fórum Por favor,me ajudem #191603
30/10/2003
0
Colegas preciso montar uma query dinâmica usando o componente SQLClientDataSet
do DBxpress.
Qdo. eu estava usando BDE eu fazia o seguinte.
Query.Sql.Add(´select * from Tabela);
if Condição then
Query.SQL.Add(´where campo1 = :parametro);
:?: Grato
do DBxpress.
Qdo. eu estava usando BDE eu fazia o seguinte.
Query.Sql.Add(´select * from Tabela);
if Condição then
Query.SQL.Add(´where campo1 = :parametro);
:?: Grato
Ecarvalhox
Curtir tópico
+ 0
Responder
Posts
30/10/2003
Frare
Olá, ecarvalhox
Vc. fará a mesma coisa so que na propriedade DataSet CommandText.
Ex.
Const
Texto := ´select * from Tabela ´;
Cond := ´where campo1 = :parametro ´ ;
...
SQLClientDataSet.Active := False;
if Condição then
Begin
SQLClientDataSet.DataSet.CommandText := Texto+Cond;
SQLClientDataSet.DataSet.ParamByName(:parametro).AsInteger := xxxx;
SQLClientDataSet.Active := True;
Else
SQLClientDataSet.DataSet.CommandText := Texto;
Espero ter ajudado.
Ps.
Detalhe nas constante sempre deixe espa no final da sentença..
Vc. fará a mesma coisa so que na propriedade DataSet CommandText.
Ex.
Const
Texto := ´select * from Tabela ´;
Cond := ´where campo1 = :parametro ´ ;
...
SQLClientDataSet.Active := False;
if Condição then
Begin
SQLClientDataSet.DataSet.CommandText := Texto+Cond;
SQLClientDataSet.DataSet.ParamByName(:parametro).AsInteger := xxxx;
SQLClientDataSet.Active := True;
Else
SQLClientDataSet.DataSet.CommandText := Texto;
Espero ter ajudado.
Ps.
Detalhe nas constante sempre deixe espa no final da sentença..
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)