none
Traer el ultimo registro repetido de una base de datos RRS feed

  • Pregunta

  • Hola que tal buenos dias 

    A ver si me pueden ayudar por favor, estoy intentando traer la ultima cantidad de una base de datos access.

    Se registran varias veces la misma orden de fabricacion por ejemplo 54 

    OF      RestarCantidad

    54       23,000

    54       18,000

    54       15,000

     

    lo que necesito es que me traiga a un textbox el ultimo registrado,ya he intentado ordenando y con otras pero me trae al azar 

    este es el codigo que uso para traer la cantidad

    Dim producto2 As String = miclase.Escala2("select RestarCantidad from [Cierre de Orden]  where [Orden Fabricacion]='" & t1.Text & "'")
    TextBox3.Text = producto2
                TextBox3.Text = Format(Val(TextBox3.Text), "#,##")

    martes, 22 de enero de 2019 16:23

Respuestas

  • Para poder hacer eso necesitas otro campo "Orden"  que almacene el orden en el que se vayan introduciendo los registros. De esta forma puedes recuperar el registro que tenga el valor mayor de ese campo para el "Orden Fabricacion" buscado. 

    "select Top 1 RestarCantidad from [Cierre de Orden] where [Orden Fabricacion]='" & t1.Text & "' Order By Orden desc"


    Saludos, Javier J

    • Marcado como respuesta Yayimilteh martes, 22 de enero de 2019 17:30
    martes, 22 de enero de 2019 16:45

Todas las respuestas

  • Para poder hacer eso necesitas otro campo "Orden"  que almacene el orden en el que se vayan introduciendo los registros. De esta forma puedes recuperar el registro que tenga el valor mayor de ese campo para el "Orden Fabricacion" buscado. 

    "select Top 1 RestarCantidad from [Cierre de Orden] where [Orden Fabricacion]='" & t1.Text & "' Order By Orden desc"


    Saludos, Javier J

    • Marcado como respuesta Yayimilteh martes, 22 de enero de 2019 17:30
    martes, 22 de enero de 2019 16:45
  • Muchas muchisimas gracias Javier, ya lo había resuelto a medias pero tu respuesta fue la solución perfecta.

    Así me quedo

    Dim producto2 As String = miclase.Escala2("select Top 1 RestarCantidad from [Cierre de Orden] where [Orden Fabricacion]='" & t1.Text & "' Order By [Orden Fabricacion] desc")
    TextBox3.Text = producto2
    TextBox3.Text = Format(Val(TextBox3.Text), "#,##")

    martes, 22 de enero de 2019 17:32