Jump to content
M3gNa

Horas e Eventos

Recommended Posts

M3gNa

Boas pessoal  :P

Estou a construir um programa que é do tipo uma agenda para professores. Fazer a gestão dos alunos, disciplinas, anos lectivos etc...

E tem uma parte que se chama Eventos. É do tipo reuniões, testes etc...

Estes dados são todos guardados em base de dados Access.

O que eu queria era uma função que de segundo a segundo(esta parte ainda não estruturei bem) verifica-se os eventos e aqueles que se tivessem a aproximar ele emitia um aviso do tipo (tooltip message etc..)

Alguém sabe como fazer isto +/-?

Cumprimentos M3gNa

Share this post


Link to post
Share on other sites
M3gNa

Eu estou a utilizar este código mas esta-me a dar este erro "Conversion Datarow to Integer is not valid".

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim strconexao As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\ias.mdb"

        Dim oConn As New OleDbConnection(strconexao)
        Dim strSQL As New StringBuilder
        Dim oTable As New DataTable()
        Dim oCmd As OleDbCommand = Nothing

        oConn.Open()

        strSQL.Append(" Select tarefa, data, hora")
        strSQL.Append(" FROM eventos ")

        Dim oDA As New OleDbDataAdapter(strSQL.ToString, oConn)
        oDA.Fill(oTable)


        For Each linha In oTable.Rows
            If oTable.Rows(linha).Item("data") = Today Then
                If oTable.Rows(linha).Item("hora") - Today.Hour < 1 Then
                    NotifyIcon1.ShowBalloonTip(oTable.Rows(linha).Item("tarefa"))
                End If
            End If
        Next
        oConn.Close()
    End Sub

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.