ayuda kiero filtrar por fechas y buscar por combobox1 y combobox2

Question

amigo  una ayuda  por favor

quiero filtrar por fechas de inicio y fin  y buscar por combobox1 y  combobox2   y mostrarlo en datagridview 

aqui esta mis codigo fuentes

Dim CON As New SqlConnection("server=.\sqlexpress;database=MASTER;integrated security = true")


        Dim x As String = Me.DateTimePicker1.Text
        Dim xx As String = Me.DateTimePicker2.Text

        Dim PRODUCTOS As String = Me.ComboBox1.Text

        Dim BODEGA As String = Me.ComboBox2.Text

        Dim sql As String = "select * FROM  PRODUCTOS where  PRODUCTOS AND BODEGA AND FECHA between '" + PRODUCTOS + "' AND '" + BODEGA + "' AND '" + x + "' and '" + xx + "'"

        Dim dacliente As New SqlDataAdapter(sql, CON)
        Dim dtcliente As New DataTable
        dacliente.Fill(dtcliente)
        Me.DataGridView1.DataSource = dtcliente

 ayudame por favor

Answer 1

Para empezar debes usar parámetros en la consulta. Quedaría algo como esto:

Dim x As New DateTime = DateTimePicker1.Value.Date
Dim xx As New DateTime = DateTimePicker2.Value.Date
Using cnn As New SqlConnection("Pon aquí la cadena de conexión")
    Dim sqlbuscar As String SqlBuscar = "SELECT * FROM Productos" _ 
   	& " WHERE PRODUCTOS=@producto AND BODEGA=@bodega AND FECHA Between @fecha1 AND @fecha2" 
    Dim cmd As New SqlCommand(Sqlbuscar, cnn) 
    cmd.Parameter.AddWithValue("@producto", PRODUCTOS)
    cmd.Parameter.AddWithValue("@bodega", BODEGA)
    cmd.Parameter.AddWithValue("@fecha1", x)
    cmd.Parameter.AddWithValue("@fecha2", xx)

    Dim da As New SqlDataAdapter(cmd)
    Dim dt As New DataTable() 
    da.Fill(dt)
    Me.DataGridView1.DataSource = dtcliente
End Using 

---

Saludos, Javier J

Answer 2

amigo me sigue votando error  amigo en toda las lineas

Answer 3

 

amigo kiero imprimir   en cristal reportes 

  por fechas  y   selecionamos  combobox 1 y  tambien seleccionamos combobox 2        imprimirlo

por favor me pueden ayudar amigos  
 

        Dim x As String = FECHA_ENTRADAS.DateTimePicker1.Text
        Dim xx As String = FECHA_ENTRADAS.DateTimePicker2.Text

        Dim PRODUCTOS As String = FECHA_ENTRADAS.ComboBox1.Text

        Dim BODEGA As String = FECHA_ENTRADAS.ComboBox2.Text

        Using cnn As New SqlConnection("server=.\sqlexpress;database=ENTRADA_SALIDA;integrated security = true")


            Dim sqlbuscar As String = "SELECT * FROM ENTRADAS" & " WHERE PRODUCTO=@producto AND BODEGA=@bodega AND FECHA Between @fecha1 AND @fecha2"



            Dim cmd As New SqlCommand(sqlbuscar, cnn)



            cmd.Parameters.AddWithValue("@producto", PRODUCTOS)
            cmd.Parameters.AddWithValue("@bodega", BODEGA)

            cmd.Parameters.AddWithValue("@fecha1", x)
            cmd.Parameters.AddWithValue("@fecha2", xx)

            Dim tabcate As New SqlDataAdapter(sqlbuscar, cn)

'  me sale error  por aqui  en  declara una variable @productos  porque si ya puse pero me sigue saliendo error'

            tabcate.Fill(dset, "ENTRADAS")


            Dim reportar As New ENTRADA_

            reportar.SetDataSource(dset)

            CrystalReportViewer1.ReportSource = reportar


        End Using

        ''''''''''''''''''''''''''''''''''''''''''''''

Answer 4

 variable @producto  me sale error,  por favor ayudamen amigos

Answer 5

amigo kiero imprimir   en cristal reportes 

  por fechas  y   selecionamos  combobox 1 y  tambien seleccionamos combobox 2        imprimirlo

por favor me pueden ayudar amigos  

        Dim x As String = FECHA_ENTRADAS.DateTimePicker1.Text
        Dim xx As String = FECHA_ENTRADAS.DateTimePicker2.Text

        Dim PRODUCTOS As String = FECHA_ENTRADAS.ComboBox1.Text

        Dim BODEGA As String = FECHA_ENTRADAS.ComboBox2.Text

        Using cnn As New SqlConnection("server=.\sqlexpress;database=ENTRADA_SALIDA;integrated security = true")


            Dim sqlbuscar As String = "SELECT * FROM ENTRADAS" & " WHERE PRODUCTO=@producto AND BODEGA=@bodega AND FECHA Between @fecha1 AND @fecha2"



            Dim cmd As New SqlCommand(sqlbuscar, cnn)



            cmd.Parameters.AddWithValue("@producto", PRODUCTOS)
            cmd.Parameters.AddWithValue("@bodega", BODEGA)

            cmd.Parameters.AddWithValue("@fecha1", x)
            cmd.Parameters.AddWithValue("@fecha2", xx)

            Dim tabcate As New SqlDataAdapter(sqlbuscar, cn)

'  me sale error  por aqui  en  declara una variable @producto  porque si ya puse pero me sigue saliendo error'

            tabcate.Fill(dset, "ENTRADAS")


            Dim reportar As New ENTRADA_

            reportar.SetDataSource(dset)

            CrystalReportViewer1.ReportSource = reportar


        End Using

        ''''''''''''''''''''''''''''''''''''''''''''''