
consulta en un reportviewer
Publicado por jorge (3 intervenciones) el 04/12/2021 06:43:16
Buenas noches amigos, tengo problema,
tengo un form donde tengo 2 datetimepicker una para fecha inicial y otro para fecha final, y un datagridview donde me plasma la cosulta de los rangos de fecha que pongo para sacar los registros corespondientes de la base de datos ventas.
pero lo que no puedo hacer es que eso mismo que hago en el form me lo replique en un reportviewer, alguinn puede ayudarme?
este es el codigo que uso para el form con la consuta y el data gridview
Public Class FormReportePeriodo
Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=..\..\BdAUBO.accdb")
Dim Fecha1 As DateTime
Dim Fecha2 As DateTime
Private Sub BMuestraReporte_Click(sender As Object, e As EventArgs) Handles BMuestraReporte.Click
Dim FechaInicial, FechaFinal As DateTime
FechaInicial = DateTimePicker1.Value.Date
FechaFinal = DateTimePicker2.Value.Date
Me.DataGridViewVentas.DataSource = ObtenerPeriodo(FechaInicial, FechaFinal)
End Sub
Private Function ObtenerPeriodo(FechaInicial As DateTime, FechaFinal As DateTime)
Dim Cmd As OleDbCommand = conn.CreateCommand
Cmd.CommandText =
" SELECT * FROM [Base de Datos Salidas] WHERE Fecha BETWEEN @FechaInicial AND @FechaFinal "
Cmd.Parameters.AddWithValue("@FechaInicial", FechaInicial)
Cmd.Parameters.AddWithValue("@FechaFinal", FechaFinal)
Dim Base_de_Datos_SalidasTableAdapter As New OleDbDataAdapter(Cmd)
Dim dt As New DataTable("Ots")
Dim DsPeriodoVentas As New DataSet
Base_de_Datos_SalidasTableAdapter.Fill(dt)
Return dt
End Function
End Class
tengo un form donde tengo 2 datetimepicker una para fecha inicial y otro para fecha final, y un datagridview donde me plasma la cosulta de los rangos de fecha que pongo para sacar los registros corespondientes de la base de datos ventas.
pero lo que no puedo hacer es que eso mismo que hago en el form me lo replique en un reportviewer, alguinn puede ayudarme?
este es el codigo que uso para el form con la consuta y el data gridview
Public Class FormReportePeriodo
Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=..\..\BdAUBO.accdb")
Dim Fecha1 As DateTime
Dim Fecha2 As DateTime
Private Sub BMuestraReporte_Click(sender As Object, e As EventArgs) Handles BMuestraReporte.Click
Dim FechaInicial, FechaFinal As DateTime
FechaInicial = DateTimePicker1.Value.Date
FechaFinal = DateTimePicker2.Value.Date
Me.DataGridViewVentas.DataSource = ObtenerPeriodo(FechaInicial, FechaFinal)
End Sub
Private Function ObtenerPeriodo(FechaInicial As DateTime, FechaFinal As DateTime)
Dim Cmd As OleDbCommand = conn.CreateCommand
Cmd.CommandText =
" SELECT * FROM [Base de Datos Salidas] WHERE Fecha BETWEEN @FechaInicial AND @FechaFinal "
Cmd.Parameters.AddWithValue("@FechaInicial", FechaInicial)
Cmd.Parameters.AddWithValue("@FechaFinal", FechaFinal)
Dim Base_de_Datos_SalidasTableAdapter As New OleDbDataAdapter(Cmd)
Dim dt As New DataTable("Ots")
Dim DsPeriodoVentas As New DataSet
Base_de_Datos_SalidasTableAdapter.Fill(dt)
Return dt
End Function
End Class
Valora esta pregunta


0