Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
TableUpdate last parameter
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows 7
Network:
Windows 2003 Server
Database:
MS SQL Server
Miscellaneous
Thread ID:
01564432
Message ID:
01564489
Views:
23
>I test a few cases (MS SQL and MS Access)
>
>- changes are OK: the array is single cell with value -1
>- changes not OK - row buffering: the array is single cell with value -1
>- changes not OK - table buffering: the array is one dime, each cell - each bad record number
>
>
Can you show your exact test statement?

This is the code I have - see the commented stuff:
this.mysqlexec("select * from dbo.ww_sales where CAST(sale_text as varchar(max)) like '%<guest_no>" + transform(m.pnDuplicate) + "</guest_no>%'", ;
      'ww_sales', program())
   this.make_view_updatable('ww_sales', 5)         && table buffering
   select ww_sales
   replace ALL sale_text with strtran(sale_text, "<guest_no>" + transform(m.pnDuplicate) + "</guest_no>", "<guest_no>" + transform(m.pnOriginal) + "</guest_no>",-1,-1,1)
   DIMENSION laCommitError[1]
   if not tableupdate(2, .t., 'ww_sales') && , laCommitError)
      llError = .t.
      = AERROR(laError)
      lcErrorMsg = m.lcErrorMsg + "Can not perform update of ww_sales" + CHR(13) + laError(1,2)
   ENDIF
  
*!*      IF TYPE('laCommitError[1]') <> 'L'
*!*         
*!*         llError = .t.
*!*         oAppObj.write_log('Some rows in ww_sales table can not be committed: ' + TRANSFORM(laCommitError[1]), 'E', PROGRAM())
*!*         IF laCommitError[1] = -1
*!*           = AERROR(laError)
*!*           lcErrorMsg = m.lcErrorMsg + "Can not perform update of ww_sales" + CHR(13) + laError(1,2)
*!*         endif
*!*      endif   
   use in select('ww_sales')
If it's not broken, fix it until it is.


My Blog
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform