Fórum 3 camadas Delphi ASP #227427

procedure TMetodos.Consulta(var Tabela, Id, Id_vlr: WideString) ;
var sSQL :String;
begin
  sSQL := ´SELECT * FROM ´+Tabela;
  if (Id <> ´´) and (Id_vlr <> ´´) then
    sSQL := sSQL+ ´ WHERE ´+Id+´ = ´+Id_vlr;

  FDM.qryCuston.Close;
  FDM.qryCuston.SQL.Clear;
  FDM.qryCuston.SQL.Text := sSQL;
  if not FDM.qryCuston.Prepared then
    FDM.qryCuston.Prepare;
  FDM.qryCuston.Open;

  if not FDM.qryCuston.IsEmpty then
    Response.Write(FDM.dtsListaSimples.Content);
end;