Consulta SQL

[hhmelina 0]

Oi gente... :D Estou passando um bando do Paradox para o Interbase...

A consulta lá está assim:

 

Q_despesas.active:=false;

Q_despesas.SQL.Strings[21] := 'WHERE I.Despesas = D.Codigo';

Q_despesas.SQL.Strings[22] := 'And D.MesAno = :Num1';

Q_despesas.ParamByName('Num1').Value:=editmesano.text;

Q_despesas.SQL.Strings[23] :='order by D.NSocio, I.NCheque';

Q_despesas.active:=true;

Q_despesas.close;

pp_Despesas.OpenDataSource := true;

Rel_Desp.Print;

Q_despesas.Open;

 

Como passar isso???

 

Q_despesas.SQL.Strings[21]

O que significa .Strings[21]??? http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

 

Me ajudem...

obrigada....

Mel http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

[Renato Lima 0]

O erro deve ser porque deve ser Q_despesas.SQL.Strings[21] .Value := 'WHERE I.Despesas = D.Codigo';

 

 

Se for um componente TQuery, basta fazer <componente>.SQL.Add('comando');

 

O SQL.Add inseri o comando no final uma nova linha no final da instrução SQL.

 

 

Até mais,

 

Renato