passagem de parametro

Question

como fa�o para passar a seguinte string por parametro: 001,002,003para uma query que tem a seguinte consulta:select * from tabelawhere campo in(:parametro)Desde j� obrigado...

Jener · Answer

Jovem, vc pode passar como par�mertos um array ou um stringlist para usar na sua cl�usula Where.
ex.:

Procedure Selecionar(Itens: array[0..3] of Char);
Begin

Select
Campo1,
Campo2
From
Tabela
Where
Condicao in (Itens[1],Itens[2],Itens[3])

End;

Leufmt · Answer

isto n�o vai dar certo pois estou passando o parametro assim:tabela.parameters[0].value := parametro;...

Jener · Answer

N�o entendi bem o motivo que apresentou para que n�o funcionasse. Pelo que entendi da sua primeira mensagem n�o vejo motivo para que n�o funcione.
Bem, mas se quiser pode me adicionar no MSN que terei prazer em tentar ajud�-lo.

Leufmt · Answer

E que na verdade os valores que estou enviando s�o do tipo string mas separados por v�rgula, por este motivo n�o estou conseguindo enviar por parametro. j� tentei fazer assim:

parametro := QuotedStr(�001�) + �,� + QuotedStr(�002�) + �,� +QuotedStr(�001�);

tabela.parameters[0].value := parametro;

para esta consulta que esta em um adoquery:
select * from tabela
where campo in(:parametro)

O parametro deveria chegar na consulta desta forma �001�, �002�, �003�
mas n�o esta dando certo.
J� estou desesperado para resolver isto.

Emerson Nascimento · Answer

voc� ter� de tratar isso de outra forma. n�o � poss�vel passar um lista como par�metro para a fun��o [i:04ed31bd94]in[/i:04ed31bd94] do sql.

�desmonte� a string e remonte-a no formato desejado. depois fa�a a concatena��o na instru��o, pois n�o d� para passar como par�metro.

algo assim:

function TForm1.MontaSQL(tabela, campo, lista: string): string;
var
  lst: TStringList;
  i: integer;
  Parametro: string;
begin
  lst := TStringList.Create;
  lst.Delimiter := �,�;
  lst.DelimitedText := Lista;

  parametro := ��;

  for i := 0 to lst.Count-1 do
  begin
    parametro := parametro + QuotedStr(lst[i]);
    if i < lst.Count-1 then
      parametro := parametro + �,�;
  end;

  lst.Free;

  result := �select * from �+tabela+� where �+campo+� in (�+parametro+�)�;
end;

execute a fun��o da seguinte forma:
ShowMessage(MontaSQL(�Cliente�, �Codigo�, �001,002,003,012,065�));
ser� exibida a instru��o:
[i:04ed31bd94]select * from Cliente where Codigo in (�001�,�002�,�003�,�012�,�065�)[/i:04ed31bd94]

funciona mesmo que seja passado apenas um elemento na lista:
ShowMessage(MontaSQL(�Cliente�, �Codigo�, �012�));
retorna:
[i:04ed31bd94]select * from Cliente where Codigo in (�012�)[/i:04ed31bd94]