none
Notificaciones RRS feed

  • Pregunta

  • 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

    • Cambiado Enrique M. Montejo lunes, 16 de febrero de 2015 9:56 Pregunta relacionada con el acceso a datos con SQL Server.
    jueves, 12 de febrero de 2015 16:45

Todas las respuestas

  • 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

    viernes, 13 de febrero de 2015 12:27
  • cuando el usuario acierta, como hacer para que automaticamente  notifique al administrador de que acerto

      

    viernes, 13 de febrero de 2015 17:55
  • 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.


    • Editado Karen Malagón viernes, 13 de febrero de 2015 22:21
    • Propuesto como respuesta Karen Malagón miércoles, 18 de febrero de 2015 15:20
    viernes, 13 de febrero de 2015 22:18
  • 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.

    viernes, 13 de febrero de 2015 23:37
  • 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

    lunes, 16 de febrero de 2015 16:28