Multiselect para Query

Question

Ae

Fiz um software recentemente para um controle de pagamentos, s� que preciso passar o resultado de um multiselect de um DBGrid para uma outra query.

Alguem me sugere algo.

Fiz com um for gravando uma string do tipo ... where id=valor[1] and id=valor[2] and ...

S� que acho que deve ter algo melhor nao !?

Valeu

Nglauber · Answer

Bem colega, para o sql vc poderia usar a cl�usula IN. Por exemplo:

Select * from Tabela Where Id IN (1, 2, 3, 4)

e para montar a essa String do �IN� vc poderia fazer o seguinte:

var
i : Integer;
s : String;
begin
   for i := 0 to DBGrid1.SelectedRows.Count-1 do
   begin
      suaQuery.GotoBookMark(Pointer(DBGrid1.SelectedRows[i]));
      if s = "" then
         s := suaQuery.FieldBuName(�ID�).AsString
      else
         s := s +�,�+ suaQuery.FieldBuName(�ID�).AsString
   end;
end;

Espero que possa ter ajudado!

Kamello · Answer

Valeu, deu certo, eu nao lembrado IN, valeu mesmo

Bem colega, para o sql vc poderia usar a cl�usula IN. Por exemplo:

Select * from Tabela Where Id IN (1, 2, 3, 4)

e para montar a essa String do �IN� vc poderia fazer o seguinte:

var
i : Integer;
s : String;
begin
   for i := 0 to DBGrid1.SelectedRows.Count-1 do
   begin
      suaQuery.GotoBookMark(Pointer(DBGrid1.SelectedRows[i]));
      if s = "" then
         s := suaQuery.FieldBuName(�ID�).AsString
      else
         s := s +�,�+ suaQuery.FieldBuName(�ID�).AsString
   end;
end;

Espero que possa ter ajudado!

F�rum Multiselect para Query #162521