Notificaciones

Question

Hola no he podido hacer un sistema de notificasion.

El administrador ingresa un resultado que se guarda en la base de datos y el usuario tiene que acertarle el resultado que iguale en la consulta de sql.

Ahora lo que no me sale es que cuando el usuario acierta el resultado como notifico al administrador que acerto.

4 textbox y 1 boton
este codigo va en from Administrador
Try
            Dim msCadenaSQL As String = "Data Source=Leandro-PC\SQLEXPRESS;Initial Catalog=Partido;Integrated Security=True"
            Dim lsQuery As String
            Using loConexion As New SqlConnection(msCadenaSQL)
                lsQuery = "Insert Into PARTIDO (PAIS_1, PAIS_2, GOL_1, GOL_2) Values (@Pais1, @Pais2, @Gol1, @Gol2)"
                ' crear comando
                Using loComando As New SqlCommand(lsQuery, loConexion)
                    'añadir parametros al comando 

                    loComando.Parameters.Add(New SqlParameter("@Pais1", Me.TextBox1.Text))
                    loComando.Parameters.Add(New SqlParameter("@Pais2", Me.TextBox2.Text))
                    loComando.Parameters.Add(New SqlParameter("@Gol1", Me.TextBox3.Text))
                    loComando.Parameters.Add(New SqlParameter("@Gol2", TextBox4.Text))
                    loConexion.Open()   ' abrir conexión
                    loComando.ExecuteNonQuery()
                End Using
            End Using
        Catch Exp As SqlException
            MessageBox.Show(Exp.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch Exp As Exception
            MessageBox.Show(Exp.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Try

    End Sub

Este en el from Usuario

Try
            Dim msCadenaSQL As String = "Data Source=Leandro-PC\SQLEXPRESS;Initial Catalog=Partido;Integrated Security=True"
            Dim lsQuery As String = "Select Count(*) From PARTIDO Where PAIS_1=@Pais1 And PAIS_2=@Pais2 And GOL_1=@Gol1 And GOL_2=@Gol2"
            Dim liResultado As Integer
            Using loConexion As New SqlConnection(msCadenaSQL)
                ' crear comando
                Using loComando As New SqlCommand(lsQuery, loConexion)
                    'añadir parametros al comando 

                    loComando.Parameters.Add(New SqlParameter("@Pais1", Me.TextBox1.Text))
                    loComando.Parameters.Add(New SqlParameter("@Pais2", Me.TextBox2.Text))
                    loComando.Parameters.Add(New SqlParameter("@Gol1", Me.TextBox3.Text))
                    loComando.Parameters.Add(New SqlParameter("@Gol2", Me.TextBox4.Text))
                    loConexion.Open()   ' abrir conexión
                    liResultado = CInt(loComando.ExecuteScalar())
                End Using
            End Using
            If liResultado = 0 Then
                MessageBox.Show("NO has acertado", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                MessageBox.Show("SI has acertado", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        Catch Exp As SqlException
            MessageBox.Show(Exp.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch Exp As Exception
            MessageBox.Show(Exp.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Try
    End Sub

Answer 1

Hola:
Al administrador le puedes notificar por telefono, de viva voz, etc.
¿Que entiendes por notificar al administrador?
Tendras alguna tabla o algo parecido para insertar 1 registro de acertados, tu sabras como lo quieres hacer (tengo la bola de cristal reparando)

Un saludo desde Bilbo
Carlos

Answer 2

cuando el usuario acierta, como hacer para que automaticamente  notifique al administrador de que acerto

  

Answer 3

Hola Leandro Valerio,

Gracias por consultar en los foros. Para notificar al administrador, podrías enviarle un correo cada que alguna condición se cumpla, en este caso, cuando el usuario ha acertado. Te comparto este artículo que habla sobre el envío de correos desde VB.NET.

Saludos,

Karen.

________________

Por favor, recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema.

Es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde.

Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft. Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.

Answer 4

Les comparto una forma sencilla de enviar un correo electrónico desde SQL Server, lo cual puedes solucionar llamando un procedimiento almacenado desde tu proyecto.

http://surpoint.blogspot.com/2012/11/automatizar-el-envio-de-correo.html

Yo lo he probado y funciona muy bien, en caso de alguna duda me cuentas.

Answer 5

Hola Luis Carlos.

Me sirvio tu guia pero como ago para que el corre que envie sea igual al correo que logeo el usuario y q parte del codigo tengo que modificar para la pregunta  SQL para enviar el mensaje.

Espero que entiendas