Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 16-11-2007
federico1 federico1 is offline
Miembro
 
Registrado: nov 2006
Posts: 25
Poder: 0
federico1 Va por buen camino
Almacenar resultado de un sql

buenas tardes mi consulta esta dada ya que en el codigo de delphi tengo un sql

Código Delphi [-]
DMKIOSCO.QRTODASXDIA.SQL.Add ('SELECT SUM((precio_publico - precio_costo)* cantidad), SECTOR');
DMKIOSCO.QRTODASXDIA.SQL.Add('FROM VENTA');
DMKIOSCO.QRTODASXDIA.SQL.Add('WHERE FECHA between :vFechaDesde and :vFechaHasta and (sector = "GOLOSINAS" OR sector = "CIGARRILLOS")');
DMKIOSCO.QRTODASXDIA.SQL.Add('GROUP BY SECTOR');
DMKIOSCO.QRTODASXDIA.Params[0].AsDatetime := vFechaDesde;
DMKIOSCO.QRTODASXDIA.Params[1].AsDatetime := vFechaHasta;
DMKIOSCO.QRTODASXDIA.Active := TRUE;




quiero pasar el resultado del select a un QRDBTEXT o QRLABEL y no se como hacerlo

Alguien me podria dar una mano.
Responder Con Cita
  #2  
Antiguo 16-11-2007
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
Hola
Y no seria algo como esto?
Código Delphi [-]
Qreport1.QRDBTEXT:= DMKIOSCO.QRTODASXDIA.Parambyname(TuCampo).Value;
No se.
Saludos
Responder Con Cita
  #3  
Antiguo 17-11-2007
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Poder: 23
ContraVeneno Va por buen camino
Código Delphi [-]
with DMKIOSCO.QRTODASXDIA do begin
 IF Active then Close;
 SQL.Clear;
 SQL.Add ('SELECT SUM((precio_publico  - precio_costo)* cantidad) as Cantidad,SECTOR');
 SQL.Add('FROM VENTA');
 SQL.Add('WHERE FECHA between :vFechaDesde and :vFechaHasta');
 SQL.Add('and (sector = "GOLOSINAS" OR sector = "CIGARRILLOS")');
 SQL.Add('GROUP BY SECTOR');
 Params[0].AsDatetime   := vFechaDesde;
 Params[1].AsDatetime   := vFechaHasta;
 Open;
 UnValidateEdit.AsCurrency := FieldByName('Cantidad').AsCurrency; 
 //O tambien:
 UnEdit.AsString := FieldByName('cantidad').AsString;

 ...
end;  //with
__________________

Responder Con Cita
  #4  
Antiguo 17-11-2007
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 28
Lepe Va por buen camino
¿Por qué un QRLabel o QRDBText?

Esos componentes son de QuickReports, para realizar un informe (impreso en papel).

Si quieres poner el resultado en un Form, debes usar un DBEdit.

Aclara ese detalle porque no tiene que ver una cosa con otra.

Edito: Tiene toda la pinta de ser un QuickReport.

Añades el QRDBText a la banda que corresponde, Establece sus propiedades:
Dataset el QRTODASXDIA
Field (solo te dejará elegir el campo suma)

La consulta de sql, la puedes establecer en tiempo de diseño en el QRTODASXDIA.sql y así solo tienes que pasarle las fechas y abrir la consulta, no es necesario usar sql.Add

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.

Última edición por Lepe fecha: 17-11-2007 a las 14:24:58.
Responder Con Cita
  #5  
Antiguo 17-11-2007
federico1 federico1 is offline
Miembro
 
Registrado: nov 2006
Posts: 25
Poder: 0
federico1 Va por buen camino
gracias gente anduvo de 10
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Almacenar un Qreport en una BD salvanano Conexión con bases de datos 0 11-10-2006 03:14:08
Almacenar un JPG en una BD Interbase 6 robertillo Firebird e Interbase 2 09-05-2006 05:08:13
Almacenar mas de 255 caracteres kloud Firebird e Interbase 1 05-05-2006 09:46:35
Almacenar CheckBox? Leogiro OOP 4 20-09-2004 21:46:05
almacenar datos pepelu1975 OOP 1 12-02-2004 17:25:00


La franja horaria es GMT +2. Ahora son las 16:27:15.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi