Hola ke tal
lo que primero tienes ke hacer es diseñar una base de datos, en la cual va a estar almacenada la informacion
puedes usar procedimientos almacenados para realizar la busqueda o puedes hacer una instruccion SQL dentro del mismo codigo del lenguaje , cuando se ejecuta la instruccion debes de visualizar los datos ya sea en caja te texto o un control como el datagrid
Ejemplo:
Private Sub dtpFecha2_ValueChanged(.....
fecha2 = dtpFecha2.Value.Date
buscarordenes() '//Llamamos al procedimiento
End Sub
Sub buscarordenes()
Dim dataDa As New SqlDataAdapter _
("select IdOrden,fechaRequerida,C.*,numSolin,requerimientos from detalleOrden D inner join Cliente C on D.idClien=C.idclien where FechaRequerida Between ' " & fecha1 & "'and '" & fecha2 & "'", cn)
Dim Dsden As New DataSet
Try
Me.lstEliminarOrden.Items.Clear()
dataDa.Fill(Dsden, "detalleOrden")
Me.grdPedidos.DataSource = Dsden.Tables("detalleOrden")
Catch ex As Exception
MessageBox.Show("Datos no encontrados", ex.Message)
Finally
cn.Close()
End Try
End Sub
Espero y le entiendas a mi codigo
::::Esta es una instriuccion Sql dentro del lenguaje::::::::::
en cual va a seleccionar una registro de la bd el cual la variable
fecha2 contiene la fecha para realizar la busqueda
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
"select IdOrden,fechaRequerida,C.*,numSolin,requerimientos from detalleOrden D inner join Cliente C on D.idClien=C.idclien where FechaRequerida Between ' " & fecha1 & "'and '" &
fecha2 & "'"
:::::::::::::::::: Me.grdPedidos::::::
es nuestro contenedor de la selecion de los datos aki se mostraran los resultados espreo ke comprendas el codigo
::::::::::::::::::::..............Suerte
Autor