Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Error Loading Certain CursorAdapter Object
Message
De
13/10/2010 08:17:35
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
MySQL
Application:
Desktop
Divers
Thread ID:
01485221
Message ID:
01485225
Vues:
57
>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
**************************************************
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform