none
Mostrar ID (consecutivo) de la base de datos en un mensaje flotante RRS feed

  • Pregunta

  • Hola a todos los que me leen,les quisiera preguntar acerca del siguiente problema y que debería hacer.

    Quisiera que al darle click a un botón de un formulario en asp,este envíe un msgbox que diga su número de consecutivo sacado de la base de datos,la verdad no tengo idea de como hacerlo,ojalá puedan ayudarme como tantas otra vez,gracias de antemano.


    • Editado Krej martes, 7 de abril de 2015 12:32
    martes, 7 de abril de 2015 4:45

Respuestas

  • porque usas un dataadapter para ejecutar un insert ? eso no es correcto

    Protected Function Enviar_Click(sender As Object, e As EventArgs) Handles Enviar.Click Try conexionaDatos() obid() Dim query As String = insert into reclamos (Reclamo,id_usuario,id_asunto,Fecha_Reclamo,Observaciones,Id_Estado,Id_Dpto,Id_Empleado) values (?Rec,?id_us,?Id_asu,NOW(),'-','3','7','9');" Dim cmd As New MySqlCommand(query, conexion) cmd.Parameters.Add("?rec", MySqlDbType.LongText).Value = Txtreclamo.Text cmd.Parameters.Add("?Id_us", MySqlDbType.Int16).Value = Convert.ToInt16(txxid.Text)

    cmd.Parameters.Add("?Id_asu", MySqlDbType.Int16).Value = Convert.ToInt16(DDL_Asunto.Text) cmd.ExecuteNonQuery() Catch ex As Exception MsgBox("error en inserción" + ex.Message) estado = False Finally conexion.Close() End Try End Function

    tambien respecta los tipos de datos, si un parametro es numerico convirte a este tipo

    saludos


    Leandro Tuttini

    Blog
    MVP Profile
    Buenos Aires
    Argentina



    martes, 7 de abril de 2015 12:53

Todas las respuestas

  • hola

    de cual base de datos estamos hablando? es sql server

    si el campo de la tabla es identity podrias usar el SELECT SCOPE_IDENTITY() para tomar el id generado luego del INSERT

    [ADO.NET] – Parte 6 - Campos Auto numéricos

    ----

    lo que si te comento es que NUNCA uses un msgbox esto esta prohibido en asp.net, para mostrar el valor debes generar el alert de javascript por medio de

    string script = "alert('aqui mensaje');";
    
    ScriptManager.RegisterStartupScript(this, typeof(Page), "alerta", script , true);


    saludos


    Leandro Tuttini

    Blog
    MVP Profile
    Buenos Aires
    Argentina

    martes, 7 de abril de 2015 7:55
  • hola

    de cual base de datos estamos hablando? es sql server

    si el campo de la tabla es identity podrias usar el SELECT SCOPE_IDENTITY() para tomar el id generado luego del INSERT

    [ADO.NET] – Parte 6 - Campos Auto numéricos

    He visitado el link que has puesto y es muy bueno,pero tengo el insert de esta forma,ademas de eso como trabajo con procedimientos almacenados en mysql.

    Protected Function Enviar_Click(sender As Object, e As EventArgs) Handles Enviar.Click
            Dim cmd As New MySqlCommand
            Dim estado As Boolean = True
            Dim _Adaptador As New MySqlDataAdapter
            Try
    
                conexionaDatos()
    
                'Dim qery As New MySqlCommand
    
                obid()
    
                _Adaptador.InsertCommand = New MySqlCommand("insert into Usuarios (Cedula,Nombre,Apellido,Telefono,Direccion,Email,Id_Regimen) values ('1','f','f','4','calle 1','yopmail','2');insert into reclamos (Reclamo,id_usuario,id_asunto,Fecha_Reclamo,Observaciones,Id_Estado,Id_Dpto,Id_Empleado) values (@Rec,@id_us,@Id_asu,NOW(),'-','3','7','9');", conexion)
    
                _Adaptador.InsertCommand.Parameters.Add("@rec", MySqlDbType.LongText).Value = Txtreclamo.Text
    
                _Adaptador.InsertCommand.Parameters.Add("@Id_asu", MySqlDbType.Int16).Value = DDL_Asunto.Text
    
                _Adaptador.InsertCommand.Parameters.Add("@Id_us", MySqlDbType.Int16).Value = txxid.Text
    
                _Adaptador.InsertCommand.Connection = conexion
                _Adaptador.InsertCommand.ExecuteNonQuery()
    
    
            Catch ex As Exception
                MsgBox("error en inserción")
                estado = False
            Finally
                conexion.Close()
            End Try
            Return estado
        End Function



    • Editado Krej martes, 7 de abril de 2015 12:53
    martes, 7 de abril de 2015 12:18
  • porque usas un dataadapter para ejecutar un insert ? eso no es correcto

    Protected Function Enviar_Click(sender As Object, e As EventArgs) Handles Enviar.Click Try conexionaDatos() obid() Dim query As String = insert into reclamos (Reclamo,id_usuario,id_asunto,Fecha_Reclamo,Observaciones,Id_Estado,Id_Dpto,Id_Empleado) values (?Rec,?id_us,?Id_asu,NOW(),'-','3','7','9');" Dim cmd As New MySqlCommand(query, conexion) cmd.Parameters.Add("?rec", MySqlDbType.LongText).Value = Txtreclamo.Text cmd.Parameters.Add("?Id_us", MySqlDbType.Int16).Value = Convert.ToInt16(txxid.Text)

    cmd.Parameters.Add("?Id_asu", MySqlDbType.Int16).Value = Convert.ToInt16(DDL_Asunto.Text) cmd.ExecuteNonQuery() Catch ex As Exception MsgBox("error en inserción" + ex.Message) estado = False Finally conexion.Close() End Try End Function

    tambien respecta los tipos de datos, si un parametro es numerico convirte a este tipo

    saludos


    Leandro Tuttini

    Blog
    MVP Profile
    Buenos Aires
    Argentina



    martes, 7 de abril de 2015 12:53
  • Ok,muchas gracias por la correción el insert pero acerca de tu código en tu página,no entiendo bien como podría adaptarlo a este insert ya que no me gustaría cambiarlo,disculpa.
    martes, 7 de abril de 2015 13:54