ADO Refresh

[Awesomo]

I have a main form, from which I open a another form, frmSchedule
frmSchedule has a datagrid, which is bound to an ado data control
The data control is based on a table called TempSchedule. Before I open frmSchedule, I delete the contents of TempSchedule and replace with a fresh schedule.
However, gridSchedule will be blank. Now if I use a message box after frmSchedule opens, gridSchedule will be filled after I click ok.
I tried datSchedule.Refresh but that did nothing either. At the moment my code is

stSQL = "DELETE * FROM TempSchedule"
cnnAsset.Execute stSQL
stSQL = "INSERT INTO TempSchedule SELECT Schedule.* From Schedule " & _
    "WHERE Schedule.Sch_AssetCode = '" & stAssetCode & "'"
cnnAsset.Execute stSQL, lAffected
    
frmSchedule.lTotalSchedules = lAffected

Then in the frmSchedule Load event

' Now wait until the schedule data loads
While lCountSchedules < lTotalSchedules        
        lCountSchedules = Me.datSchedule.Recordset.RecordCount
        Me.datSchedule.Refresh
Wend

Surely theres a better way!?

[dee-u]

Try....

datSchedule.Recordset.CursorLocation=adUseClient
datSchedule.Recordset.Requery

[Ecniv]

Sounds like you are deleting the records and adding them. They are there but your app beats them getting there and returns nothing.

This has been noted already, you need to flush the cache with RDO.

I'll edit with a link to a (possibly) related post...

Edit:
Another Thread with links

[Awesomo]

That code didn't work. I get
3705: Operation is not allowed when the object is open.
when I try the line
datSchedule.Recordset.CursorLocation=adUseClient