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分!!!解决问题即时结贴

解决方案 »

  1.   

    这样行不行哈,朋友 ̄ ̄ ̄!
    CYyC.execute "update senddate set dat='yes'"
      

  2.   


       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试试看!
      

  3.   

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

  4.   

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