FiveTech Software tech support forums

... here works ( generally ) flawsly for me .. I can open and close the valid and not get a single error .. However, the error.log persists with the intermittant failure and chain of mentioned events and you are 'on target' in your assessment. Your 'flag' would emcompas a lot of code re-write .. ...

James: So, if I understand correctly, if the record set record count is zero then oRs:RecordCount() will error out? Yes. Rick: I'm glad to hear that. Regards I beg to disagree totally. oRs:RecordCount returns 0 but DOES NOT error out on Empty RecordSet. Emptiness of a recordset can be checked eithe...

James:

James Bott wrote:So, if I understand correctly, if the record set record count is zero then oRs:RecordCount() will error out?

Yes.

Rick:
I'm glad to hear that.

Regards

To All I have put all the recommendations together ( Daniel, James, and Armando ) .. compiled and tested the applications and it seems to be stable for me .. I have put the executable in place with the folks that seem to generate the error and will monitor any error.log's .. Hopefully the eof, bof w...

Gentleman

All GREAT ideas .. James .. I will modify the xbrowse code for eof, bof ( thanks Armando ) .. this seems to be the root cause !! .. Daniel, I will insert your recommendation as well.

I will vpn into work and make the changes and let everyone know.

Rick

Armando, So, if I understand correctly, if the record set record count is zero then oRs:RecordCount() will error out? If so, then we can try changing bBookMark to (in the SetADO() method): ::bBookMark := {| n | If( n == nil,;                      If( ::oRs != nil .and. If( ::oRs:BOF() .AND. oRs:EOF(...

Hello Rick... Please try put oBrw:CreateFromCode() last command to create xbrowse        ....       ....       oBrw:bClrStd := {|| {CLR_BLACK, if( oRsVeh:Fields("readonly"):Value = 'Y', RGB(179,203,204), CLR_WHITE ) } }       oWnd1:oClient := oBr...

Rick, James: When you create an empty Record Set and test using RecordCount() you will have an error. This code will send you an error with an empty record set MsgInfo(oRs:RecordCount() > 0) I use to as follow IF oRs:BOF() .AND. oRs:EOF() MsgInfo("The record set is empty !") ELSE MsgInf...

James

I will try your suggestion and let you know ..

Thanks
Rick

Rick, I have looked at your version of TXBrowse (9.04) and I still don't quite understand the error sequence you are getting. This is your error stack: Stack Calls =========== Called from: source\rtl\win32ole.prg => TOLEAUTO:RECORDCOUNT(0) Called from: xbrowse.prg => (b)TXBROWSE:SETADO(3765) C...

James Just sent you the xbrowse class .. from 9.04 ( not 9.06 .. my mistake ) .. the SetAdo method is around line 3754. Hope your extra set of eyes can shed some light on this problem .. and I think it may be related to the 'print screen' utility these specific users have .. I have run into somethin...

Rick, >Using FWH 9.06 .. look at xbrowse.prg around line 3758 .. I still don't see a call to setAdo(). There are only two calls to setAdo() in my source, one in each of these methods: Initiate() XbrwSetDataSource() That's all. Is line 3758 in the Paint() method of your version? Can you email me y...

James

Using FWH 9.06 .. look at xbrowse.prg around line 3758 ..

Rick

Rick,

I am confused by your error listing. I cannot find a call to setAdo() anywhere in the TXBrowse:Paint() method.

What version of FW are you using? Do you see a call to setAdo() in your Paint() method? Are you using a modified version of TXBrowse?

I am using FWH 9.05.

Regards,
James

Rao Your suggestion is currently in place :-( ACTIVATE WINDOW oWND1 ;         ON INIT( oBrw:SetFocus(), .F. ) ;         VALID ( IIF( !lOK, ( oBrw:lCreated := .f., _VehClose(.T.) ), .F. ))       *  VALID ( IIF( !lOK, ( oBrw:End(), _V...