![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Buenas.
Lo que tienes que hacer es cambiar el formato de la fecha a la americana, intenta declarar el tipo de formato de fecha a tipo americano y luego a convertir la fecha. A parte, intenta ingresar el campo de fecha como una cadena y no como tipo AsDate, ya que así te ahorrarás muchos problemas.:
A parte, como dice [egostar], te falta de poner la definición de los campos de la tabla. Yo mejor pondría toda la sintaxis en el comando de SQL y olvidarse del "ParamByName" ![]() Última edición por matabyte fecha: 09-06-2008 a las 05:16:10. |
#2
|
|||
|
|||
voy a implementar sus consejos
Hola muchachos bueno ahora mismo voy a probar lo que me aconsejaron si no funciona les comento y si funciona tmb les voy a decir
![]() |
#3
|
|||
|
|||
![]() Bueno muchachos como soy novato no entiendo cuando me dicen q declare esto shortdateformat:='yyyy/mm/dd'; en donde lo hago?
Código:
unit Ualta_socio; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ComCtrls,Umodulo; type Talta_socios = class(TForm) id_socio: TLabel; ingreso: TLabel; nombre: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; ed_dni: TEdit; ed_id: TEdit; ed_nombre: TEdit; ed_domicilio: TEdit; ed_telefono: TEdit; ed_movil: TEdit; ed_cuota: TEdit; ed_mail: TEdit; ed_peso: TEdit; ed_observaciones: TEdit; bregistrar: TBitBtn; bmodificar: TBitBtn; beliminar: TBitBtn; bsalir: TBitBtn; StaticText1: TStaticText; Label3: TLabel; Label14: TLabel; ed_estado: TComboBox; ed_ingreso: TEdit; ed_nacimiento: TEdit; fechaing: TDateTimePicker; procedure bsalirClick(Sender: TObject); procedure preparo_altas_socios; procedure bregistrarClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var alta_socios: Talta_socios; implementation {$R *.dfm} procedure Talta_socios.bsalirClick(Sender: TObject); begin close; end; procedure talta_socios.preparo_altas_socios; begin dm.consulta.Close; dm.consulta.SQL.Clear; dm.consulta.SQL.Add('insert into socios values(:id_socio,:ingreso,:nombre,:nacimiento,:dni,:domicilio,:telefono,:movil,:mail,:estado,:peso,:cuota,:observaciones)'); dm.consulta.ParamByName('id_socio').AsInteger:= strtoint(ed_id.Text); dm.consulta.ParamByName('ingreso').AsString:=DateToStr(fechaing.Date); dm.consulta.ParamByName('nombre').AsString:=ed_nombre.Text; dm.consulta.ParamByName('nacimiento').Asstring:='2008/05/29'; dm.consulta.ParamByName('dni').AsInteger:=strtoint(ed_dni.Text); dm.consulta.ParamByName('domicilio').AsString:=ed_domicilio.Text; dm.consulta.ParamByName('telefono').AsInteger:=strtoint(ed_telefono.Text); dm.consulta.ParamByName('movil').AsInteger:=strtoint(ed_movil.Text); dm.consulta.ParamByName('mail').AsString:=ed_mail.Text; dm.consulta.ParamByName('estado').AsString:=ed_estado.Text; dm.consulta.ParamByName('peso').AsString:=ed_peso.Text; dm.consulta.ParamByName('cuota').AsFloat:=strtofloat(ed_cuota.Text); dm.consulta.ParamByName('observaciones').AsString:=ed_observaciones.Text; end; procedure Talta_socios.bregistrarClick(Sender: TObject); begin if application.MessageBox('Se agregara el siguiente registro a la base de datos ¿Esta seguro?','Alerta',MB_ICONEXCLAMATION+MB_OKCANCEL)=MROK then begin preparo_altas_socios; dm.consulta.ExecSQL; showmessage('Se guardaron los datos con exito'); ed_id.Text:=''; ed_ingreso.Text:=''; ed_nombre.Text:=''; ed_nacimiento.Text:=''; ed_dni.Text:=''; ed_domicilio.Text:=''; ed_telefono.Text:=''; ed_movil.Text:=''; ed_mail.Text:=''; ed_estado.Text:=''; ed_cuota.Text:=''; ed_observaciones.Text:=''; end else alta_socios.ModalResult:=mrnone; end; end. |
#4
|
||||
|
||||
Pues el shortdateformat es una variable del sistema que puedes modificar para cambiar el formato de la fecha (para todos los tipos Tdatetime). Usando esta cadena haces que la fecha sea mostrada en año/mes/día (la fecha americana). Probablemente tu sistema tiene por defecto la fecha de tu país día/mes/año (Delphi utiliza por defecto la de windows).
Por este código antes de poner la fecha y si luego quieres utilizar la tuya, puedes restaurarla a la original de esta forma:
|
#5
|
||||
|
||||
Hola calistian, sin la definición de los campos debería funcionar, claro que si quieres lo pones, yo lo hago de esta forma para mysql y me funciona.
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
|
|||
|
|||
La verdad es que cada cual lo hace como quiere por eso me gusta la computación siempre hay muchas variantes el problema es encontrar la mas optimas, en mi caso para la entrada de fechas siempre uso los TDateTimePicker y le dejo a delphi como pase los parametros
ejemplo:
y en caso que tenga que usarlo en cadena uso el formato añomesdia
|
#7
|
|||
|
|||
Problema solucionado
hola gente buena ya pude solucionar mi problema y aclarar todas mis dudas gracias a ustedes aplique la idea de matabyte, la de caro ,y probe en otro proyecto la de santi33a y si me funcionaron desde ya muchas gracias, si tengo otra duda voy a pasar por aqui !!
saludos, garcias ![]() |
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Ayuda por favor... | BuRtOn | Varios | 62 | 07-03-2008 03:21:25 |
AYUDA por favor!!! | Melcv | Varios | 2 | 28-06-2006 21:19:35 |
Ayuda por favor | yusnerqui | Internet | 8 | 23-04-2004 09:26:43 |
ayuda por favor | haffo | Varios | 6 | 23-10-2003 03:50:33 |
Ayuda por favor | jtellof | Conexión con bases de datos | 4 | 08-09-2003 21:56:24 |
![]() |
|