hola veran, tengo el siguiente problema:
estoy trabajando con visualo 6, y tengo un codigo que genera un reporte de datareport, es el siguiente:
Dim listado As ADODB.Command 'Objeto de tipo comando
Dim Entorn As ENTORNO 'Nuestro entorno de datos
Screen.MousePointer = vbHourglass
'Iniciamos el entorno de datos.
Set Entorn = New ENTORNO
Entorn.conexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= C:\MIPC\BD\admin.mdb"
Set listado = Entorn.Commands("reportsemanal")
listado.CommandType = adCmdText
'listado.CommandText = "SELECT * FROM rentas where fecha BETWEEN #" & fecha1.Text & "# AND #" & fecha2.Text & "# order by fecha"
listado.CommandText = "SELECT SUM(total) FROM reportediario where fecha BETWEEN #" & Format(fecha1.Text, "mm/dd/yyyy") & "# AND #" & Format(fecha2.Text, "mm/dd/yyyy") & "#"
reporte_semanal.Sections(2).Controls("fechadelinfo rme").Caption = fecha1.Text
reporte_semanal.Sections(2).Controls("fechadelinfo rme2").Caption = fecha2.Text
Load reporte_semanal
Screen.MousePointer = vbDefault
reporte_semanal.Show vbModal
se daran cuenta que debo sumar al campo total, dependiendo de una rango de fechas, lo que no se es como pasarle esa consulta al datareport, supongo que a un objeto, pero ya lo intente y no funciona.
}bueno espero sus comentarios.
saludos.
