bug FWAdoFieldType [urgent]

[MOISES]

Hi,

This function with DateTime fields wrongly retrieves such field type as D, but should be T in Access.

Thank you.

[MOISES]

function FieldTypeAdoToDbf( nType ) fails too, in Access and MYSQL.

[nageswaragunupudi]

Hi,
but should be T in Access.

What is the field type in Acess for Only Date in Access? Field type that does not contain time part?
If a programmer wants to store only Dates what field type he has to choose other than DateTime?

[MOISES]

The field is defined in Access as DateTime, but if it only stores a date FWAdoFieldType returns D.

If it also has date and time, FWAdoFieldType returns T.

FieldTypeAdoToDbf fails alwawys.

[MOISES]

Any clue please?

Thank you.

[Rick Lipkin]

MOISES

Try this simple test on Ms Access or Ms Sql Server .. Valtype() on an ado fieldtype datetime should always equal T

Code: Select all  Expand view  RUN

dDate := oRs:Fields("Date"):Value      // assumes the ado field type = DateTime

cType := Valtype( dDate )

MsgInfo( cType )
cType should = T  

 

Rick Lipkin

[MOISES]

No, it returns "D", when the field is empty or has a date only.

"T" is returned when the field has a datetime inside.

Thank you,

[nageswaragunupudi]

Hi,

This function with DateTime fields wrongly retrieves such field type as D, but should be T in Access.

Thank you.

This function is intended for internal use.
You may not use it. Even if you use it, if you get the value is "D", then you further check if the particular value is D or T.

[MOISES]

Thank you for your time.

So, how can I get the field type as "T", irrespective of if its empty or full?

[MOISES]

Up, thank you.

[MOISES]

Any clue please?

Thank you.

[Enrico Maria Giordano]

Can we see a reduced and self-contained sample (database included) showing the problem, please?

EMG

[MOISES]

Sure, thank you for your attention:

Code: Select all  Expand view  RUN

#include "fivewin.ch"
#include "adodef.ch"

static oCn
static cTable := "test_datetime"

//----------------------------------------------------------------------------//

function Main()

   SetGetColorFocus()
   FWNumFormat( "A", .t. )

   oCn   := FW_OpenAdoConnection( "xbrtest.mdb" )
   if oCn == nil
      ? "Connect Fail"
      return nil
   endif

   if .not. FW_AdoTableExists( cTable, oCn ) .or. ;
      MsgYesNo( "Create Table again?" )
      CreateTestTable()
   endif

   EditTable()

   oCn:Close()

return nil

//----------------------------------------------------------------------------//

function CreateTestTable()

   local aCols := { { "ITEM", "C", 10, 0 }, { "PRICE", "N", 12, 2 }, { "DATETIME", "T", 10, 0 }, { "DESCRIPTION", "C", 20, 0 } }
   local oRs

   ? "Creating Table"

   if FW_AdoTableExists( cTable, oCn )
      oCn:Execute( "DROP TABLE " + cTable )
   endif

   FWAdoCreateTable( cTable, aCols, oCn )

return nil

//----------------------------------------------------------------------------//

function EditTable()

   local oRs
   local oDlg, oFont, oBrw
   local nAppendRec   := nil

   local aStruct  := {}
   local nField   := 0
   local csql

   oRs   := FW_OpenRecordSet( oCn, cTable, adLockBatchOptimistic )


   aStruct := FWAdoStruct( oRs )
   nField      := AScan( aStruct, {|a| Upper(a[1]) == "DATETIME" } )


   cSQL     := FWAdoFieldType( oRs, nField )
   ?cSQL




   xbrowser ors fastedit








   oRs:Close()

return nil

//----------------------------------------------------------------------------//

 

[Enrico Maria Giordano]

I get "Connect Fail".

EMG

[Enrico Maria Giordano]

Ok, I got xbrtest.mdb from FWH samples.

EMG