Jueves 21 de junio de 2007 a las 08:50
Hola...!!!
nesecito un poco de ayuda tengo el siguiente codico que me permite hacer una busqueda atraves de consulta sql con ciertos criterios ( intervalo de fechas ) y lo visualizo en un DataGrid, bien no me da ningun problema pero ( aqui biene el "pero..." )
ahora nesecito visualizarlo en un CrystalReportViewer. Como lo hago sin tener que usar el asistente de CrystalReport? por que ya lo intente pero el problema es que cuando lo ejecuto en otra maquina no me da ningun resultado por eso necesito hacerlo en codigo (desde la conexion hasta la creacion del Report). Bien de antemano Gracias por culquier ayuda que puedas brindarme.
Private Sub IntervaloFecha(ByVal desde As String, ByVal hasta As String)
Dim conexion As sqlConnection = new sqlConnection("SERVER=server;USER=winUser;PDW=pass;DATABASE=ControlPrest")
Dim cmd As SqlCommand = New SqlCommand
Dim da As New SqlDataAdapter
Dim cadena As String = _
"SELECT No_Comprobante,Monto_Prestamo,Fecha_Inicio,Fecha_Vencimiento " & _
"FROM Prestamo " & _
"WHERE ( Fecha_Inicio >= @Fecha1 AND Fecha_Inicio <= @Fecha2 ) "
cmd.CommandText = cadena
cmd.Connection = conexion
cmd.CommandType = CommandType.Text
cmd.CommandTimeout = 90
cmd.Parameters.Add(New SqlParameter("@Fecha1", SqlDbType.DateTime))
cmd.Parameters.Add(New SqlParameter("@Fecha2", SqlDbType.DateTime))
cmd.Parameters("@Fecha1").Value = desde
cmd.Parameters("@Fecha2").Value = hasta
da.SelectCommand = cmd
Dim dataset As New DataSet
da.Fill(datasetprueba, "Prestamo")
DataGrid1.DataSource = dataset.Tables(0)
End Sub
