OK, I've removed the CursorFill() statement from the BeforeCursorFill. Doug, your explanation seems to make sense to me. Now I'm trying to set the cSelectCmd and the lUseCursorSchema=.T. but it doesn't seem to be using the schema. Now the code is stripped down to pretty straight-forward stuff.
I've also tried doing a dodefault(params) in BeforeCursorFill...but that didn't seem to help.
Any ideas?
Thanks,
Tom Johnson
x=CREATEOBJECT("nwDataEnv")
SET STEP ON
x.opentables()
SELECT crsOrders
BROWSE
DEFINE CLASS nwDataEnv AS dataenvironment
Tag = "dsn=RoughCut;uid=sa;pwd=eternal;trusted_connection=no;"
Width = 520
Height = 200
DataSource = .NULL.
DataSourceType = "ODBC"
Name = "nwDataEnv"
PROCEDURE BeforeOpenTables
set multilocks on
This.DataSource = sqlstringconnect([dsn=Northwind;uid=sa;trusted_connection=no])
ENDPROC
ADD OBJECT caOrders AS cursoradapter WITH ;
UseDeDataSource = .T., ;
DataSourceType = "ODBC", ;
CursorSchema = "ORDERID I, ORDERDATE D, REQUIREDDATE T,SHIPPEDDATE T", ; && TRYING TO RETURN ORDERDATE AS DATE NOT DATETIME
Alias = "crsOrders", ;
Name = "caOrders", ;
BufferModeOverride=5 ;
*!* PROCEDURE CaOrders.Init()
*!* cSelectCmd="EXEC CustOrdersOrders 'TOMSP'"
*!* ENDPROC
PROCEDURE caOrders.BeforeCursorFill
LPARAMETERS luseCursorSchema, lNoDataOnLoad, cSelectCmd
cSelectCmd="EXEC CustOrdersOrders 'TOMSP'"
lUseCursorSchema=.t.
ENDPROC
ENDDEFINE
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement