Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > MS SQL Server
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 20-10-2014
scigliano scigliano is offline
Miembro
NULL
 
Registrado: ago 2013
Posts: 10
Poder: 0
scigliano Va por buen camino
Unhappy Problema al guardar Fecha+Hora en SQLServer 2005

Hola amigos...
Tengo un formulario para controlar las entradas del Personal, donde solicito al usuario en dos campos TDateTimePicker la Fecha de Entrada y la Hora de Entrada. Mi intención es guardar estos dos datos (Fecha+Hora) en un solo campo de la Tabla, la cual he definido como DateTime.

Los datos del primer campo son:
Name: DTFechaInicio
Kind: dtkDate
DateFormat: dfShort

Los datos del segundo campo son:
Name: DTHoraInicio
Kind: dtkTime

Y en la Tabla de SQLServer2005 tengo:
Campo: FECHA_INICIO
Tipo de Dato: datetime


En el anexo les envío una imagen de como aparecen en el formulario.

En el botón 'Guardar' tengo la siguiente instrucción:
Código SQL [-]
               
SQL.Text := 'INSERT INTO T_MOV (..., FECHA_INICIO, ... ) '+
                 'Values (..., :PFINICIO, ...) ';
with Parameters do
   begin
      ...
      ParamByName('PFINICIO').Value := ((DTFechaInicio.Date) + (DTHoraInicio.Time)) ;
      ...
   end;

Los valores que coloco en el formulario son:
Fecha: 21/10/2014
Hora:20:30:24

Luego de pulsar el botón 'Guardar' busco los valores que se almacenaron, y me encuentro
09/03/2129 20:55:49

En probado colocar antes de realizar el Insert, la instruccion SET DATEFORMAT DMY, pero no cambia en nada.
Sera que no se puede hacer lo que estoy intentando?
Imágenes Adjuntas
Tipo de Archivo: jpg Captura1.JPG (10,6 KB, 3 visitas)
Responder Con Cita
  #2  
Antiguo 20-10-2014
Avatar de olbeup
olbeup olbeup is offline
Miembro
 
Registrado: jul 2005
Ubicación: Santiago de la Ribera (España)
Posts: 685
Poder: 19
olbeup Va camino a la fama
Hola scigliano,

Cambia esto:
Código SQL [-]
               
SQL.Text := 'INSERT INTO T_MOV (..., FECHA_INICIO, ... ) '+
                 'Values (..., :PFINICIO, ...) ';
with Parameters do
   begin
      ...
      ParamByName('PFINICIO').Value := ((DTFechaInicio.Date) + (DTHoraInicio.Time)) ;
      ...
   end;
Por Esto:
Código SQL [-]
               
SQL.Text := 'INSERT INTO T_MOV (..., FECHA_INICIO, ... ) '+
                 'Values (..., :PFINICIO, ...) ';
with Parameters do
   begin
      ...
      ParamByName('PFINICIO').Value := DateToStr(DTFechaInicio.Date) + ' ' + TimeToStr(DTHoraInicio.Time);
      ...
   end;

No trabajo con parametros, espero que te funcione

Un saludo.
__________________
Al hacer una consulta SQL, haz que los demás te entiendan y disfruten de ella, será tú reflejo de tú saber.
Responder Con Cita
  #3  
Antiguo 20-10-2014
luisgutierrezb luisgutierrezb is offline
Miembro
 
Registrado: oct 2005
Ubicación: México
Posts: 925
Poder: 19
luisgutierrezb Va por buen camino
Prueba con:

Código Delphi [-]
ParamByName('PFINICIO').Value := (Int(DTFechaInicio.Date) + fracc(DTHoraInicio.Time)) ;

La parte entera es el día, y la parte decimal es la hora, aunque pongas que solo el time, te regresa con fecha y se la suma a la otra fecha...
Responder Con Cita
  #4  
Antiguo 20-10-2014
scigliano scigliano is offline
Miembro
NULL
 
Registrado: ago 2013
Posts: 10
Poder: 0
scigliano Va por buen camino
Amigos olbeup y luisgutierrezb

Agradecido con sus soluciones, ambas funcionaron muy bien.
Solo que en el caso de luisgutierrezb, en vez de 'fracc' coloque 'frac' porque daba error al momento de compilar.

Muchas gracias por su colaboracion...
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
guardar fecha y hora lucas05 Varios 7 17-12-2011 21:00:45
Guardar Fecha - Hora - usuario mantraxer21 Varios 4 04-10-2010 18:31:37
Guardar Hora sin fecha nula delphi amerika111 Varios 3 19-01-2010 17:01:43
Problema con formato de fecha y hora SaurioNet MS SQL Server 1 16-06-2006 00:28:28
Problema con Fecha/Hora ... Epunamun API de Windows 5 23-09-2005 02:51:22


La franja horaria es GMT +2. Ahora son las 14:00: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