Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 13-08-2023
maravert maravert is offline
Miembro
 
Registrado: jul 2004
Ubicación: Xalapa, México
Posts: 167
Poder: 21
maravert Va por buen camino
Argument out of range

Hola a todos:

Estoy trabajando con un TSQLDataset y en su Propiedad CommandText tengo el siguiente código

Código SQL [-]
SELECT * FROM VentasMaestro WHERE Fecha BETWEEN :Fecha1 AND :Fecha2

y en su propiedad Params Tengo 2 parámetros

0 Fecha1 de tipo ftDate
1 Fecha2 de tipo ftDate

Cuando los llamo a consulta con el siguiente código
Código SQL [-]
procedure TfrmCorteporPeriodo.FormShow(Sender: TObject);
   VAR
     Fecha1, Fecha2 : TDate;
     Monto : Real;
   Begin
   Monto := 0;

   
  Fecha1 := DateTimePicker1.Date;
  Fecha2 := DateTimePicker2.Date;
   Periodo.DataSet.Close;
 

   TClientDataSet(Periodo.DataSet).Params[0].AsDateTime :=  Fecha1;
  
   TClientDataSet(Periodo.DataSet).Params[1].AsDateTime :=  Fecha2;


  Periodo.DataSet.Open;


El Error aparece al llegar al siguiente código

Código SQL [-]
 TClientDataSet(Periodo.DataSet).Params[1].AsDateTime :=  Fecha2;
Argument out of range

Estoy utilizando MYSQL

Muchas gracias
Responder Con Cita
  #2  
Antiguo 13-08-2023
maravert maravert is offline
Miembro
 
Registrado: jul 2004
Ubicación: Xalapa, México
Posts: 167
Poder: 21
maravert Va por buen camino
Solucionado

Les comento que ta lo solucioné, pero se los dejo por si a alguno le sirve


En lugar de utilizar


TClient
Código SQL [-]
DataSet(Periodo.DataSet).Params[0].AsDateTime :=  F1;
 
 TClientDataSet(Periodo.DataSet).Params[1].AsDateTime :=  F2;

Use lo siguiente y todo listo


Código SQL [-]
  TclientDataset (Periodo.Dataset).ParamByName('Fecha1').Value := F1;  // Asigna la fecha de inicio
   TClientDataset (Periodo.DataSet).ParamByName('Fecha2').Value := F2;  // Asigna la fecha de fin
Responder Con Cita
  #3  
Antiguo 14-08-2023
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Responder Con Cita
  #4  
Antiguo 14-08-2023
Avatar de pgranados
pgranados pgranados is offline
Miembro
 
Registrado: sep 2022
Ubicación: México
Posts: 297
Poder: 3
pgranados Va por buen camino
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
FMX ListView. Error: "Argument out of Range" RebeccaGL Desarrollo en Delphi para Android 3 19-07-2023 09:09:45
error Ungültiges Argument zum Codieren des Datums alexglez1255 Conexión con bases de datos 18 10-08-2017 16:49:21
argument out of range LACV FireMonkey 7 05-11-2015 23:55:16
como solucionar Invalid argument supplied for foreach() eli02 PHP 1 26-07-2012 20:28:29
Invalid argument xerkan OOP 0 19-06-2008 18:44:04


La franja horaria es GMT +2. Ahora son las 01:11:34.


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