Visual Basic.NET - RANGO DE FECHAS EN VISUAL BASIC

 
Vista:
sin imagen de perfil
Val: 7
Ha aumentado su posición en 3 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

RANGO DE FECHAS EN VISUAL BASIC

Publicado por Carol (5 intervenciones) el 17/09/2019 17:42:41
ESTE ES MI CODIGO DE VISUAL BASIC ESTA CONECTADO A UNA BASE DE DATOS EN ACCESS Y SI ME EJECUTA PERO MAL YA QUE ME MUESTRA TAMBIEN LOS DATOS DE MESES ANTERIORES, NO SE QUE PASA SI ALGUIEN ME PUEDE AYUDAR SERIA DE GRAN AYUDA


1
2
3
4
5
6
7
8
9
10
11
Dim consulta As String
Dim ejecutar As New OleDb.OleDbCommand
Dim leer As OleDb.OleDbDataReader
consulta = "SELECT * FROM INGRESO WHERE FECHA >=#" & DateTimePicker1.Value & "# AND FECHA <= #" & DateTimePicker2.Value & "#"
ejecutar.CommandType = CommandType.Text
ejecutar.Connection = conectar
ejecutar.CommandText = consulta
leer = ejecutar.ExecuteReader
While leer.Read
    DataGridView1.Rows.Add(leer(0), leer(1), leer(2), leer(3), leer(4), leer(5), leer(6))
End While
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
Imágen de perfil de Richard
Val: 180
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

RANGO DE FECHAS EN VISUAL BASIC

Publicado por Richard (54 intervenciones) el 17/09/2019 20:52:43
La forma correcta de trabajar con fechas es usando BETWEEN

SELECT *
FROM registro
WHERE Fecha Between Format(#1/5/2008#,"mm/dd/yyyy") And Format(#31/5/2008#,"mm/dd/yyyy")
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
sin imagen de perfil
Val: 7
Ha aumentado su posición en 3 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

RANGO DE FECHAS EN VISUAL BASIC

Publicado por Carol (5 intervenciones) el 17/09/2019 21:16:17
Gracias por contestar pero sigue sin funcionar :(, no me ejecutó por este error

Captura


1
2
3
4
5
6
7
8
9
10
11
12
Dim consulta As String
Dim ejecutar As New OleDb.OleDbCommand
Dim leer As OleDb.OleDbDataReader
consulta = "SELECT * FROM INGRESO WHERE FECHA BETWEEN Format(#" & DateTimePicker1.Value & "#,MM/dd/yyyy) AND Format(#" & DateTimePicker2.Value & "#,MM/dd/yyyy)"
ejecutar.CommandType = CommandType.Text
ejecutar.Connection = conectar
ejecutar.CommandText = consulta
leer = ejecutar.ExecuteReader
While leer.Read
    DataGridView1.Rows.Add(leer(0), leer(1), leer(2), leer(3), leer(4), leer(5), leer(6))
 
End While


Y asi puse el codigo
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
Imágen de perfil de Richard
Val: 180
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

RANGO DE FECHAS EN VISUAL BASIC

Publicado por Richard (54 intervenciones) el 17/09/2019 21:40:48
Por la tarde te ayudo si es que antes no resuelves este inconveniente.

Por ahora estoy fuera de casa.

Saludos
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
sin imagen de perfil
Val: 83
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

RANGO DE FECHAS EN VISUAL BASIC

Publicado por Raúl Mejía (31 intervenciones) el 17/09/2019 23:26:21
Hola Carol buenas tardes, te envio copia de una función que tengo y que me funciona sin problema:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Verify_Ventas()
    Dim sqlMov As String
    sqlMov = "SELECT * FROM VENTAS WHERE FECHA BETWEEN #" & Format(DTPicker1.Value, "yyyy-MM-dd") & "# AND #" & Format(DTPicker2.Value, "yyyy-MM-dd") & "#"
    Try
        Using cnx As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dSn)
            cnx.Open()
            Dim cmd As New OleDbCommand(sqlMov, cnx)
            cmd.CommandType = CommandType.Text
            Dim rstMOVACU As OleDbDataReader = cmd.ExecuteReader()
            If rstMOVACU.Read = True Then
                btSwitch = 1
            End If
        End Using
    Catch ex As Exception
        MessageBox.Show(ex.Message)  'Si se produce un error lo mostramos
    End Try
End Sub

Espero te sea útil y te haya podido ayudar, saludos.
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
sin imagen de perfil
Val: 7
Ha aumentado su posición en 3 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

RANGO DE FECHAS EN VISUAL BASIC

Publicado por Carol (5 intervenciones) el 17/09/2019 23:33:42
Que son dSn y btswitch?, me marca error en esas :(, perdon soy algo nueva en esto
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
sin imagen de perfil
Val: 7
Ha aumentado su posición en 3 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

RANGO DE FECHAS EN VISUAL BASIC

Publicado por Carol (5 intervenciones) el 18/09/2019 00:03:54
Ya me salio GRACIASSSS
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

RANGO DE FECHAS EN VISUAL BASIC

Publicado por omar (31 intervenciones) el 22/09/2019 17:44:46
Salludos carol Puedes pasarme tu email por favor
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
Imágen de perfil de Phil Rob
Val: 3.353
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

RANGO DE FECHAS EN VISUAL BASIC

Publicado por Phil Rob (1546 intervenciones) el 20/09/2019 23:54:37
Hola,

Este es seguramente demasió tarde ... pero quizá que el sintaxis siguiente es mejor :

1
2
3
4
Dim FechaPrimera As String = DateTimePicker1.Value.ToString("dd/MM/yyyy")
 Dim FechaUltima As String  = DateTimePicker2.Value.ToString("dd/MM/yyyy")
 
sqlMov = "SELECT * FROM VENTAS WHERE FORMAT(FECHA, 'dd/MM/yyyy')  BETWEEN '" & FechaPrimera & "' AND '" & FechaUltima & "'"

Saludos
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