Usar crystal report 7 en aplicación implementada en visual basic 6 y base de datos access

Primero debes crear tu reporte en crystal, segundo si vas a ausar un
unforme que selecciones entre dos fechas es conveneiente que las muestres en el informe es aquí en donde usaras estos parámetros
Cry_DesMaq.ParameterFields(0) = "Fecha_Inicial;" & Cal_FecDes.Value & ";true" AQUI HE PASADO UN PARAMETRO
Cry_DesMaq.ParameterFields(1) = "Fecha_Final;" & Cal_FecFin.Value & ";true" AQUI HE PASADO UN SEGUNDO PARAMETRO
Tu reporte debe ser generado con los mismos campos que seleccionas en el query de crystal de lo contrario te daa un erro por no encontrar algunos campos
En tu formulario de visual debes incluir un objeto (ocx) de crystal que lo denes tener activado en componesntes del proyecto (crystal report control) este objeto lo tom, as y lo pones en tu formularios y lo activas dentro del botón que procesara la información que ingresa el usuario, con la tecla derecha del muse sobre este objeto podrás decir si lo vees por pantalla, si deseas configurar la impreso
tra, si desea imprimirlo sin visiualizarlo, si deseas que la ventana se ejecute en maximizado y otras propiedades más.
Cry_DesMaq.SQLQuery = "SELECT * FROM Adm_InformeContable Where Adm_InformeContable.Año =" & Año _
& " AND Adm_InformeContable.Periodo = " & Com_Periodo.ListIndex + 1 _
& " AND Adm_InformeContable.Grupo <> 'A'" _
& " AND Adm_InformeContable.DifMaq NOT BETWEEN -100 AND 100" _
& " AND (Adm_InformeContable.Fec_Aud BETWEEN {ts '" & Format(Cal_FecDes.Value, "yyyy-mm-dd") & " 00:00:00.000'} AND {ts '" & Format(Cal_FecFin.Value, "yyyy-mm-dd") & " 00:00:00.000'} Or " _
& " Adm_InformeContable.Fec_Conteo BETWEEN {ts '" & Format(Cal_FecDes.Value, "yyyy-mm-dd") & " 00:00:00.000'} AND {ts '" & Format(Cal_FecFin.Value, "yyyy-mm-dd") & " 00:00:00.000'}) order by Ruta,DifMaq,Maquina Asc" ESTAS ES AUN CONSULTA SQL QUE LE EMVIO DESDE VISUAL
Cry_DesMaq.Action = 1 EJECUTO MI INFORME.
Objetocrystal. Action 1
Este es el comando que ejecuta tu reporte
Espero te sirva
Si es así agradece aumentando mi puntuación
Un amigo

Tienes que usar la propiedad sqlquery de crystalreport o la selectionformula, te pongo el sqlquery
privae sub command_click()
Dim fecha_desde as date
dim fecha_hasta as date
dim sqlx as string
fecha_desde=Text1.text
fecha_hasta=Text2.text
sqlx="select * from tabla where " _
" date_desde >=" & fecha_desde " _
" and date_hasta <=" & fecha_hasta
cr.destination=crpwindow
cr.reportfilename="report.rpt"
cr.sqlquery=sqlx <<<<<-----' le pasamos la select
cr.action=1

Bien... lo que tienes que hacer es pasar los Parámetros de esas fechas... y elaborar una Consulta SQL... Select * from por Where Fecha < Fecha AND fecha2 > Fecha2 order by asc
Y listo... esa consulta la estableces como origen de datos para el Crystal Report y listo.

Yo no tengo mucha experiencia con crystal reports, pero para buscar datos en una base, ya sea con límites de fechas yo usaría SQL y de última después armaría el reporte del crystal reports.
Para conectarte a una base de datos suponiendo que está en "c:\" y que se llama "mibase.mdb" y que la tabla que contiene los datos se llama "tabla1", y que los campos son "fecha" y "texto" tenés que hacer así:
set TBL as RecordSet
set DBB as DataBase
DBB.OpenDatabase("C:\mibase.mdb")
TBL.Open "SELECT * FROM tabla1 WHERE fecha>'" & text1.text & "AND fecha<'" & text2.text
Do while NOT TBL.EOF
Acá poné el comando para generar el reporte;
para obtener los datos ponés así: TBL! Texto o bien TBL! Fecha
Si esto no llega a aclara todas tus dudas, podes entrar en www.elguruprogramador.com.ar y buscar la sección de visual basic y después buscar un articulo que tiene como titulo "sql en visual basic" o algo muy similar a eso, no recuerdo bien. Hasta cuando yo visité el sitio era el de abajo de todo.
Espero haberte podido ayudar. Atentamente. Manuel Fernández.

Gracias y no t olvides de mi tengo una semana en el banco donde estoy haciendo la pasantía sin hacer nada ya que eso es lo único que m falta para terminar el sistema y mis pasantias pero no tengo tutor si m consigues el ejm t lo agradezco gracias obrigado

Ok si entiendo a lo que te refieres y me seria complicado darte un código bastante extenso y que te fuera complicado que lo comprendas mejor que te parece si nos vemos en algún chat (Por ejemplo el MSN messenger) y lo vamos haciendo juntos para que comprendas prácticamente lo que te vaya diciendo . Pon hora y día yo estaré disponible.

