关于vb查询access数据库

来源：百度知道 编辑：UC知道 时间：2024/05/19 07:28:55
我希望Timer不断检查数据库里每一个用户的hour和minute两项(数据库已设定),若它们与NOW的小时和分钟相同,马上调出MSGBOX,并显示该名用户的资料
Private Sub Timer1_Timer()
If Val(Text1(7).Text) = Hour(Time) Then
'Text1(7).Text是数据库里的hour项
If Val(Text1(8).Text) = Minute(Time) Then
'Text1(8).Text是数据库里的minute项

代码应该是什么呢?不胜感激
数据库已设定每个用户的hour和minute这两个字段的值,并分别与Text1(7).Text和Text1(8).Text绑定.若其中一用户的hour和minute和系统时间的hh和mm相同,马上显示该名用户的资料

Private cCnn As New ADODB.Connection

Private Sub Form_Load()
Dim mCnnStr As String

'-------- 连接数据库
mCnnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\数据库.mdb;Jet OLEDB:DataBase Password="
cCnn.CursorLocation = adUseClient
cCnn.Mode = adModeReadWrite
cCnn.ConnectionString = mCnnStr
cCnn.Open
'-----------------------------------
Timer1.Enabled = True
Timer1.Interval = 10000 '设置10秒
End Sub

Private Sub Timer1_Timer()
On Error GoTo ErrorLoad
Dim mStr As String
Dim mRst As New ADODB.Recordset
Dim mHour As Long
Dim mMinute As Long
Dim mCode As String
Dim mName As String
Dim MsgStr As String

Timer1.Enabled = False

mStr = "select * from [表名] "
mRst.Open mStr, cCnn, adOpenKeyset, adLockReadOnly
If mRst.RecordCount > 0 Then