OLEDB 连接没有刷新日期

OLEDB 连接没有刷新日期

vb
Dim conn As New OleDbConnection(connectionString)
conn.Open()
' 执行查询语句获取数据
' 刷新缓存以获取最新数据
conn.RefreshData()
' 处理数据
conn.Close()

vb
Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\data.accdb;OLE DB Services=-1;"
Dim conn As New OleDbConnection(connString)
' 设置缓存选项
Dim options As Integer = conn.GetOleDbProperty("OLE DB Services")
options = options Or OleDbServices.OLEDB_CONN_FLAG_REFRESH
conn.SetOleDbProperty("OLE DB Services", options)
' 连接数据源并获取数据
' 处理数据
conn.Close()

vb
Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\data.accdb;"
Dim conn As New OleDbConnection(connString)
conn.Open()
' 查询订单表
Dim sql As String = "SELECT OrderNumber, OrderDate FROM orders"
Dim cmd As New OleDbCommand(sql, conn)
Dim reader As OleDbDataReader = cmd.ExecuteReader()
' 打印订单信息
While reader.Read()
    Dim orderNumber As String = reader.GetString(0)
    Dim orderDate As Date = reader.GetDateTime(1)
    Console.WriteLine("订单号：" & orderNumber)
    Console.WriteLine("订单日期：" & orderDate)
End While
' 刷新缓存以获取最新数据
conn.RefreshData()
' 查询订单表
cmd = New OleDbCommand(sql, conn)
reader = cmd.ExecuteReader()
' 打印订单信息
While reader.Read()
    Dim orderNumber As String = reader.GetString(0)
    Dim orderDate As Date = reader.GetDateTime(1)
    Console.WriteLine("订单号：" & orderNumber)
    Console.WriteLine("订单日期：" & orderDate)
End While
conn.Close()