Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

saber la semana actual

28/03/2006 - 10:12 por Sonia | Informe spam
Ayuda Hacer una pregunta
hola!
estoy haciendo una consulta de pedidos q me salen en un listview y en el
load pongo q por defecto me salen los pedidos del dia actual y queria saber
si hay lago para hacer q me salgan los de la semana actual. es posible?
gracias

lo del dia actual lo hago asi:

fecha.Text = System.DateTime.Today



Dim nuevo As cargalist


mysql = "SELECT ID_PEDIDO,FECHA,COLEGIO,NOMBRE,
APELLIDOS,F_PAGO,CIF,ESTADO,DTO_GEN,OPERADORA FROM PEDIDOS where fecha=#" &
fecha.Text & "# order by id_pedido desc;"



nuevo.MySqlCargarVista(CadenaConexion, mysql, ListView1)
email Siga el debateRespuesta 5 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Eduardo Alvarado Meza
28/03/2006 - 10:42 | Informe spam
Lo correcto podria ser asi:

Dim Inicio_de_la_Semana As Date =
DateTime.Now.AddDays((DateTime.Now.DayOfWeek - 1) * (-1)).Date
Dim Fin_de_la_Semana As Date = Inicio_de_la_Semana.AddDays(6).Date

MsgBox("Dia: " + Inicio_de_la_Semana.DayOfWeek.ToString + " " +
Inicio_de_la_Semana.ToString)
MsgBox("Dia: " + Fin_de_la_Semana.DayOfWeek.ToString + " " +
Fin_de_la_Semana.ToString)

Dim MyQuery As String = "SELECT ID_PEDIDO,FECHA,COLEGIO,NOMBRE,"
MyQuery += "APELLIDOS,F_PAGO,CIF,ESTADO,DTO_GEN,OPERADORA FROM
PEDIDOS WHERE Fecha >= @INICIO AND "
MyQuery += "Fecha < @FIN order by id_pedido desc "

Dim MyCommand As New SqlClient.SqlCommand
MyCommand.CommandText = MyQuery
MyCommand.Parameters.Add("@INICIO", SqlDbType.DateTime).Value =
Inicio_de_la_Semana
MyCommand.Parameters.Add("@FIN", SqlDbType.DateTime).Value =
Fin_de_la_Semana.AddDays(1)

Preguntas similares

 

Busqueda sugerida :