帮帮忙 VB.net中的关于时间问题

[新病毒]

我想做一个“今日提醒”的窗口，我想通系统的当前时间与通过查询得到ACCESS数据库中预先设计好的时间进行比较，相同后显示内容，并通过点击“下一条”显示下一个相同时间的另一个内容！
请问怎么得到系统当前时间，代码如何写？还有关于“下一步”的如何写？？如果可以帮我把整个代码都写出来的话最好不过了！！！^0^

[qgx2007]

now是系统时间
用ds存储查询到的数据
dim position as integer=0 '获取第几条记录
position=position+1
用ds.tables(0).rows(position+1)。。。 '可获取下一条数据

[zwnylsf]

Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.TextBox1.Text = Now
If Me.TextBox1.Text = Me.TextBox2.Text Then
MessageBox.Show("计划时间到了，执行什么什么", "提示！", MessageBoxButtons.OKCancel, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim mydb As New DataSet
Dim strsql As String = "select time from 时间表"
Dim path As String
path = Application.StartupPath.ToString & "你说的存放预先设计好的数据库路径"
Dim strcon As String = "provider=microsoft.jet.OLEDB.4.0;" & "data source=" & path & ";"
Dim mycon As OleDb.OleDbConnection = New OleDb.OleDbConnection(strcon)
Dim mycommand As New OleDb.OleDbCommand(strsql, mycon)
Dim information As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(mycommand)
mycon.Open()
information.Fill(mydb, "时间表")
Me.TextBox2.DataBindings.Add("Text", mydb, "时间表.time")
mycon.Close()
Me.Timer1.Enabled = True
End Sub
End Class

一个timer,两个textbox,设计好的数据库与表。
文字部分是你要自己结合实际改得，兄弟记得给分啊。

[vlsm]

Access 系统当前时间: Now()

vb.net 系统当前时间: now().date.tostring("yyyy-MM-dd HH:mm:SS")

时间比较还是数据库里面做比较方便，acess 应该有个 datediff函数。

[水如烟]

你的access在本地还是在当作服务器的另一台机里?