FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Consulta por fecha query delphi 7
esta consuta me esta ando un error y la base de datos esta en access
este es codigo del query ************* SELECT Cod_Equipos, Equipos, Nombre_Cliente, Descripcion, Marca, Modelo, Serial, Fecha_Inicio, Dat_averia, Status, Fecha_Final FROM "Equipos.db" Equipos WHERE (Fecha_Inicio>= :fecha1) and (Fecha_Inicio <= :fecha2) ************** $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ y en el parametroes tengo estas dos variables 0- fecha1 DATATYPE (FTDATE) Y PARAMETYPE (PTLNPUT) 1- fecha2 DATATYPE (FTDATE) Y PARAMETYPE (PTLNPUT) $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ y en el From tengo este codigo lo que esta en rojo es donde se para el cursol ******************************** unit FConsuFechaEquip; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DBCtrls, Mask, Grids, DBGrids, ExtCtrls, Buttons; type TFConsuEquiFech = class(TForm) SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; SpeedButton4: TSpeedButton; Label2: TLabel; Label3: TLabel; Label5: TLabel; Bevel1: TBevel; Label1: TLabel; Label4: TLabel; Label6: TLabel; DBGrid1: TDBGrid; Desde: TMaskEdit; Hasta: TMaskEdit; DBMemo1: TDBMemo; DBComboBox1: TDBComboBox; DBComboBox2: TDBComboBox; procedure SpeedButton4Click(Sender: TObject); procedure DesdeExit(Sender: TObject); procedure HastaExit(Sender: TObject); procedure FormShow(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var FConsuEquiFech: TFConsuEquiFech; implementation uses login; {$R *.dfm} procedure TFConsuEquiFech.SpeedButton4Click(Sender: TObject); begin Close (); end; procedure TFConsuEquiFech.DesdeExit(Sender: TObject); Var A,B: TDate; begin A:= Strtodate(Desde.text); B:= Strtodate(Hasta.text); if A > B then Begin Showmessage('La Fecha inicial no Puede ser Mayor que la Final'); desde.clear; Activecontrol:= desde; End; end; procedure TFConsuEquiFech.HastaExit(Sender: TObject); Var A,B: TDate; begin A:= Strtodate(Desde.text); B:= Strtodate(Hasta.text); if B < A then Begin Showmessage('La Fecha Final no Puede ser Menor que la Inicial'); Hasta.clear; Activecontrol:= Hasta; End; end; procedure TFConsuEquiFech.FormShow(Sender: TObject); begin desde.Clear; hasta.Text := datetostr(now); Desde.Text := datetostr(now); end; procedure TFConsuEquiFech.SpeedButton1Click(Sender: TObject); begin With ConexionDB do begin QEquiposporFech.active :=false; QEquiposporFech.ParamByName('fecha1').AsDate:=StrToDate(desde.text); QEquiposporFech.ParamByName('fecha2').AsDate:=StrToDate(hasta.text); QEquiposporFech.active :=true; // QEquiposporFech.Dataset := QEquiposporFech; QEquiposporFech := Desde; QEquiposporFech := Hasta; end; end. ******************************* esto son los erroere que manda [Error] FConsuFechaEquip.pas(100): Incompatible types: 'TQuery' and 'TMaskEdit' [Error] FConsuFechaEquip.pas(101): Incompatible types: 'TQuery' and 'TMaskEdit' [Error] FConsuFechaEquip.pas(105): ';' expected but '.' found [Error] FConsuFechaEquip.pas(107): Declaration expected but end of file found [Fatal Error] Facturacion.dpr(21): Could not compile used unit 'FConsuFechaEquip.pas' |
#2
|
||||
|
||||
Hola
Primera observación, usa las etiquetas: Despues de analizarlo con las etiquetas, lo veremos.
Ahora si se ve mejor. Saludos
__________________
Siempre Novato |
#3
|
||||
|
||||
Hola
Bueno, no entiendo. Primero que nada no se por que la fecha la pones en un edit, pudiendo usar un datetimepicker. segundo, nunca va a encontrar desde o hasta destro del query, ese es un error. tercero, para que usar variables a y b para lo mismo. No se, tal vez si me explicas. Saludos
__________________
Siempre Novato |
#4
|
|||
|
|||
no entendi explica mejor
lo de la etiquetas ye entendi pero de lo que me dise del codigo no como puedo resolver este problema
|
#5
|
||||
|
||||
Hola Yenis22, los errores que te marcan es por esta parte.
Le falta el end; del With y no puedes asignar un MaskEdit a un Query, esas dos lineas estan demas. Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
#6
|
|||
|
|||
me manda este error
Este codigo me funciona bien pero con una base de dato en paradox y esque este lo tengo que entregar en acces pero cundo los desabilite la dos opciones que me dijiste que estan de mas me mada este error pero que con esa dos ocpciones es que funciona en paradox perfetamente.
este es el erroe proyect facturacipon.exe raised exception class EDBEngineError with messeger "general SQL Error (Microsoft) (Controlador ODBC Microsoft Access) Formato de fecha u hora no nvalido (null)". Process stopped. use step o run continue. y esta el la pater que se nala en el codigo ( QEquiposporFech.active :=true; )
|
#7
|
||||
|
||||
No es por nada pero ¿por qué escribes comiéndote letras?
Cita:
Cita:
bueno a lo que vamos... estas intentando mandar un formato date y lo que tienes en access es un datetime, ya que un campo fecha sólo como tal no existe en access, por lo menos en la versión que tengo yo instalada(Access 2000) así que es bien sencillo....
Espero que te sirva, cuéntanos como te ha ido.... P.D. Por cierto los parametros los tendrías que cambiar el tipo de ftDate a ftDateTime |
#8
|
|||
|
|||
Realice los cambio
[quote][/Ya realice los cambio, pero no medan resultada si ejecuto la consulta con interbalos de fecha no haces nada no tira ningun mensaje ni datos tampoco, si la ejecuto en planco me tira este error QUOTE]
Cita:
Cita:
|
#9
|
|||
|
|||
Realice los cambio
[quote][/Ya realice los cambio, pero no medan resultada si ejecuto la consulta con interbalos de fecha no haces nada no tira ningun mensaje ni datos tampoco, si la ejecuto en planco me tira este error QUOTE]
Cita:
Cita:
|
#10
|
||||
|
||||
Hola
Empecemos desde el principio: 1- los campos estan mal en la sentencia sql: fecha inicio y fecha final, deberia ser asi:
2- Access reconoce las fechas con esto #fecha#, de lo contrario te da error. Por lo tanto se tiene que dar formato a la fecha: A ver que pasa. Saludos
__________________
Siempre Novato |
#11
|
|||
|
|||
Cita:
Cita:
y de esta forma es la unicaa que me permite activar la la conmsulta pero no me manda ningun resulta cuando lo ejecuto este es el codigo en SQL
Cita:
|
#12
|
||||
|
||||
Hola
Yensis22, no es por ser pesado, pero hay que revisar bien lo que dicen los errores, asi podras saber que esta pasando. Aqui tienes un ejemplo tanto con datetimepicker como con maskedit, los dos funcionan. Saludos
__________________
Siempre Novato Última edición por Caral fecha: 26-08-2008 a las 23:03:34. |
#13
|
|||
|
|||
Cita:
Cita:
|
#14
|
||||
|
||||
Hola
1- Aqui el Novato soy yo. 2- El query no necesita tener nada en la casilla, la sentencia se la doy directamente por codigo. 3- Los parametros se pueden poner por orden (como en el ejemplo) o por Nombre, da igual, cuando es por orden empiezan del 0. Saludos
__________________
Siempre Novato |
#15
|
|||
|
|||
ya lo solucione gracias
|
#16
|
||||
|
||||
Yensis me alegro por la solución de tu problema, pero me ahora me queda la duda ¿Por qué sigues escribiendo así?
Cita:
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Consulta usando query en delphi 7 | Yensis22 | SQL | 3 | 25-08-2008 12:29:55 |
Consulta usando query en delphi 7 | Yensis22 | SQL | 4 | 25-08-2008 07:03:05 |
ayuda con query para Mysql fecha. | vroa74 | Conexión con bases de datos | 11 | 06-06-2008 15:56:00 |
Consulta por fecha en MySQL y Delphi | rodrigodeoz | Conexión con bases de datos | 2 | 17-10-2007 16:47:39 |
Problema con fecha en un Query | Lucas_diaz1810 | Conexión con bases de datos | 7 | 28-11-2006 05:45:31 |
|