FiveTech Software tech support forums

Mr Rick I had earlier suggested a trick, which I don't think you tried till now. Please try this once. Instead of  oBrw:End()  oRsVEH:CLose()  substitute oBrw:lCreated := .f.oRsVEH:CLose()  What is happening now is, after closing the RecordSet, Browse is b...

... advice on closing the browse .. there somewhere from line 957 in the xbrowse code .. the chain of events are still fireing that lead to this intermittant failure. Any Hints ?? Rick Lipkin

James Here is the latest iteration of the setado method and the GetKeycount() trap for the recordset being nil. Upon a valid close .. for some reason the ::oRs becomes nil prematurely or ( perhaps ) the SetAdo method is being called after the recordset has been destroyed .. thus causing the error. T...

Rick,

Did you find a solution for this? I find that intermitant errors like this are generally caused by lags in the event que, and are usually solved by a sysrefresh(). I didn't see any mention of sysrefresh() in the thread, did you try that? Also, you could try a timer if that doesn't work.

James

Rao I have had the valid clause like that already and I continue to get the errors VALID ( IIF( !lOK, ( oBrw:End(), _VehClose(.T.) ), .F. )) Antonio made this suggestion so that the listbox does not repaint .. but for some reason the setado method still fires even after the oRs:Close() .. and that ...

Rick Lipkin wrote:Enrico, Rao

The data is on a SQL server and does not translate well to .dbf ( rdd ) nor to Access.mdb

I don't think that the SQL engine used has anything to do with your problem. Unfortunately is almost impossible (at least for me) to help you without a sample.

EMG

Rao I have had the valid clause like that already and I continue to get the errors VALID ( IIF( !lOK, ( oBrw:End(), _VehClose(.T.) ), .F. )) Antonio made this suggestion so that the listbox does not repaint .. but for some reason the setado method still fires even after the oRs:Close() .. and that i...

VALID ( IIF( !lOK, ( oBrw:End(), _VehClose(.T.) ), .F. ))

This solves the entire problem

Enrico, Rao The data is on a SQL server and does not translate well to .dbf ( rdd ) nor to Access.mdb .. What sets this code apart from the usual .. since this table contains so many rows .. I use a wrapper to call _OpenUM() and the oRsVeh is actually defined static but not initialized until the pro...

To All Antonio has been working with me on the above subject .. I contuinue to get intermittant ADO errors in the setado method of code .. Here is the thread and some of the suggested fixes .. if anyone would like to add their comments .. please feel free .. this ...

Mr Rick Will you please try this and see if you are still getting errors ? VALID ( oBrw:lCreated := .f., oRs:Close(), .t. ) If this works we can suggest a neater modification to XBrowse. Note: If oBrw:lCrated is false, XBrowse does not paint. I have a hunch that this should work. If ...

If( ::oRs != nil .and. ::oRs:RecordCount() > 0, ...

This check is not enough. oRs may not be nil, but it is closed.
The code should be :
If( ::oRs != nil .and. ::oRs:State > 0 , ...... )

This kind of problems come when the browse window is refreshed after the recordset is closed. This problem is not confined to ADO. This happens even for RDD, if the DBF is closed by the time the refresh takes place. Closing recordset or dbf should happen as the Very Last action before closing the wi...

To All Antonio has been working with me on the above subject .. I contuinue to get intermittant ADO errors in the setado method of code .. Here is the thread and some of the suggested fixes .. if anyone would like to add their comments .. please feel free .. this ...

I don't know why you didn't build a reduced and self-contained sample of the problem. It would be much easier to help you.

EMG