Private Sub Timer1_Timer()
Dim CYyC As New ADODB.Connection
Dim CYyR As New ADODB.Recordset
On Error Resume Next
CYyC.Provider = "Microsoft.jet.oledb.4.0"
CYyC.ConnectionString = "user id=admin;data source=" & "\database\ice.mdb"
CYyC.Open
CYyR.CursorType = adOpenKeyset
CYyR.LockType = adLockOptimistic
CYyR.ActiveConnection = CYyC
CYyR.Open "select * from senddate", CYyC, adOpenStatic, adLockReadOnly, 1 Dim str As String
Dim dat As String
Do While Not CYyR.EOF
str = CYyR.Fields(4).Value
dat = CYyR.Fields("dat")
If str = "Alex" And dat = "yes" Then
alert "Alex 你剛剛收到一份新公文!"
‘我想在这里加一个update
‘读了信息后把dat="yes"改成dat="no"
Exit Do
Else
CYyR.MoveNext
End If
LoopEnd Sub
谢谢!20分!!!解决问题即时结贴
Dim CYyC As New ADODB.Connection
Dim CYyR As New ADODB.Recordset
On Error Resume Next
CYyC.Provider = "Microsoft.jet.oledb.4.0"
CYyC.ConnectionString = "user id=admin;data source=" & "\database\ice.mdb"
CYyC.Open
CYyR.CursorType = adOpenKeyset
CYyR.LockType = adLockOptimistic
CYyR.ActiveConnection = CYyC
CYyR.Open "select * from senddate", CYyC, adOpenStatic, adLockReadOnly, 1 Dim str As String
Dim dat As String
Do While Not CYyR.EOF
str = CYyR.Fields(4).Value
dat = CYyR.Fields("dat")
If str = "Alex" And dat = "yes" Then
alert "Alex 你剛剛收到一份新公文!"
‘我想在这里加一个update
‘读了信息后把dat="yes"改成dat="no"
Exit Do
Else
CYyR.MoveNext
End If
LoopEnd Sub
谢谢!20分!!!解决问题即时结贴
解决方案 »
- 在ACCESS中两个窗体之间传多个值?
- sql like的问题
- 名位老师,请帮帮忙
- 急!!Format$()函数的用法(格式化为自定义格式)
- 各位高手,我想问问能不能打开已有的excel文件并让excel的窗体固定在form里,而且不让他显示最大化,最小化和关闭的按纽。谢谢!
- 菜问题一个:VB 字符串里的回车怎样表示啊,谢谢
- VBA中用ADO访问数据库的问题,急,请帮忙!
- 怎样在字符串中包含双引号?
- 诚恳邀请用。NET框架工具开发程序学习伙伴与我共同完成理解。net体系的全过程
- mshflexgrid带区与DataEnvironment绑定的刷新问题?
- 媒体播放解码器的问题 88分
- 怎样读取richtextbox内第一行的前6个字符,先多谢那
CYyC.execute "update senddate set dat='yes'"
CYyR.Open "select * from senddate", CYyC, adOpenStatic, adLockReadOnly, 1 Dim str As String
Dim dat As String
Do While Not CYyR.EOF
str = CYyR.Fields(4).Value
dat = CYyR.Fields("dat")
If str = "Alex" And dat = "yes" Then
alert "Alex 你剛剛收到一份新公文!"
cyyc.execute "update senddate set dat='no'"
Exit Do
Else
CYyR.MoveNext
End If
Loop
cyyr.close试试看!
Do While Not CYyR.EOF
str = CYyR.Fields(4).Value
dat = CYyR.Fields("dat")
If str = "Alex" And dat = "yes" Then
alert "Alex 你剛剛收到一份新公文!"
cyyR!dat = "no"
cyyR.Update
End If
CYyR.MoveNext
Loop
cyyc.execute "update senddate set dat='no' where 主键='.....'"