怎样加一个update ，看如下代码：20分

[钓好鱼]

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
Loop

End Sub
谢谢！20分！！！解决问题即时结贴。。。

[tlx2008]

这样行不行哈，朋友￣￣￣！
CYyC.execute "update senddate set dat='yes'"

[tlx2008]

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

试试看！

[of123]

楼上的岂不是把所有未读的都改成已读了吗？
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

[no_com]

YES,of123


cyyc.execute "update senddate set dat='no' where 主键='.....'"

[钓好鱼]

谢谢四位的帮助！！！
每人五分！！！
谢谢！！！

[钓好鱼]

问题解决了！还是给四位每人加10分吧！！！