Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Cursoradapter - slow or hung tableupdate
Message
De
28/08/2012 17:26:46
 
 
À
28/08/2012 14:39:14
Information générale
Forum:
Visual FoxPro
Catégorie:
Client/serveur
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows Server 2008
Network:
Windows 2008 Server
Database:
MS SQL Server
Application:
Desktop
Divers
Thread ID:
01551737
Message ID:
01551752
Vues:
56
Update : The tableupdate command was failing. After issuing Aerror(), I have this message from SQL server:
"[Microsoft][ODBC SQL Server Driver][SQL Server]Conversion failed when converting date and/or time from character string."

I noticed the cursorschema turns the date fields into character fields of length 10. How do I set up the conversion function to send them to the backend as dates?

>
>
>**************************************************
>*-- Class:        caicgloan (c:\development\rpmfox\libs\rpmfox.vcx)
>*-- ParentClass:  cursoradapter
>*-- BaseClass:    cursoradapter
>*-- Time Stamp:   08/24/12 02:41:10 PM
>*
>DEFINE CLASS caicgloan AS cursoradapter
>
>
>	Tag = "driver=SQL Server;Server=DAL-ICGTAX-DB;Database=CopyRPM_Test;trusted_connection=yes;"
>	Height = 22
>	Width = 23
>	SelectCmd = "select * from icgloan"
>	CursorSchema = "ID I, CLIENT_ID I, LOAN C(20), DISPLAY_LOAN C(20), CONTRACT C(10), LOCATION C(3), BRANCH C(5), SETUP_DATE C(10), SERVICE_TYPE C(10), " + ;
>	"LOAN_TERM C(3), LOAN_AMOUNT B(2), BORROWERNAME C(50), NEWLOAN_NUM C(20), MAIL_ADDR1 C(50), MAIL_ADDR2 C(50), MAIL_CITY C(30), MAIL_STATE C(2), MAIL_ZIP C(5)" + ;
>	", MAIL_ZIP4 C(4), REMARKS M, BILL_CODE C(3), TIMESTMP T, INITIALS C(3), BILL_FEE B(2), CANCEL_DATE C(10), INVESTOR_NUM C(10), PROCESS_STOP C(1), LOAN_SEVERITY" + ;
>	" C(4), APPRAISED_VAL B(2), APPRAISED_DATE C(10), MAN_CODE C(3), HIGH_LO C(5), LOAN_TYPE C(10), CLIENT_BRANCH C(2), NEXT_CRITICAL C(10), CLASS C(10), TOTAL_DUE B(2)," + ;
>	" COUNTY C(50), ORDER_DATE C(10), MULTIPROP L, BILLED L, BDATE C(10), INTERNAL_ID I, RPT1 C(20), RPT2 C(20), RPT3 C(20), RPT4 C(20), COBORROWERNAME C(50), ALT_MAIL_ADDR1 " + ; 
>	"C(50), ALT_MAIL_ADDR2 C(50), ALT_MAIL_CITY C(30), ALT_MAIL_STATE C(2), ALT_MAIL_ZIP C(5), ALT_MAIL_ZIP4 C(4)"
>	Alias = "icgloan"
>	BufferModeOverride = 5
>	DataSourceType = "ODBC"
>	Flags = 0
>	KeyFieldList = "ID"
>	Tables = "icgloan"
>	UpdatableFieldList = "CLIENT_ID, LOAN, DISPLAY_LOAN, CONTRACT, LOCATION, BRANCH, SETUP_DATE, SERVICE_TYPE, LOAN_TERM, LOAN_AMOUNT, BORROWERNAME, NEWLOAN_NUM, " + ;
>	"MAIL_ADDR1, MAIL_ADDR2, MAIL_CITY, MAIL_STATE, MAIL_ZIP, MAIL_ZIP4, REMARKS, BILL_CODE, TIMESTMP, INITIALS, BILL_FEE, CANCEL_DATE, INVESTOR_NUM, PROCESS_STOP," + ; 
>	"LOAN_SEVERITY, APPRAISED_VAL, APPRAISED_DATE, MAN_CODE, HIGH_LO, LOAN_TYPE, CLIENT_BRANCH, NEXT_CRITICAL, CLASS, TOTAL_DUE, COUNTY, ORDER_DATE, MULTIPROP, BILLED," + ; 
>	"BDATE, INTERNAL_ID, RPT1, RPT2, RPT3, RPT4, COBORROWERNAME, ALT_MAIL_ADDR1, ALT_MAIL_ADDR2, ALT_MAIL_CITY, ALT_MAIL_STATE, ALT_MAIL_ZIP, ALT_MAIL_ZIP4" 
>	
>	UpdateNameList = "ID icgloan.ID, CLIENT_ID icgloan.CLIENT_ID, LOAN icgloan.LOAN, DISPLAY_LOAN icgloan.DISPLAY_LOAN, CONTRACT icgloan.CONTRACT, LOCATION " + ;
>	"icgloan.LOCATION, BRANCH icgloan.BRANCH, SETUP_DATE icgloan.SETUP_DATE, SERVICE_TYPE icgloan.SERVICE_TYPE, LOAN_TERM icgloan.LOAN_TERM, LOAN_AMOUNT " + ; 
>	"icgloan.LOAN_AMOUNT, BORROWERNAME icgloan.BORROWERNAME, NEWLOAN_NUM icgloan.NEWLOAN_NUM, MAIL_ADDR1 icgloan.MAIL_ADDR1, MAIL_ADDR2 icgloan.MAIL_ADDR2, " + ; 
>	"MAIL_CITY icgloan.MAIL_CITY, MAIL_STATE icgloan.MAIL_STATE, MAIL_ZIP icgloan.MAIL_ZIP, MAIL_ZIP4 icgloan.MAIL_ZIP4, REMARKS icgloan.REMARKS, BILL_CODE " + ; 
>	"icgloan.BILL_CODE, TIMESTMP icgloan.TIMESTMP, INITIALS icgloan.INITIALS, BILL_FEE icgloan.BILL_FEE, CANCEL_DATE icgloan.CANCEL_DATE, INVESTOR_NUM " + ; 
>	"icgloan.INVESTOR_NUM, PROCESS_STOP icgloan.PROCESS_STOP, LOAN_SEVERITY icgloan.LOAN_SEVERITY, APPRAISED_VAL icgloan.APPRAISED_VAL, APPRAISED_DATE " + ; 
>	"icgloan.APPRAISED_DATE, MAN_CODE icgloan.MAN_CODE, HIGH_LO icgloan.HIGH_LO, LOAN_TYPE icgloan.LOAN_TYPE, CLIENT_BRANCH icgloan.CLIENT_BRANCH, NEXT_CRITICAL " + ; 
>	"icgloan.NEXT_CRITICAL, CLASS icgloan.CLASS, TOTAL_DUE icgloan.TOTAL_DUE, COUNTY icgloan.COUNTY, ORDER_DATE icgloan.ORDER_DATE, MULTIPROP icgloan.MULTIPROP, " + ; 
>	"BILLED icgloan.BILLED, BDATE icgloan.BDATE, INTERNAL_ID icgloan.INTERNAL_ID, RPT1 icgloan.RPT1, RPT2 icgloan.RPT2, RPT3 icgloan.RPT3, RPT4 icgloan.RPT4, " + ; 
>	"COBORROWERNAME icgloan.COBORROWERNAME, ALT_MAIL_ADDR1 icgloan.ALT_MAIL_ADDR1, ALT_MAIL_ADDR2 icgloan.ALT_MAIL_ADDR2, ALT_MAIL_CITY icgloan.ALT_MAIL_CITY, " + ; 
>	"ALT_MAIL_STATE icgloan.ALT_MAIL_STATE, ALT_MAIL_ZIP icgloan.ALT_MAIL_ZIP, ALT_MAIL_ZIP4 icgloan.ALT_MAIL_ZIP4"
>	Name = "caicgloan"
>
>
>	PROCEDURE Init
>		*** Setup code: DO NOT REMOVE
>		local llReturn
>		do case
>			case not pemstatus(This, '__VFPSetup', 5)
>				This.AddProperty('__VFPSetup', 0)
>			case This.__VFPSetup = 1
>				This.__VFPSetup = 2
>			case This.__VFPSetup = 2
>				This.__VFPSetup = 0
>				return
>		endcase
>		set multilocks on
>		llReturn = dodefault()
>		*** End of Setup code: DO NOT REMOVE
>		*** Select connection code: DO NOT REMOVE
>
>		***<DataSource>
>		This.DataSource = sqlstringconnect([driver=SQL Server;Server=*****;Database=****;trusted_connection=yes;])
>		***</DataSource>
>		*** End of Select connection code: DO NOT REMOVE
>
>		*** Setup code: DO NOT REMOVE
>		if This.__VFPSetup = 1
>			This.__VFPSetup = 2
>		endif
>		return llReturn
>		*** End of Setup code: DO NOT REMOVE
>	ENDPROC
>
>
>	PROCEDURE AutoOpen
>		*** Setup code: DO NOT REMOVE
>		if not pemstatus(This, '__VFPSetup', 5)
>			This.AddProperty('__VFPSetup', 1)
>			This.Init()
>		endif
>		*** End of Setup code: DO NOT REMOVE
>	ENDPROC
>
>
>ENDDEFINE
>*
>*-- EndDefine: caicgloan
>
>
Jim Newsom
IT Director, ICG Inc.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform