none
como puedo personalisar el msgbox( de datos duplicados en la base de datos) RRS feed

  • Pregunta

  • If ex.ToString.Contains(“Valores duplicados”) Then
    MsgBox(“El registro ya existe en la base de datos”)

    end if 

    porque no me funciona de esta manera ayuda porfavor

    (VISUAL STUDIO 2012, ACCESS).

    martes, 8 de julio de 2014 18:39

Respuestas

  • ya encontré la repuesta solo hay que poner un msgbox(" personalizado lo que quieras y listo")

    gracias a los que intentaron ayudar..

    • Marcado como respuesta DIEGOHV domingo, 13 de julio de 2014 20:02
    domingo, 13 de julio de 2014 20:01

Todas las respuestas

  • Hola:

     La verdad no entiendo bién lo que deseas, cuando dices porque no me funciona de esta manera ayuda porfavor ¿a que te refieres exactamente?, ¿recibes algun mensaje de error? si ¿cual es exactamente?.


    Saludos desde Monterrey, Nuevo León, México!!!

    martes, 8 de julio de 2014 20:04
  • Pero donde está tu metodo que va a la base de dato y busca a ver si el registro ya existe, tienes que hacer eso primero y luego entonces hacer tu validación dependiendo lo que te devuelva tu consulta.

    Si mi respuesta te ha ayudado a resolver tus problemas, Selecciona "Proponer como respuesta"

    Blog
    J.Joaquin

    martes, 8 de julio de 2014 20:09
  •  

    ESTE ES EL METODO PERO SOLO DICE EL MSGBOX DE FABRICA ME PASA ESTE POR ALTO 

    Y QUIERO UN MENSAJE PERSONALIZADO COMO EL REGISTRO YA EXISTE.




            If (Me.cursos.Text = "") Then
                MsgBox("el campo cursos no puede estar vacio", MsgBoxStyle.Critical, "atención")
                Me.cursos.Select()
            Else
                Dim cursos As Object = ""
                Dim descriciónes As String

                cursos = Me.cursos.Text
                descriciónes = Me.descripciónes.Text

                cmd.CommandType = CommandType.Text
                cmd.Connection = conn

                sql = "INSERT INTO cursos(cursos, descripciónes) "
                sql += " values (" & cursos & ",'" & descriciónes & "') "


                cmd.CommandText = sql

                Try
                    conn.Open()

                    cmd.ExecuteNonQuery()

                    'conn.Close()
                    MsgBox("Registro insertado correctamente")



                Catch ex As Exception

                    If ex.ToString.Contains("Valores duplicados") Then
                        MsgBox("el registro ya existe en la base de datos")
                    Else

                        MsgBox(ex.ToString)
                    End If
                    conn.Close()
                End Try

            End If



    • Editado DIEGOHV martes, 8 de julio de 2014 20:20
    martes, 8 de julio de 2014 20:17
  • Pero el unico metodo que veo es el que inserta los datos, donde esta el metodo select que va a la base de datos y pregunta si existe este registro, hazme esto?


    Si mi respuesta te ha ayudado a resolver tus problemas, Selecciona "Proponer como respuesta"

    Blog
    J.Joaquin

    martes, 8 de julio de 2014 20:25
  •  

    Este es el de select

    Dim consultar As Object
            Dim lista As Byte

            If cursos.Text <> "" Then
                consultar = "Select * from cursos where cursos = '" & cursos.Text & "'"

                adactador = New OleDbDataAdapter(consultar, conn)
                registro = New DataSet

                adactador.Fill(registro, "cursos")
                lista = registro.Tables("cursos").Rows.Count

                If lista <> 0 Then
                    DataGridView1.DataSource = registro
                    DataGridView1.DataMember = "cursos"
                Else
                    MsgBox("no hay registro con dicho codigo", vbCritical, "ATENCIÓN")
                    cursos.Clear()
                    cursos.Focus()

                End If
            End If

    • Editado DIEGOHV martes, 8 de julio de 2014 20:34
    martes, 8 de julio de 2014 20:33
  • No resivo mensaje de error solo se queda como si no le u viese puesto nada el mismo msg por defecto

    los cambios solicitados en la tabla  no se realizaron correctamente porque crearían valores duplicados EL INDICE CLAVE PRINCIPAL O RELACION

    no encuentro como solucionarlo si le pongo lo siguiente y es como si no lo reconociera sigue igual.

    If ex.ToString.Contains(“Valores duplicados”) Then
    MsgBox(“El registro ya existe en la base de datos”)

    end if 

    porque no me funciona de esta manera ayuda porfavor

    (VISUAL STUDIO 2012, ACCESS).


    • Editado DIEGOHV miércoles, 9 de julio de 2014 12:52
    miércoles, 9 de julio de 2014 12:49
  • ya encontré la repuesta solo hay que poner un msgbox(" personalizado lo que quieras y listo")

    gracias a los que intentaron ayudar..

    • Marcado como respuesta DIEGOHV domingo, 13 de julio de 2014 20:02
    domingo, 13 de julio de 2014 20:01
  • muchas gracias me sirvió.. 
    domingo, 13 de julio de 2014 20:07