Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to convert DataType DateTime to Date in CA
Message
De
19/03/2003 07:25:30
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
 
 
À
18/03/2003 22:57:46
Peter Wagner
Point Informática Ltda.
Limeira, Brésil
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00767366
Message ID:
00767440
Vues:
9
>I created a CA to test if CA makes Data conversion and used SQL-Server's Northwind database orders table.
Snip...
>When I browse the cursor it returns the data, but it doesnt convert the fields:
>ORDERDATE, REQUIREDDATE and SHIPPEDDATE from Time to Date.
>
>Where should I change the datatype in CA ? , I thing it was in CursorSchema...
>What I'm missing in CA ?
>
>Thanks in Advance
>
>Peter

Peter,
I think what you're missing is the first parameter of CursorFill(lUseCursorSchema). Here is a revised version of your code :
oData = Createobject("NWData")
Browse
Tableupdate()

Define Class NWData As CursorAdapter
  DataSourceType="ODBC"
  Alias="Orders"

  CursorSchema = "CUSTOMERID C(5), EMPLOYEEID I, FREIGHT Y, "+;
    "ORDERDATE D, ORDERID I, REQUIREDDATE D, "+;
    "SHIPADDRESS C(60), SHIPCITY C(15), SHIPCOUNTRY C(15), "+;
    "SHIPNAME C(40), SHIPPEDDATE D, SHIPPOSTALCODE C (10), "+;
    "SHIPREGION C(15), SHIPVIA I"
  SelectCmd = "select Orders.CUSTOMERID, Orders.EMPLOYEEID,"+;
    "Orders.FREIGHT,"Orders.ORDERDATE, Orders.ORDERID,"+;
    "Orders.REQUIREDDATE,Orders.SHIPADDRESS, Orders.SHIPCITY,"+;
    "Orders.SHIPCOUNTRY, Orders.SHIPNAME, Orders.SHIPPEDDATE,"+;
    "Orders.SHIPPOSTALCODE, Orders.SHIPREGION, Orders.SHIPVIA "+;
    " from Orders"

  Tables = "Orders"
  KeyFieldList = "CUSTOMERID"
  UpdatableFieldList = "EMPLOYEEID, FREIGHT, ORDERDATE, ORDERID,"+;
    "REQUIREDDATE, SHIPADDRESS, SHIPCITY, "+;
    "SHIPCOUNTRY, SHIPNAME, SHIPPEDDATE, SHIPPOSTALCODE, SHIPREGION, SHIPVIA"
  UpdateNameList = "CUSTOMERID Orders.CUSTOMERID, "+;
    "EMPLOYEEID Orders.EMPLOYEEID, FREIGHT Orders.FREIGHT, "+;
    "ORDERDATE Orders.ORDERDATE, ORDERID Orders.ORDERID, "+;
    "REQUIREDDATE Orders.REQUIREDDATE, SHIPADDRESS Orders.SHIPADDRESS, "+;
    "SHIPCITY Orders.SHIPCITY, SHIPCOUNTRY Orders.SHIPCOUNTRY, "+;
    "SHIPNAME Orders.SHIPNAME, SHIPPEDDATE Orders.SHIPPEDDATE, "+;
    "SHIPPOSTALCODE Orders.SHIPPOSTALCODE, "+;
    "SHIPREGION Orders.SHIPREGION, SHIPVIA Orders.SHIPVIA"

  Procedure Init
    This.AddProperty('Connection',;
      SQLSTRINGCONNECT(;
      "Driver=SQL Server;Server=servername;"+;
      "Trusted_connection=Yes;"+;
      "DATABASE=Northwind"))
    This.Datasource = This.Connection
    This.CursorFill(.T.)
  Endproc
Enddefine
Cetin
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform