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分!!!解决问题即时结贴
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 主键='.....'"