Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
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 29-11-2006
vero_17jm vero_17jm is offline
Registrado
 
Registrado: nov 2006
Posts: 7
Poder: 0
vero_17jm Va por buen camino
urgente problemas con insert into y datos de dipo date

hola tenga la tabla e_pedido conlso campos cve_pd de tipo alfabetico cve_pr de tipo alfabetico t Fecha_p de tipo date el codigo es el sig.

query2.SQL.Clear;
query2.SQL.Add('insert into e_pedido (Cve_Pd,Cve_Pr,Fecha_P)VALUES('+
''''+MaskEdit3.Text+''''+','+
''''+MaskEdit1.Text+''''+','+
DateToStr(DateTimePicker1.date)+')');
ShowMessage(Query2.Sql.Text);
query2.ExecSQL;

pero me marca un error de tipos me podrian explicar como es la sintaxis para los datos de tipo date
Responder Con Cita
  #2  
Antiguo 29-11-2006
Avatar de Héctor Randolph
[Héctor Randolph] Héctor Randolph is offline
Miembro Premium
 
Registrado: dic 2004
Posts: 882
Poder: 20
Héctor Randolph Va por buen camino
Sugerencia

Hola vero_17jm

Tal vez convenga más en este caso utilizar parámetros

Código Delphi [-]
query2.SQL.Clear;
query2.SQL.Add('insert into e_pedido (Cve_Pd,Cve_Pr,Fecha_P) VALUES(:Texto1, :Texto2,:Fecha1)'
query2.ParamByName('Texto1').AsString:=MaskEdit3.Text;
query2.ParamByName('Texto2').AsString:=MaskEdit1.Text;
query2.ParamByName('Fecha1').AsDateTime:=DateTimePicker1.date;
query2.ExecSQL;

Para indicar que se trata de parámetros colocas el símbolo : (dos puntos) antes del nombre.

Saludos.

P.D. No es necesario poner la palabra urgente en todos tus mensajes, por favor lee la guía de estilo
Responder Con Cita
  #3  
Antiguo 29-11-2006
Avatar de ElDioni
[ElDioni] ElDioni is offline
Miembro Premium
 
Registrado: jul 2005
Ubicación: Murcia (España)
Posts: 935
Poder: 19
ElDioni Va por buen camino
Código Delphi [-]
query2.SQL.Clear;
query2.SQL.Add('insert into e_pedido (Cve_Pd,Cve_Pr,Fecha_P)VALUES('+
quotedstr(MaskEdit3.Text)+','+
quotedstr(MaskEdit1.Text)+','+
quotedstr(DateToStr(DateTimePicker1.date))+')');
ShowMessage(Query2.Sql.Text);
query2.ExecSQL;
Responder Con Cita
  #4  
Antiguo 29-11-2006
Avatar de Bender
Bender Bender is offline
Registrado
 
Registrado: nov 2005
Ubicación: Orihuela
Posts: 3
Poder: 0
Bender Va por buen camino
Si estas usando SQL Server yo uso una funcion para convertir las fechas
Código Delphi [-]
function MSSQLFormatDate(ADate : TDateTime) : String ;
var
  dd,mm,yy : Word ;
  hh,mn,ss,ms : Word ;
  str : String ;

  dia, mes , ano : String ;
  hora, minuto, segundo, milisegundo : String ;
const
  Comilla = '''' ;
begin

  DecodeDateTime(ADate,yy,mm,dd,hh,mn,ss,ms);

  dia := inttostr(dd);
  mes := inttostr(mm);
  ano := inttostr(yy);
  hora := inttostr(hh);
  minuto := inttostr(mn);
  segundo := inttostr(ss);
  milisegundo := IntToStr(ms) ;

  str := '' +
  ' CONVERT(DATETIME, ' +
  Comilla + dia + '-' + mes + '-' + ano +
  ' ' + hora + ':' + minuto + ':' + segundo + ':' + milisegundo + Comilla +
  ',103)' ;


  Result := str ;

end;

Código Delphi [-]
query2.SQL.Clear;
query2.SQL.Add('insert into e_pedido (Cve_Pd,Cve_Pr,Fecha_P)VALUES('+
quotedstr(MaskEdit3.Text)+','+
quotedstr(MaskEdit1.Text)+','+
MSSQLFormatDate(DateTimePicker1.date)+')');
ShowMessage(Query2.Sql.Text);
query2.ExecSQL;
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
urgente ayuda con insert into vero_17jm SQL 4 28-11-2006 01:33:28
Manejo de datos tipo DATE en RAVE ANG4L Impresión 1 07-05-2006 11:26:42
Urgente..Insert en tablas interbase para delphi....ayuda por favor Aser Firebird e Interbase 6 29-04-2005 03:55:57
Problemas migrando datos de Oracle a Dbf - URGENTE!!! pcondole Conexión con bases de datos 0 20-09-2004 16:45:57
Problemas con Date y Currency en FibPluss nefy Firebird e Interbase 2 04-08-2004 01:24:05


La franja horaria es GMT +2. Ahora son las 10:50:26.


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