Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Error Loading Certain CursorAdapter Object
Message
From
13/10/2010 08:17:35
 
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
MySQL
Application:
Desktop
Miscellaneous
Thread ID:
01485221
Message ID:
01485225
Views:
58
>Can you post your CAs definitions? Are you trying to select everything from these tables?

Here it is. No I am not selecting everything. Right now, it won't work even if Nodata = .T. =(
**************************************************
*-- Class:        caparcel (d:\vfp9dev\pelican\classes\pelican.vcx)
*-- ParentClass:  mysqlcursoradapter (d:\vfp9dev\classes\ntier.vcx)
*-- BaseClass:    cursoradapter
*-- Time Stamp:   07/09/10 08:55:10 AM
*
#INCLUDE "d:\vfp9dev\includes\system.h"
*
DEFINE CLASS caparcel AS mysqlcursoradapter


	UseDeDataSource = .T.
	SelectCmd = "select * from parcel"
	CursorSchema = "PID C(10), JOBORDERID C(32), CUSTREFNO C(20), LASTNAME C(25), FIRSTNAME C(25), MIDDLENAME C(25), CAREOF C(50), COMPANY C(50), BUILDING C(50), STREET C(50), MISCADDR C(120), CITY C(25), ZIP C(4), SPLNOTE M, TXNCODE C(3), TXNREFNO C(10), TXNDATE D, STATUSCODE C(5), LOCATIONID C(32), REASONID C(32), MESSENGERID C(32), CUSTOMERID C(32), PRODUCTID C(32), ENTEREDBY C(10), ID C(32)"
	Alias = "parcel"
	Flags = 0
	KeyFieldList = "ID"
	Tables = "parcel"
	UpdatableFieldList = "PID, JOBORDERID, CUSTREFNO, LASTNAME, FIRSTNAME, MIDDLENAME, CAREOF, COMPANY, BUILDING, STREET, MISCADDR, CITY, ZIP, SPLNOTE, TXNCODE, TXNREFNO, TXNDATE, STATUSCODE, LOCATIONID, REASONID, MESSENGERID, CUSTOMERID, PRODUCTID, ENTEREDBY, ID"
	UpdateNameList = "PID parcel.PID, JOBORDERID parcel.JOBORDERID, CUSTREFNO parcel.CUSTREFNO, LASTNAME parcel.LASTNAME, FIRSTNAME parcel.FIRSTNAME, MIDDLENAME parcel.MIDDLENAME, CAREOF parcel.CAREOF, COMPANY parcel.COMPANY, BUILDING parcel.BUILDING, STREET parcel.STREET, MISCADDR parcel.MISCADDR, CITY parcel.CITY, ZIP parcel.ZIP, SPLNOTE parcel.SPLNOTE, TXNCODE parcel.TXNCODE, TXNREFNO parcel.TXNREFNO, TXNDATE parcel.TXNDATE, STATUSCODE parcel.STATUSCODE, LOCATIONID parcel.LOCATIONID, REASONID parcel.REASONID, MESSENGERID parcel.MESSENGERID, CUSTOMERID parcel.CUSTOMERID, PRODUCTID parcel.PRODUCTID, ENTEREDBY parcel.ENTEREDBY, ID parcel.ID"
	parentalias = "joborder"
	parentkeyfields = "id"
	keyfields = "joborderid"
	hasautoincfield = .T.
	autoincfield = "pid"
	Name = "caparcel"

ENDDEFINE
*
*-- EndDefine: caparcel
**************************************************
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform