Programación General > Visual Basic 6.0 e inferiores

 Detalle En Data Report

(1/2) > >>

Anderea:
Hola a todos, alguien ha trabajado en Data Report que me pueda ayudar?
Necesito hacer un reporte en Data Report que me muestre algo como:
Nombre_Departamento Numero_Empleados y en la tabla tengo el detalle de departamento, empleado, pero no sé como ponerlo en Data Report
en la sentencia SQl probé: select Nombre_Departamento, Count(Codigo_Empleado) as Numero_Empleados from DETALLEDEPARTAMENTOS
pero no me sirvió, probé también en vez de count con rcnt y tampoco.
Si alguien tiene una pista por favor ayúdenme.

Jeremy:
Hola Anderea. Yo también estoy trabajando con DataReports, ya que necesito que mi programa saque algunos informes. Aunque en mi caso los datos debo sacarlos de algunas tablas, es decir, son datos de tablas relacionadas. Pero para obtener un informe sencilllo de una sola tabla debes hacer lo siguiente:

Crear un DataEnvironment, asignarle a este una conexión que funciona a modo de ADODC, es decir ahí especificas la ruta de la BBDD donde están las tablas.
Luego a la conexión asignale un COMMAND, y es aquí donde especificas los datos que quieres mostrar en el informe, es decir, escribes la sentencia SQL que quieras.
Ya por último debes crear el DataReport como tal y en la propiedad DataSource asignarle el nombre del DataEnvironment creado.

Espero haberte ayudado, y sino pregunta con más detalle.

 :lol:

Jeremy º¿º

Anderea:
Hola Jeremy, yo en realidad me refería a hacer queris como
select count(campo) from tabla GROUP BY Campo
que no me acepta el data report
Pero mirá si podés decirme como hacer para abrir un reporte de acces desde Visual Basic me arreglarías la vida.

frangel:
Mira lo que yo hago es lo siguiente

   dim mtotal as string
   MTOTAL = "Total de Registros .:  " & rsA.RecordCount

Y luego en la seccion del datareport pongo una etiqueta
y asi lo envio


      With .Sections("TOTALES").Controls
         For I = 1 To 2
            If TypeOf .Item(I) Is RptLabel Then
               .Item(2).Caption = MTOTAL
            End If
         Next I
      End With

Si tienes alguna duda mandame un email

SUERTE :hola:

Anderea:
Gracias por tu ayuda Frangel

Tengo algunas dudas:
Me imagino que lo que haces es poner en una variable el valor del conteo y luego colocar el resultado en el Data Report

Si es así, no entiendo como le dices que campo es el que quieres que te cuente y en que cirscunstancias de condición. Por ciento quién es rsA y luego como le dices en que data report debe ir a escribir



Dim mtotal As String
mtotal = "Total de Registros .: " & rsA.RecordCount

With .Sections("TOTALES").Controls
For I = 1 To 2
If TypeOf .Item(I) Is RptLabel Then
.Item(2).Caption = mtotal
End If
Next I
End With

Navegación

[0] Índice de Mensajes

[#] Página Siguiente