Ver Mensaje Individual
  #7 (permalink)  
Antiguo 10/03/2010, 08:00
klaudio83
 
Fecha de Ingreso: octubre-2009
Mensajes: 70
Antigüedad: 14 años, 6 meses
Puntos: 0
De acuerdo Respuesta: Como registrar fechas, para luego realizar busquedas en vb.net

Gracias por las respuestas, ya logre solucionar mi problema. Dejo la solución por si a alguien mas le pueda servir.

Las consultas por fechas son en formato ej: 2010-02-27, sin embargo, el formato de fecha que captura el DateTimePicker es 27-02-2010. Por lo que claramente no devolvería ningún resultado.

Lo que hice fue invertir el formato, para luego llamar a una función que hiciera el trabajo de consultar.
Y ademas a los datos que buscaba con una fecha determinada, a la fecha le sumaba un día mas, para que buscara en ese rango.

Código vb:
Ver original
  1. If ConsultaFactura.txOpcion.SelectedItem = "Fecha" Then
  2.             Dim valorFecha As String
  3.             valorFecha = Format(ConsultaFactura.DateFecha.Value.Date, "yyyy-MM-dd")
  4.             Dim valorFechaAdd As String
  5.             valorFechaAdd = Format(ConsultaFactura.DateFecha.Value.Date.AddDays(1), "yyyy-MM-dd")
  6.             RecargarGrillaFecha(valorFecha, valorFechaAdd)
  7.         End If

Código vb:
Ver original
  1. Private Sub RecargarGrillaFecha(ByVal fecha As String, ByVal fecha2 As String)
  2.         Dim conexion As New SqlConnection(cadena)
  3.         Dim dt As New DataTable
  4.         Dim MiDataSet As New DataSet
  5.         Dim MiAdapter As SqlDataAdapter
  6.  
  7.         MiAdapter = New SqlDataAdapter("SELECT DISTINCT F.id_factura AS Id, F.fecha AS Fecha, F.cod_cli AS Cliente, C.rut_cli AS Rut, C.nombre_cli AS Nombre, F.monto_final AS Total, F.orden_compra AS Orden, F.obs_factura AS Observaciones  FROM cliente C, factura F, detalle D, producto P WHERE C.cod_cli=F.cod_cli AND F.id_factura=D.id_factura AND D.id_prod=P.id_prod AND F.fecha >= '" & fecha & "' AND F.fecha < '" & fecha2 & "'", conexion)
  8.         MiAdapter.Fill(MiDataSet)
  9.         dt = MiDataSet.Tables(0)
  10.         DataGridView1.DataSource = MiDataSet.Tables(0)
  11.         Label3.Text = "N° de Clientes Mostrados: " & dt.Rows.Count & " "
  12.  
  13.     End Sub

Saludos y Fuerza Chile!, que se puede.

P.D: la consulta por fechas las hice con variables String y no Date

Última edición por klaudio83; 10/03/2010 a las 08:27 Razón: Correccion