FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Fechas con ADO
fgondi
Posts: 694
Joined: Fri Oct 07, 2005 06:58 AM

Fechas con ADO

Posted: Fri Nov 18, 2011 05:07 PM
He actualizado la versi贸n de xharbour con la 煤ltima que pone a disposici贸n FiveTech
http://code.google.com/p/harbour-and-xharbour-builds/downloads/list
xharbour_20111114.zip

Con esta versi贸n cada vez que obtengo un recordset (conectandome a ADS) con campos fechas, estas las devuelve en formato timestamp.

Sin embargo si vuelvo a la versi贸n que tengo anterior, "xharbour_1.2.1_6714", funciona correctamente

Code (fw): Select all Collapse
oRcs := CreateObject("ADODB.recordset")
oRcs:Open("Select Fecha from Pedido", oAdoConexion)
? oRcs:fields("Fecha"):Value

Esto deber铆a devolver por ejemplo 18/11/2011 y sin embargo devuelve 18/11/2011 0:00:00.
Un saludo

Fernando Gonz谩lez Diez

ALSIS Sistemas Inform谩ticos
fgondi
Posts: 694
Joined: Fri Oct 07, 2005 06:58 AM

Re: Fechas con ADO

Posted: Sat Nov 19, 2011 07:27 PM
En este ejemplo:
Code (fw): Select all Collapse
聽 oAdoConexion := Createobject("adodb.connection")
聽 oAdoConexion:Mode := adModeRead 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽// Conectamos en Solo Lectura
聽 oAdoConexion:Provider = "Advantage.OLEDB.1"
聽 oAdoConexion:Properties:Item("User ID", 'ADSSYS' )
聽 oAdoConexion:Properties:Item("PassWord", 'ddd')
聽 oAdoConexion:Properties:Item("Data Source", "D:\Empr_00\Empr_00.add")
聽 oAdoConexion:Properties:Item("Persist Security Info", "False")
聽 oAdoConexion:Properties:Item("Advantage Server Type", "ADS_REMOTE_SERVER")
聽 oAdoConexion:Open()

聽 oAdoComand := Createobject("adodb.command")
聽 oAdoComand:ActiveConnection( oAdoConexion )
聽 oAdoComand:CommandTimeout := 0

聽 oRcs := CreateObject("ADODB.recordset")
聽 oRcs:Open("Select FchCrea From Pedido", oAdoConexion)
聽 
聽 ? oRcs:fields('FchCrea'):Value 聽 聽 聽 聽 聽 聽 聽 聽// 20/11/10 00:00:00.000
聽 ? Valtype(oRcs:fields('FchCrea'):Value) 聽 // T
聽 ? oRcs:fields('FchCrea'):Type 聽 聽 聽 聽 聽 聽 聽 聽 // 133 -> adDBDate


He probado con:
"xharbour_20111114"
"xharbour_2011_07_05"
e incluso con "xhb9407_bcc582" descargado de la p谩gina web de xharbour.org
Un saludo

Fernando Gonz谩lez Diez

ALSIS Sistemas Inform谩ticos

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions