Tabla que llena un query

[[Lepe]]

Tienes razón, el TSelecStrings no tiene en cuenta las subconsultas (yo no las uso mucho) .

Ahora que lo pienso:

Código SQL [-]
select  nombre, (select distinct edad from edades)
from tabla
where  edad < (select edad from edades)

... amos, que si nos ponemos a buscarle fallos, no terminamos.

Por suerte y sin tenerlo programado, puedes armar la consulta como:

Código Delphi [-]
ss.Sections[pSelect] := 'nombre, (select distinct edad from edades)';
ss.Sections[pFrom] := 'tabla';
ss.AddToWhere(oNull, 'edad < (select edad from edades)');

Por cierto guglu, deja de chatear conmigo

Saludos

[[eduarcol]]

Hola y gracias por la ayuda, me ha servido de mucho, no me desmoraliza las fallas ya habia analizado una serie de escenarios y se que no funcionaria a la perfeccion. Por eso buscaba alguna propiedad magica, que me delvoviera las tablas involucradas.

Yo creo una pantalla de busqueda generica: Una caja de texto, un Grid, un boton y un query, en la inicializacion del form paso como parametro la sentencia que quiero mostrar y automaticamente se arma el grid con la informacion resultante de la consulta. Al darle el boton aceptar devuelve el valor del campo en la posicion 0.

Ahorita doy la opcion con un filtro de ir buscando el registro que coincida con lo que se escribe en la caja de texto. Pero como se quiere acceder por medio de internet es muy lento debido a que hay que cargar todos los registros. Lo que pretendo es relanzar la consulta que lleno la tabla con los filtros establecidos por el usuario. Es decir, la primera pudo haber sido por el nombre, luego por el apellido, pense hacerlo como algo parecido a como sugirio Lepe, tres variables: Campos, Tablas y condicion y armar el sql algo asi:

Código Delphi [-]
'Select ' + Campos + ' from ' + Tablas + ' where ' + Condicion

pero tambien le doy a los usuarios avanzados la capacidad de crear sus propias consultas sql.

Bueno espero haberme explicado y usare las sugerencias obtenidas. Muchas gracias a todos por sus acertadas participaciones.

Saludos

[[Caral]]

Hola
No se si con zeos se podrá hacer esto, pero Roman me enseño a hacer un filtro de selección por tablas y campos, revisalo, tal vez te de ideas.
Saludos

[[eduarcol]]

Algo parecido estoy haciendo amigo Carlos, pero no puedo trabajar con Filtros porq al traer todos los registros por internet se haria insorpotable la lentitud al abrir la pantalla de busqueda.

[[eduarcol]]

A ver, apoyandome en la idea de GluGlu resolvi el problema, aqui esta el codigo para el que le interese, basicamente lo que hace es qe toma la ultima aparicion del WHERE y divide el string en dos, luego inserta el filtro y lo vuelve a unir. Pronto lo subire a mi subdominio para el que lo necesite

Código Delphi [-]
//si el control activo es caja de texto Genera el filtro en la consulta
         //Divide la sentencia SQL
         sq.DisableControls;

         sq.Active := False;

         //Reestablece la sentencia original
         sq.SQL.Text := cSqlOriginal;

         //Inicializa las variables
         Aux_SelectSQL1 := '';
         Aux_SelectSQL2 := UpperCase(sq.SQL.Text);

         //Elimina los saltos de linea y saca como resultado Aux_SelectSQL1
         for j := 1 to Length(Aux_SelectSQL2) do begin
           if Aux_SelectSQL2[j] = #13 then
              Aux_SelectSQL1 := Aux_SelectSQL1 + ' '
           else
             if Aux_SelectSQL2[j] <> #10 then
               Aux_SelectSQL1 := Aux_SelectSQL1 + Aux_SelectSQL2[j];
         end;

         //Toma la aparicion del ultimo where
         Aux_Pos := 1;
         while PosEx(' WHERE ', Aux_SelectSQL1, Aux_Pos) <> 0 do begin
           Aux_Pos := PosEx(' WHERE ', Aux_SelectSQL1, Aux_Pos) + 1;
         end;

         //Divide la sentencia antes del where y despues del where
         Dec(Aux_Pos);
         if Aux_Pos = 0 then
         begin
            Aux_Pos := Length(Aux_SelectSQL1);
            Aux_SelectSQL1 := Aux_SelectSQL1 + ' WHERE ';
            lAgregar := False;
         end
         else
            lAgregar := True;

         cInicio  := Copy(Aux_SelectSQL1, 1, Aux_Pos + 7);
         cFinal   := Copy(Aux_SelectSQL1, Aux_Pos + 7, Length(Aux_SelectSQL1));



         //Arma el filtro dependiendo la seleccion
         if rgTipo.ItemIndex = 0 then //Comienza
            cFiltro := ' (' + rgFiltro.Items.Strings[rgFiltro.ItemIndex] + ' like ' + QuotedStr(txBuscar.Text + '%') + ')'
         else if rgTipo.ItemIndex = 1 then //Contiene
            cFiltro := ' (' + rgFiltro.Items.Strings[rgFiltro.ItemIndex] + ' like ' + QuotedStr('%' + txBuscar.Text + '%') + ')'
         else if rgTipo.ItemIndex = 2 then //Termina
            cFiltro := ' (' + rgFiltro.Items.Strings[rgFiltro.ItemIndex] + ' like ' + QuotedStr('%' + txBuscar.Text) + ')'
         else if rgTipo.ItemIndex = 3 then //Exacta
            cFiltro := ' (' + rgFiltro.Items.Strings[rgFiltro.ItemIndex] + ' = ' + QuotedStr(txBuscar.Text) + ')';

         //Determina si agrega el AND
         if lAgregar then
            cFiltro := cFiltro  + ' AND ';

         sq.SQL.Text := cInicio + cFiltro + cFinal;
         sq.Active := True;
         sq.EnableControls;