Manejo de Fechas con ADO + SQL + XHarbour + FW

Manejo de Fechas con ADO + SQL + XHarbour + FW

Postby Joel Andujo » Fri Jan 20, 2006 7:03 pm

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
User avatar
Joel Andujo
 
Posts: 131
Joined: Fri Oct 07, 2005 3:14 pm
Location: Cd. Obregón, Sonora, México

Re: Manejo de Fechas con ADO + SQL + XHarbour + FW

Postby wmormar » Sat Jan 21, 2006 3:49 am

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
William, Morales
Saludos

méxico.sureste
User avatar
wmormar
 
Posts: 1074
Joined: Fri Oct 07, 2005 10:41 pm
Location: México

Postby Joel Andujo » Sat Jan 21, 2006 4:09 pm

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]
User avatar
Joel Andujo
 
Posts: 131
Joined: Fri Oct 07, 2005 3:14 pm
Location: Cd. Obregón, Sonora, México

Postby R.F. » Sat Jan 21, 2006 6:33 pm

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 ?
Saludos
R.F.
R.F.
 
Posts: 840
Joined: Thu Oct 13, 2005 7:05 pm

Postby wmormar » Sat Jan 21, 2006 8:22 pm

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 := " / / "
William, Morales
Saludos

méxico.sureste
User avatar
wmormar
 
Posts: 1074
Joined: Fri Oct 07, 2005 10:41 pm
Location: México

Postby Joel Andujo » Mon Jan 23, 2006 5:24 pm

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
User avatar
Joel Andujo
 
Posts: 131
Joined: Fri Oct 07, 2005 3:14 pm
Location: Cd. Obregón, Sonora, México

Postby jlcapel » Thu Jan 26, 2006 7:16 pm

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
User avatar
jlcapel
 
Posts: 229
Joined: Wed Oct 12, 2005 5:32 pm
Location: Valencia - España

Postby Joel Andujo » Thu Jan 26, 2006 7:28 pm

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
User avatar
Joel Andujo
 
Posts: 131
Joined: Fri Oct 07, 2005 3:14 pm
Location: Cd. Obregón, Sonora, México

Postby jlcapel » Sun Jan 29, 2006 6:50 pm

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
User avatar
jlcapel
 
Posts: 229
Joined: Wed Oct 12, 2005 5:32 pm
Location: Valencia - España

Postby R.F. » Mon Jan 30, 2006 12:49 am

Jose Luis:

NIL o NULL ??? (no es lo mismo)
Saludos
R.F.
R.F.
 
Posts: 840
Joined: Thu Oct 13, 2005 7:05 pm

Postby jlcapel » Mon Jan 30, 2006 9:50 am

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
User avatar
jlcapel
 
Posts: 229
Joined: Wed Oct 12, 2005 5:32 pm
Location: Valencia - España

Postby Joel Andujo » Mon Jan 30, 2006 4:22 pm

Gracias, probare y ya les cuento

Saludos
Joel Andujo
User avatar
Joel Andujo
 
Posts: 131
Joined: Fri Oct 07, 2005 3:14 pm
Location: Cd. Obregón, Sonora, México


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 34 guests