Microsoft Jet and Replication Objects
This example demonstrates the RefreshCache method.
Public Sub RefCache()
Dim lateje As JRO.JetEngine
Dim conn As New ADODB.Connection
Dim conn2 As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim fld As ADODB.Field
' Open both connections to the database.
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data source=C:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind.mdb;"
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data source=C:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind.mdb;"
Set lateje = CreateObject("JRO.JetEngine")
On Error Resume Next
conn.Execute "drop table tab1"
On Error GoTo 0
' Create table and input new values for columns.
conn.Execute "create table tab1 ( col1 int)"
conn.Execute "insert into tab1 values (1)"
conn.Execute "insert into tab1 values (2)"
' Flush the data so that conn2 can see the changes from conn1.
lateje.RefreshCache conn2
Set rs = conn2.Execute("select * from tab1")
Set fld = rs.Fields(0)
Debug.Print "Record 1: " & fld.Name & " = " & Str(fld.Value)
conn.Close
conn2.Close
Set lateje = Nothing
End Sub