Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-01-2007
jeysi jeysi is offline
Registrado
 
Registrado: dic 2006
Posts: 7
Poder: 0
jeysi Va por buen camino
Talking Consulta para un reporte

hola a todos!!!

Estoy un pequeño problema y ojala me pudieran dar algún consejo para solucionarlo, describiré cual es mi situación.....
Tengo una base de datos en Access, la cual contiene las siguientes tablas

prestamos: con los campos folioPrestamo, claveAlumno, folioEquipo, claveMaestro y fecha

la otra tabla se llama equipo: con los campos id_equipo, nombre y marca

Tengo que hacer un reporte que me muestre el nombre del equipo, y la fecha en que se realizó el préstamo, esto es de acuerdo a las fechas que introduce el usurio (fecha de inicio y fecha final).

En si mi problema es que no se como hacer la consulta para que me pueda mostrar esos datos ya que necesito relacionar las dos tablas

Intente hacer lo siguiente, pero no me funcionó


Código Delphi [-]
procedure TrepPres.consultas();
begin
moduloDatos.ADOQuery1.Close;
moduloDatos.ADOQuery1.Parameters.AddParameter.Name:='f1';
moduloDatos.ADOQuery1.Parameters.AddParameter.Name:='f2';
moduloDatos.ADOQuery1.Parameters.ParamByName('f1').Value:=fi;
moduloDatos.ADOQuery1.Parameters.ParamByName('f2').Value :=ff;
moduloDatos.ADOQuery1.SQL.Text:='Select equipo.nombre from (select * from prestamos where (fecha >=:f1)AND (fecha<=:f2)) equipo where equipo.id=Id_equipo order by nombre';
moduloDatos.ADOQuery1.Active:=true;
moduloDatos.ADOQuery1.ExecSQL;
moduloDatos.ADOQuery1.Open;
reporPrestamos.QRDBText1.DataSet:=moduloDatos.ADOQuery1;
reporPrestamos.QRDBText2.DataSet:=moduloDatos.ADOQuery1;
reporPrestamos.QRDBText3.DataSet:=moduloDatos.ADOQuery1;
reporPrestamos.QRDBText1.DataField:='folioe';
reporPrestamos.QRDBText2.DataField:='fecha';
reporPrestamos.QRDBText3.DataField:='hdevolucion';
reporPrestamos.Preview;
end;





Les agradeceré mucho su ayuda... Gracias
Responder Con Cita
 



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
Problemas para visualizar un Reporte con QuickReport Rubas_27 Impresión 3 26-05-2006 11:56:55
¿Como le hago para imprimir una x en un reporte? Nelly Varios 1 17-04-2006 18:57:03
reporte para un recibo de sueldo ariadna Impresión 1 20-09-2005 03:12:44
reporte, para mi complejo, en rave gustavoh Impresión 4 24-07-2005 20:26:42
Combinar tablas para un Reporte silviodp Conexión con bases de datos 16 21-04-2004 13:39:08


La franja horaria es GMT +2. Ahora son las 15:18:59.


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