VB.Net에서 이벤트가 업데이트 될 때

Question

VB.Net을 사용하여 응용 프로그램을 프로그래밍하고 있습니다. 내 프로젝트는 Excel 파일에서 셀을 클릭하고 매크로를 실행하면 셀에서 Access로 데이터를 전송합니다. 내 애플 리케이션은 단지 데이터베이스를 보여줍니다.

하지만 내 문제는 내가 액세스 할 때 레코드가 변경되거나 (Access에서 레코드가 업데이트되거나 삽입 될 때) 내 VB.Net 앱 (새로 고침 앱)에서 트리거 할 수 있거나 액세스 할 때 무언가를 할 수있는 이벤트가있는 것입니다. 변경되었습니다?

Answer 1

나는 약에 대해 궁금 해서요 @ Jimi의 의견에 언급되었습니다.
그래서 나는 액세스 db 파일을 변경할 때마다 DataGridView를 업데이트하는 기본 프로그램을 작성했습니다. 나는 그것과 그것의 작동을 시험했다.

설명 :
1.이 코드의 목적은 OP 질문과 관련하여 기본 원칙을 입증하기위한 것이며 개선점과 모듈성이 필요합니다.
2. SQL Server를 사용할 수 있다면 SqlDependency가 훨씬 더 나은 솔루션입니다.

Imports System.IO 
Imports System.Data.OleDb 
Public Class Form1 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     UpdateDgv() 
     watch() 
    End Sub 


    Private Sub UpdateDgv() 
     DataGridView1.DataSource = Nothing 
     DataGridView1.DataSource = GetDatatableFromAccess() 
    End Sub 

    Private Sub UpdateDgvThread() 
     RemoveHandler watcher.Changed, AddressOf OnChanged 
     DataGridView1.Invoke(New Action(AddressOf UpdateDgv)) 
     AddHandler watcher.Changed, AddressOf OnChanged 
    End Sub 

    Public watcher As FileSystemWatcher 

    Private Sub watch() 
     watcher = New FileSystemWatcher() 
     watcher.Path = "c:\Users\john\Desktop\Desktop 01-04-2017\" 
     watcher.NotifyFilter = NotifyFilters.LastWrite 
     watcher.Filter = "*.*" 
     AddHandler watcher.Changed, AddressOf OnChanged 
     watcher.EnableRaisingEvents = True 
    End Sub 


    Private Sub OnChanged(ByVal source As Object, ByVal e As FileSystemEventArgs) 
     Debug.WriteLine("file was changed") 
     ' update datagridview 
     Dim t1 As New System.Threading.Thread(AddressOf UpdateDgvThread) 
     t1.Start() 
    End Sub 

    Public Function GetDatatableFromAccess() As DataTable 

     Dim connString As String = 
    "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\john\Desktop\Desktop 01-04-2017\Database11.accdb" 

     Dim results As New DataTable() 

     Using conn As New OleDbConnection(connString) 
      Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM TestTable", conn) 
      conn.Open() 
      Dim adapter As New OleDbDataAdapter(cmd) 
      adapter.Fill(results) 
     End Using 

     Return results 
    End Function 

End Class