??que regresa un query??

[*Caro*]

si en tu query tienes digamos esta consulta

query.sql.text:='SELECT codigo, nombre FROM clientes';

tu puedes recorrer toda lo lista que devuelve el query y ponerlos en variables de la siguiente manera:

Código Delphi [-]
  
    query.First;
    WHILE not(query.Eof) DO
    begin
        cod:=query.Fields[0].AsString;      
        nom:=query.Fields[1].AsString;
 
        ...... 
        query.Next
    end;

donde cod y nom son variables de tipo cadena

[david duarte]

Exactamente, mira tengo una tabla con un campo(de muchos) que es nombre_analisis, folio, que es donde se va a guardar el nombre del analisis, entonces lo que necesito saber y guardarlo en una variable en este caso es el nombre del analisis que tiene el folio x,
p.e.
select disctint nombre_analisis from analisis_extra where folio = 'x'
ya que el resultado de este query va a ser los analisis.
Para los analisis del resultado del query, necesito crear un qrdbtext que necesito para un reporte.

Podria dentro del query, almacenar el(los) nombres del analisis de la siguiente forma

Código Delphi [-]
  select distinct nombre_analisis
  from analisis_extra
  where folio = edit1.text;

  query1.First;
    WHILE not(query1.Eof) DO
    begin
        nom_an:=query.Fields[0].AsString;
        aux_nom := aux_nom + nom_an;
        aux_nom := aux_nom + ',';
        ...... 
        query.Next
    end;

Disculpen mi ignorancia, pero en que parte del codigo va esta parte???
Sorry

Gracias
Saludos!!!!

[paty_rlopez]

hola david duarte:

no se exactamente como lo quieres pero si quieres mostrar los resultados en un reporte puedes poner el código ese antes de la línea

Reporte.Preview

Si lo que quieres es mostrarlo en una banda en especifico lo puedes poner en el evento
BeforePrint de la banda en que se vaya a mostrar y asignarle el valor de la variable de texto a un QRLabel


Espero y sea eso lo que necesitas


Saludos

[david duarte]

Gracias por responder!!!

Mira, lo que necesito es lo siguiente:

ejecuto el query anterior y p.e. me regresa "analisis1, analisis2, analisis3, analisis4", lo que necesito es que ese resultado me lo almacene en una variable tipo string, recorrer la cadena y separar el nombre de los analisis hasta que encuentre una coma, posteriormente crear una qrlabel y una qrdbtext con lo siguiente.
variables
texto : TQrLabel;
campo : TQRDBText;

Código Delphi [-]
  campo := TQEDBText.Create(DetailBand1); 
  campo.DataSet := query1;
  query1.Add(SELECT analisis1 from analisis_extra where nombre_analisis = variablex);

pero primero necesito saber si se puede hacer lo anterior?

Muchas gracias por su tiempo
Gracias!!!!
Saludos!!!!