| Sub JRORefreshCache() Dim cnn As New ADODB.Connection Dim rst As ADODB.Recordset Dim fld As ADODB.Field Dim je As New JRO.JetEngine ' Open the connection cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=.\NorthWind.mdb;" ' Refresh the cache to ensure that the latest data is available. je.RefreshCache cnn ' Open a recordset and read the data Set rst = cnn.Execute("SELECT * FROM Shippers") Do Until rst.EOF For Each fld In rst.Fields Debug.Print fld.Value; Next Debug.Print rst.MoveNext Loop rst.Close End Sub |
Refresh Cache |
India web developer web development India | Freelance web development ecommerce web developer | Prayagasoft - web designer India, Ecommerce developer india, Ecommerce design