Visual Basic.NET - NECESITO AYUDA

   
Vista:

NECESITO AYUDA

Publicado por babyprogramador (7 intervenciones) el 07/04/2014 05:10:56
Como hacer que con una determinada fecha extraida dela base datos restarle 5 dias y tirar una advertencia diciendo tu producto vencera tal fecha

osea si hoy es 6/4/2014 la advertencia tendria que haber salido el 1/4/2014
Programacion VB.NET

TALVES ME PUEDAN AYUDAR

Private Sub fecha()

Dim sql As String = "select * from Productos WHERE (DATEDIFF(day, Caducidad , GETDATE()) >= 0 )"
Dim cmd As New SqlCommand(sql, CnxBD)

cmd.CommandType = CommandType.Text


CnxBD.Open()

Dim dr As SqlDataReader
dr = cmd.ExecuteReader

While dr.Read()
Dim hoy As Date = Date.Now.ToShortDateString

Dim final As Date = dr(5)

If final = hoy Then
MessageBox.Show("El Producto: " + dr(1) + " Vence hoy " + dr(5) + "", "Advertencia") '' ESTACONDICION MANDA LA ADVERTENCIA EL PRODIO DIA DE VENCIMIENTO DE UN PRODUCTO''
''LO QUE DESEO ES QUE TAMBIEN MANDE UNA ADVERTENCIA 5 DIAS ANTES''

Else



End If


End While
CnxBD.Close()
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

NECESITO AYUDA

Publicado por Gabriel (4 intervenciones) el 07/04/2014 21:15:36
Buenas,
No entiendo bien el trabajo de dr ahi pero se me ocurrió que podes extraer la fecha y mandarla a una variable.
Por ejemplo:
1
2
3
Dim a As Date
a = "6/4/2014"
MsgBox("Hoy es " & a.Day & " el Producto Vencera en " & Val(a.Day) + 5)
Acá tengo la variable A que es una fecha. Muestro el numero del día y luego al valor del día de la fecha le agrego 5.
Espero que te sirva :D
Coméntame
Gabriel
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

NECESITO AYUDA

Publicado por babyprogramador (7 intervenciones) el 14/04/2014 22:18:42
De acuerdo lo probrare y te dire si me funciono , Te agradesco tu ayuda
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

NECESITO AYUDA

Publicado por omar pc.net.2018@hotmail.com (128 intervenciones) el 07/04/2014 21:35:29
uusa datediff y dateadd

agrega días o cehca las diferencia de fechas

checa algunas funciones
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar