Trabajar con fechas
Tengo un cuadro de texto donde en las propiedades en el value le puse =Date() para ingresar fechas ahora, esta fecha la tengo que mandar a una base pero en algún lado me estoy equivocando te muestro el código.
xfecha = thisform.text1.value
STORE SQLCONNECT('matias', 'sigedoc','sigedoc') TO gnConnHandle
IF gnConnHandle <= 0
= MESSAGEBOX('No se puede conectar', 16, 'Error de conexión SQL')
ELSE
SQLEXEC(gnConnHandle, "INSERT INTO dbo.visor (fecha,);
VALUES (&xfecha)")
Sqldisconnect(gnConnHandle)
Use
Endif
Esto no me esta mandando nada coloque el depurador y en la variable xfecha me muestra {12/01/2009}
Me podrías guiar como trabajar con fecha e exportar dicha fecha a una tabla sql para que se guarde, desde ya, muchas gracias.
xfecha = thisform.text1.value
STORE SQLCONNECT('matias', 'sigedoc','sigedoc') TO gnConnHandle
IF gnConnHandle <= 0
= MESSAGEBOX('No se puede conectar', 16, 'Error de conexión SQL')
ELSE
SQLEXEC(gnConnHandle, "INSERT INTO dbo.visor (fecha,);
VALUES (&xfecha)")
Sqldisconnect(gnConnHandle)
Use
Endif
Esto no me esta mandando nada coloque el depurador y en la variable xfecha me muestra {12/01/2009}
Me podrías guiar como trabajar con fecha e exportar dicha fecha a una tabla sql para que se guarde, desde ya, muchas gracias.
2 respuestas
Respuesta de Cesar Enrique Yamunaque Baca
1
Aparentemente lo que esta de más es la "," después de fecha y "&"
Ya que tu campo xFecha contiene la información del texto del formulario,
prueba el nuevo código a ver que sucede
Saludos
xfecha = thisform.text1.value
STORE SQLCONNECT('matias', 'sigedoc','sigedoc') TO gnConnHandle
IF gnConnHandle <= 0
= MESSAGEBOX('No se puede conectar', 16, 'Error de conexión SQL')
ELSE
SQLEXEC(gnConnHandle, "INSERT INTO dbo.visor (fecha);
VALUES (xfecha)")
sqldisconnect(gnConnHandle)
use
ENDIF
Ya que tu campo xFecha contiene la información del texto del formulario,
prueba el nuevo código a ver que sucede
Saludos
xfecha = thisform.text1.value
STORE SQLCONNECT('matias', 'sigedoc','sigedoc') TO gnConnHandle
IF gnConnHandle <= 0
= MESSAGEBOX('No se puede conectar', 16, 'Error de conexión SQL')
ELSE
SQLEXEC(gnConnHandle, "INSERT INTO dbo.visor (fecha);
VALUES (xfecha)")
sqldisconnect(gnConnHandle)
use
ENDIF
Respuesta de freangu
1
debes inicializar la variable xfecha de la siguiente manera;
Xfecha = ctod('') esto convierte de carácter a fecha
ahora trata quitándole el ampersar solo deja en la sql values(xfecha)
Sino resulta revisa en que formato esta tu campo en la base de datos dd/mm/yy, yy/mm/dd y así
para eso debes utilizat la función transform
Xfecha = ctod('') esto convierte de carácter a fecha
ahora trata quitándole el ampersar solo deja en la sql values(xfecha)
Sino resulta revisa en que formato esta tu campo en la base de datos dd/mm/yy, yy/mm/dd y así
para eso debes utilizat la función transform