none
ayuda kiero filtrar por fechas y buscar por combobox1 y combobox2 RRS feed

  • Pregunta

  • 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
    miércoles, 5 de marzo de 2014 5:13

Todas las respuestas

  • 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

    miércoles, 5 de marzo de 2014 9:35
  • amigo me sigue votando error  amigo en toda las lineas
    miércoles, 5 de marzo de 2014 13:25
  •  

    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

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

    miércoles, 5 de marzo de 2014 14:26
  •  variable @producto  me sale error,  por favor ayudamen amigos
    miércoles, 5 de marzo de 2014 14:27
  • 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

            ''''''''''''''''''''''''''''''''''''''''''''''
    miércoles, 5 de marzo de 2014 17:02