Imports System.Data.OleDb Public Class Form1 Dim con As OleDbConnection Dim dt As DataTable Dim da As OleDbDataAdapter Dim str As String = "Provider= Microsoft.Jet.OLEDB.4.0;Data Source = " & Application.StartupPath & "\Nwind.mdb;" Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Enabled = True Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim conn As OleDbConnection = New OleDbConnection(str) conn.Open() Dim dt As DataTable = New DataTable() For Each _row As DataRow In dt.Rows Dim _now As DateTime = Now _now = _now.AddMinutes(_row("Duration")) Dim sQry1 As String = "select * from tblTimeLoad where Start='" & _now.ToString("yyyy-MM-dd hh:mm:ss tt") & "'" Dim da As OleDbDataAdapter = New OleDbDataAdapter(sQry1, conn) da.Fill(dt) DataGridView1.DataSource = dt Next conn.Close() End Sub End Class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)