Fórum Código SQL #226300

EmpresasNomes := ´´;

for i := 0 to (FormEtiquetasEmpresas.ListBox1.Items.Count - 1) do
begin
FormEtiquetasEmpresas.ListBox1.ItemIndex := i;
DmSGIMO.TbEmpresas.Locate(´Nome´, FormEtiquetasEmpresas.ListBox1.ItemIndex, []);
EmpresasNomes := EmpresasNomes + ´´´+ListBox1.Items[i]+´´´;

if i < (FormEtiquetasEmpresas.ListBox1.Items.Count - 1) then
EmpresasNomes := EmpresasNomes + ´,´;

end;

with DmSGIMO.QryEtiquetasEmpresas do
begin
Close;
SQL.Clear;
SQL.Add(´SELECT Empresas.Nome, Empresas.Endereco, Empresas.Bairro, Empresas.Cep´);
SQL.Add(´FROM Empresas´);
SQL.Add(´WHERE Empresas.Nome = :NomeEmpresa´);
SQL.Add(´ORDER BY Empresas.Nome´);
ParamByName(´NomeEmpresa´).AsString := EmpresasNomes;
Prepare;
Open;

end;

function ConcatenarEmpresas: String;
var nI, nX: Integer;
begin
Result := ´(´;
  nX  := Form1.ListBox1.Items.Count-1;
For nI := 0 to nX do
  begin
Result := Result + QuotedStr(Form1.ListBox1.Items[nI]);
    if nI<nX then Result := Result + ´,´;
  end;
 Result := Result + ´)´;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with DmSGIMO.QryEtiquetasEmpresas do
  begin
  Close;
  SQL.Clear;
  SQL.Add(´SELECT Empresas.Nome, Empresas.Endereco, Empresas.Bairro, Empresas.Cep´);
  SQL.Add(´FROM Empresas´);
  SQL.Add(´WHERE Empresas.Nome IN ´ + ConcatenarEmpresas);
  SQL.Add(´ORDER BY Empresas.Nome´);
  Prepare;
  Open;
  end;
end;

SELECT Empresas.Nome, Empresas.Endereco, Empresas.Bairro, Empresas.Cep
FROM Empresas
WHERE Empresas.Nome IN (´UM´,´DOIS´,´TRES´)
ORDER BY Empresas.Nome