Como obtengo los resultados de una consulta???

[oktubre]

estimados,
soy bastante nuevo en delphi, no en otros lenguajes, por eso consulto esta tonteria que no esta en mis libros.

el caso es que quiero hacer una consulta utilizando un Tquery con el siguiente codigo:

SELECT * FROM DETALLE WHERE Idfactura='33'

si yo hago esto con un TQuery, pero no quiero usar un DBgrid, quiero generar una línea para ser agregada en un memo. (ejemplo memo1.Lines.Add(varstring) )

como hago para obtener los resultados de la consulta?

en casos similares he visto y he usado para un solo registro :
Qproducto.FieldValues['Detalle']

en un lenguaje como PHP habría utilizado un while, pero en esto no se que hacer.
si alguien tiene un codigo de ejemplo lo agradezco.
saludos
esteban

[[BlueSteel]]

Hola

Creo que debiera ser algo similar a esto

Código Delphi [-]
Memo1.Lines.Add(Concat(Tquery1['Campo1'],' ',Tquery1['Campo2'],' - ',Tquery1['Campo3'])

ahora, si lo quieres en un ciclo para que ponga todas los registro de la factura...

Código Delphi [-]
While Tquery1.Eof = False Do
Begin
        Memo1.Lines.Add(Concat(Tquery1['Campo1'],' ',Tquery1['Campo2'],' - ',Tquery1['Campo3']);
        Tquery1.Next;
End;

Salu2

[[ElKurgan]]

También podrías hacer algo como esto:

Código Delphi [-]
 
var
  i: Integer;
  Cadena: String;
begin
  Memo1.Lines.Clear;
  QrProducto.First;
  While not QrProducto.Eof do
  begin
    Cadena := '';
    for i := 0 to QrProducto.FieldCount - 1 do
      Cadena := Cadena + QrProducto.Fields[i].AsString + ' - ';
    Memo1.Lines.Add(Cadena);
    QrProducto.Next;
  end;
end;

Un saludo

[oktubre]

gracias amigos, ya mismo estoy probando las dos opciones,
evidentemente me falta leer mucha documentación sobre lo que ocurre con un Tquery ya que puedo imaginarme que es lo que sucede con el tquery.next y tquery.first pero no estoy seguro del significado de tquery.eof
si tienen algún manual de referencia que incluya una descripción completa de tquery se los voy a agradecer, por lo pronto pruebo eso y sigo buscando en google mas info al respecto.
gracias a los dos.

[[oscarac]]

TQuery.EOF

E nd
O f
F ile

significa Fin de Archivo

[oktubre]

amigos, he probado los codigos y tengo problemas con los strings.
el famoso "invalid variant type conversion" me persigue!!!

usando

Código Delphi [-]
While Tquery1.Eof = False Do
Begin
        Memo1.Lines.Add(Concat(Tquery1['Campo1'],' ',Tquery1['Campo2'],' - ',Tquery1['Campo3']);
        Tquery1.Next;
End;

me da ese error. ya corregí el faltante de un paréntesis que termine el concat y da igual el error.
les copio lo que me funcionó pero me parece un parche medio pedorro.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
LaLinea, Cantidad, Articulo, Precio : string ;
begin
 {*
  SELECT Cantidad, Articulo, Precio FROM DETALLE WHERE Idfactura = 33

 While Tquery1.Eof = False Do
Begin
        Memo1.Lines.Add(Concat(Tquery1['Campo1'],' ',Tquery1['Campo2'],' - ',Tquery1['Campo3']);
        Tquery1.Next;
End;

 *}

  while  Query1.Eof = False do
  begin
 Cantidad := Query1['Cantidad']      ;
 Articulo :=  Query1['Articulo']      ;
 Precio :=   Query1['Precio']          ;


 LaLinea :=  Cantidad +' # '+ Articulo + '          $'  + Precio;
  Memo1.Lines.Add(LaLinea) ;
  Query1.Next ;
  end;

uso delphi 6 y tablas paradox 7

[ecfisa]

Hola oktubre.

amigos, he probado los codigos y tengo problemas con los strings.
el famoso "invalid variant type conversion" me persigue!!!

El problema es que estas accediendo a los campos mediante la propiedad vectorial por omisión FieldValues, y esta es de tipo Variant.

Es incorrecto hacer:

Código Delphi [-]
  Concat(Tquery1['Campo1'],' ',Tquery1['Campo2'],' - ',Tquery1['Campo3']);

Lo correcto sería:

Código Delphi [-]
  Concat(VarToStr(Tquery1['Campo1']),' ',VarToStr(Tquery1['Campo2']),' - ',VarToStr(Tquery1['Campo3']));

Algo así tendría que funcionarte: ( Como también la propuesta de ElKurgan )

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT CANTIDAD,ARTICULO,PRECIO FROM DETALLE');
  Query1.SQL.Add('WHERE IDFACTURA = 33');
  Query1.Open;
  while not Query1.Eof do
  begin
    Memo1.Lines.Add(Query1.FieldByName('CANTIDAD').AsString)+' # '+
                    Query1.FieldByName('ARTICULO').AsString+'          $'+
                    Query1.FieldByName('PRECIO').AsString);
    Query1.Next;
  end;
  Query1.Close;
end;

Otra opción (la más símple) es crear los campos persistentes en el Query y trabajar con ellos.

Pero a todo esto yo veo un problema más difícil de solucionar. El TMemo no está diseñado para trabajar con columnas y tabular los resultados de forma correcta es un rompedero de cabeza. No sirve por ejemplo usar StringOfChar para tratar de ajustar con espacios los campos ya que la diferencia en píxeles de los caracteres no permiten el correcto espaciado.

Sé que pusiste:

pero no quiero usar un DBgrid, quiero generar una línea para ser agregada en un memo

Pero me parece que es mucho más simple usar un TDBGrid creando las columnas con el editor de columnas y poner esto en el evento OnShow del TForm:

Código Delphi [-]
DBGrid1.Options:= [dgTitles];

Saludos.

[abelg]

Mira la solución que te dio ElKurgan, es la más correcta pues ahi ni los nombres de cada campo son necesarios, los recorre con un (for) y con un (while) recorre los registros.
saludos

[oktubre]

antes que nada muchas gracias a todos.

ecfisa: entiendo perfectamente lo de romperme la cabeza intentando acomodar los resultados en un tmemo. he hecho un poco de todo, he contabilizado la longitud del registro al que le ajusto con espacios, y varias otras alternativas como completar los registros al almacenarlos con espacios y esas bobadas.
tal como me decías: "un rompedero de cabeza".

no es de ganas de romperme la cabeza que lo he hecho, sucede que estoy intentando armar un sistema que trabaje tan ágil como una maquina registradora y no que parezca el clasico wizard de formularios.

estoy complicado por donde lo miro, tengo que enviar los datos de renglon por renglon a una impresora fiscal rs232 y eso tambien me quita el sueño. cada linea que tengo que enviar a la placa fiscal la debo intercalar con el armado de lo que veo en pantalla para orientar al operador de la caja. y me he encontrado con todo tipo de problemas.

desde ya muchas gracias a todos, voy a armarlo con dbgrid y que dios y el foro me ayude... jjaja

saludos,
esteban

[ecfisa]

Hola Esteban.

Yo te sugerí lo del DBGrid a fin de mostrarlo en pantalla, pero para armar los renglones perfectamente podés usar TStrings en lugar del Memo. De ese modo lo trabajas como texto y no tenés los problemas de ajuste como en pantalla.
Es decir, mostras en pantalla con el DBGrid pero internamente mandás los datos a la impresora fiscal mediante el Tstrings.

Como ejemplo, reemplazá al Memo en cualquiera de los códigos que te haya funcionado por:

Código Delphi [-]
...
var
 TS: TStrings;
begin
  TS:= TStringList.Create;
  try
    ....
    // Ajustar los espacios en los campos a imprimir ( en este ejemplo lleno con espacios delante de los campos )
    Query1Cantidad.AsString:= Query1Cantidad.AsString + StringOfChar(' ',6-Length(Query1Cantidad.AsString)); 
    Query1Articulo.AsString:= Query1Articulo.AsString + StringOfChar(' ',40-Length(Query1Articulo.AsString));
    Query1Precio.AsString:= Query1Precio.AsString + StringOfChar(' ',15-Length(Query1Precio.AsString));
    ...
    // aca cargas las lineas como lo hacías en el Memo
    Ts.Add(Query1Cantidad.AsString+Query1Articulo.AsString+Query1Precio.AsString); 
    ...
    // mandar a imprimir
  finally
    TS.Free;
  end;
end;

(Quizá encuentres algún error, no tengo Delphi en este equipo )

Saludos.