Como no sé si has usado nunca el CrystalReports, vamos a pasar todos los pasos para llamar a un report desde VB :
- Primero insertar el control en el formulario :P
- Destino de la impresión (Window o Printer ) CrystalReport1. Destination = crptToWindow
- Nombre del Informe :
CrystalReport1.ReportFileName = "Path donde está el informe"
CrystalReport1.SelectionFormula = "{Fecha} =DateValue('" & TxtFechaInicial.Value _
& "') AND DateValue({Fecha})<=Date('" &
TxtdataFinal.Value & "')"
- Estado como aparecerá la ventana del informe ( maximizada, minimizada ...)
CrystalReport1.WindowState = 2
- Llama al informe con todas las opciones anteriores
CrystalReport1.Action = 1
La consulta no está del todo terminada claro, debes adecuarla a tus necesidades ( según los campos ue quieras mostrar, de que tabla, etc).
Espero que esto conteste a tu pregunta. SI no es así, no dudes en volver a preguntar.
Magne

Hace tiempo que no hago informes con Crystal, ya que creo haberlos hecho con la versión 4 o 5 de Visual Basic, pero creo recordar que se hacían las consultas en SQL y luego se enlazaban con el informe que querías. Si es así, lo que tienes que hacer es una consulta de selección, en donde coloques como argumento los campos de texto. Por ejemplo:
"SELECT * FROM Datos WHERE Fecha BETWEEN " & text1.text & " AND " & text2.text
Donde Datos es el nombre de la tabla de donde extraerás los datos y Fecha es el campo que almacena las fechas.
Bien, pero desde visual debes capturar los datos (text1 y text2) y cuando los tengas, enviarlos a la consulta, para esto yo te recomendaría que hicieras la consulta en tiempo de ejecución.
Para hacer una consulta en tiempo de ejecución debes crear un QueryDefs y al QueryDefs que creas asignarle el string SQL, asignarle un nombre y luego enlazarlo con el reporte (del Crystal Report) que quieres.
Puede que para hacer esto necesites incluir las referencias de DAO (La base de datos que estas utilizando).

Aquí tienes un ejemplo de lo que necesitas seleccionar el report, y pasar una condición para la búsqueda. Si se produce un error te lo controla. Espero que te valga.
With Principal.Report1
If Option1(0) Then
.ReportFileName = App.Path & "\Report\remesa_det.rpt"
Else
.ReportFileName = App.Path & "\Report\remesa.rpt"
End If
.SelectionFormula = "{Remesa_det.idremesa}= " & CDbl(Te_campo(0))
verror = .PrintReport
If verror <> 0 Then
MsgBox "Ha ocurrido un error " & verror, vbCritical
End If
.SelectionFormula = ""
End If
Else
.ReportFileName = App.Path & "\Report\LIs_Remesas.rpt"
vtemp = vtemp & " {Remesa.fecha} >= date(" & Right(Ent_Desde.Value, 4) & "," & Mid(Ent_Desde.Value, 4, 2) & "," & Left(Ent_Desde.Value, 2) & ")"
vtemp = vtemp & " and {Remesa.fecha} <=date(" & Right(Ent_hasta.Value, 4) & "," & Mid(Ent_hasta.Value, 4, 2) & "," & Left(Ent_hasta.Value, 2) & ")"
.SelectionFormula = vtemp
verror = .PrintReport
If verror <> 0 Then
MsgBox "Ha ocurrido un error " & verror, vbCritical
End If
.SelectionFormula = ""
End If
End With

Te muestro un extracto de mi propio programa como ejemplo:
With oReciboData.CrystalReport
.ReportFileName = cSociosGlobal.DirRpt & "Recibo.rpt"
.SelectionFormula = "{recibos.RECIBO} in " & _
oIRData.ReciboDesde & " to " & oIRData.ReciboHasta
'.SortFields(0) = "+{recibos.RECIBO}"'el orden de los recibos no es significativo para ordenar
.SortFields(0) = "+{recibos.SOCIO}"
.SortFields(1) = "+{recibos.FECHA}"
.Destination = Crystal.DestinationConstants.crptToWindow
End With
Espero que te sirva
(El resto viene en el manual :-)
Suerte!
Jagar

CrystalReport1.Connect = "DSN=" & servicio & ";UID=" & usuario & ";PWD=" & contrasena & ";DSQ=EGAP"
CrystalReport1.ReportFileName = App.Path & "\tb2.rpt"
CrystalReport1.SQLQuery = "select * from transferencias where fecha between '01/01/01' and '01/01/02"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.Destination = crptToPrinter
CrystalReport1.WindowTitle = "TRANSFERENCIAS BANCARIAS"
CrystalReport1.Action = 1

Puedes pasarle una selección al informe de crystal con
Selectionformula, sino sabes la sintaxis te envío un ejemplo.
Suerte

Una consulta antes que nada, si ya sabes usar el crystal report para hacer ese filtro que dices tienes que pasarle el selection por código, puedes escribirme a [email protected] y te envío un ejemplo de lo que quieres ese tipo de selecciones lo hacemos siempre.