Page 1 of 1
Manejo de Fechas con ADO + SQL + XHarbour + FW
Posted: Fri Jan 20, 2006 7:03 pm
by Joel Andujo
Foro buenos dias, solicitando de su ayuda, se trata de esto
Esto y utilizando SQL via ADO de xHarbour, pero tengo un detalle
con el manejo de fechas, al momento de remplazar una fecha vacia :
dFecha:=ctod('')
::oRs:Fields('Fecha'):Value:=dFecha
esto me produce el siguiente error :
ADODB.Recordset:Fields/9 la operación en varios pasos genera errores.
Compruebe los valores....
TOleAuto:_Value(0)
¿ Como se reemplaza un valor vacio en un campo Fecha ?
Saludos y gracias de nuevo
Joel Andujo
Re: Manejo de Fechas con ADO + SQL + XHarbour + FW
Posted: Sat Jan 21, 2006 3:49 am
by wmormar
Lo haria de la siguiente manera.
cFecha := DTOC(date())
::oRs:Fields('Fecha'):Value := cFecha
Así me funciona.
Saludos
Joel Andujo wrote:Foro buenos dias, solicitando de su ayuda, se trata de esto
Esto y utilizando SQL via ADO de xHarbour, pero tengo un detalle
con el manejo de fechas, al momento de remplazar una fecha vacia :
dFecha:=ctod('')
::oRs:Fields('Fecha'):Value:=dFecha
esto me produce el siguiente error :
ADODB.Recordset:Fields/9 la operación en varios pasos genera errores.
Compruebe los valores....
TOleAuto:_Value(0)
¿ Como se reemplaza un valor vacio en un campo Fecha ?
Saludos y gracias de nuevo
Joel Andujo
Posted: Sat Jan 21, 2006 4:09 pm
by Joel Andujo
Willian gracias por contestar, asi si funciona pero la idea es
guardar una fecha vacia. Por Ejemplo :
cFecha := ' / / '
::oRs:Fields('Fecha'):Value := cFecha
como guardo una fecha vacia ?
ahi es cuando se genera el error
Saludos
Joel Andujo
[/url]
Posted: Sat Jan 21, 2006 6:33 pm
by R.F.
Joel Andujo wrote:
como guardo una fecha vacia ?
Algo que me viene a la cabeza en este momento:
dFecha := CTOD(" / / ")
cFecha := DTOC(dFecha)
¿ Sera que es sabado que pretendo matar pulgas a cañonazos ?
Posted: Sat Jan 21, 2006 8:22 pm
by wmormar
RF wrote:Joel Andujo wrote:
Algo que me viene a la cabeza en este momento:
dFecha := CTOD(" / / ")
cFecha := DTOC(dFecha)
¿ Sera que es sabado que pretendo matar pulgas a cañonazos ?
cFecha := " / / "
Posted: Mon Jan 23, 2006 5:24 pm
by Joel Andujo
Sr. gracias por sus cañonazos, pero no me funciona, esta muy curiosa la cosa, no puedo almacenar una fecha vacia via ADO.
He probado :
a) ::oRs:Fields(uNameField):Value:=' / / '
b) ::oRs:Fields(uNameField):Value:=ctod(' / / ')
::oRs:Fields(uNameField):Value:=ctod(' ')
c) ::oRs:Fields(uNameField):Value:='NULL'
d) ::oRs:Fields(uNameField):Value:=NIL
e) dFec:=ctod(' / / ')
::oRs:Fields(uNameField):Value:=dFec
y no se deja me marca el error : ADODB.RecordSet:Fields/9. LaOperación
en varios parsos generá errores. Compruebe los valores.... TOLEAUTO:_Value(0)
Un cable por favor
Sauldos
Joel Andujo
Posted: Thu Jan 26, 2006 7:16 pm
by jlcapel
Joel,
Danos un poco más de información... Cual versión de (x)harbour y Fwh usas, y contra cual base de datos te conectas y a través de qué (oledb, odbc).
Saludos,
José Luis Capel
Posted: Thu Jan 26, 2006 7:28 pm
by Joel Andujo
Utilizo xHarbour Build 0.99.50 SimpLex, FW24H, MS-SQL el campo al
que estoy afectado es un tipo smalldatetime, esto es via ADO estoy utilizando las clases que pusiste de ejemplo en Tu blog. (Por cierto excelentes ejemplos)
Gracias y agradecido
Joel Andujo
Posted: Sun Jan 29, 2006 6:50 pm
by jlcapel
Joel,
Acabo de comprobar que para indicar una fecha en blanco has de poner el valor NIL al campo fecha.
No obstante has de tener en consideración lo siguiente:
- Si em Ms-Sql tienes un valor por defecto para ese campo, al actualizar, si el valor es NIL, Ms-Sql lo cambiará al valor por defecto
- La versión que utilices de xHarbour puede que esté desactualizada. Sería conveniente que utilizaras la última versión disponible. Si no puedes actualizarte todo el el xharbour, prueba a bajarte el fichero win32ole.prg desde el CVS y añadirlo a tu proyecto (no lo he probado).
Espero haberte sido de ayuda.
Saludos,
José Luis Capel
Posted: Mon Jan 30, 2006 12:49 am
by R.F.
Jose Luis:
NIL o NULL ??? (no es lo mismo)
Posted: Mon Jan 30, 2006 9:50 am
by jlcapel
René,
NIL o NULL ??? (no es lo mismo)
En el contexto de la conversación se entiende que NIL dado que NULL en xHarbour no existe.
Saludos,
José Luis Capel
Posted: Mon Jan 30, 2006 4:22 pm
by Joel Andujo
Gracias, probare y ya les cuento
Saludos
Joel Andujo