Llenar DbGrid sin Instrucciones SQL

[jhonny]

A ver,

Escribire lo que entendi del caso:

Tu tienes una DBGrid con ciertos datos(Resultado de una consulta) y lo que quieres es que luego de que se ejecute la consulta, hacer un ciclo comparando ciertas condiciones y cada que dichas condiciones se cumplan ir colocando un registro mas a la DBGrid.

Si es cierta mi apreciacion pues puedes hacerlo usando un TRxMemoryData de las libreria rxLib.

[CamiloU]

El problema es como lo plantea ContraVeneno. Tengo una dbgrid donde quiero que aparezcan los resultados de una selección. El proceso está bien. Los resultados los genero a un memo y no hay porblema. Me gustaría generarlos a una dbgrid para abrir consultas desde las celdas. Intente con Sql pero me ha quedado grande. Aparece toda la tabla y no lo que quiero que seleccione. Por eso pense en la posiblidad de hacerlo sin el TQuery.

Aunque se que no es el foro adecuado, anexo la instruccion en SQL para que vean el intento:
Select E.Cod_Inst, E.Nom_Inst
From Municipios as M, Colegios as E
Where M.Cod_Municipio = E.Cod_Mun
Order by Cod_Inst

A mi me parece que a esta instruccion le hace falta un parametro, que es el valor que recibo en el TEdit pero no se donde colocarla ya que intente colocarla después del Where M.Cod_Municipio = E.Cod_Mun de la siguiente manera: and E.Cod_Mun = CodMunicipio.Text y da error.

Por eso pense en tratar de llenarla si TQuery con una comparación sencilla. Disculpenme por alargarme tanto. Muchas gracias por la colaboración.

[jhonny]

Partiendo de que lo que falta es lo que dices pues deberia ser asi:

Código SQL [-]
'Select E.Cod_Inst, E.Nom_Inst 
From Municipios as M, Colegios as E
Where M.Cod_Municipio = E.Cod_Mun and E.Cod_Mun = "'+CodMunicipio.Text+'"
Order by Cod_Inst'

O tambien puedes usar parametros.

Asi:

Código SQL [-]
'Select E.Cod_Inst, E.Nom_Inst 
From Municipios as M, Colegios as E
Where M.Cod_Municipio = E.Cod_Mun and E.Cod_Mun = :Cod_mun
Order by Cod_Inst'

Configurarlo en la propiedad params como String y luego pasarle el valor del parametro al TQuery asi:

Código Delphi [-]
    Query1.ParamByName('Cod_mun').AsString := CodMunicipio.Text;