Sección de códigos , trucos y ejemplos para visual basic
316 - DataReport con datos de un recordset desconectado
<Volver> - Anterior - Siguiente
Contenido:
Ejemplo 1
Ejemplo de como poder añadir datos en forma manual con el método AddNew a un recordset , y luego enlazar dicho recordset desconectado a un DataReport para generar un informe.
El siguiente ejemplo utiliza el método AddNew de un objeto Recordset de Ado para agregar los campos y datos en forma manual. Por ejemplo esto es útil cuando se quiere realizar un informe con datos que no están en una base de datos, pueden ser datos de un control ListView, de un FlexGrid, etc.. , o de datos que no estén en ningún control, como es el caso de este ejemplo, en el que los datos es una lista de valores
Primero se crean cuatro campos ( tres de tipo string y uno de tipo Date ) y luego se añaden valores. Por último se enlaza el recordset al Datareport
Pasos para crear el ejemplo
La vista del reporte es la siguiente:
Como se dijo se agregan cuatro campos. Los tres primeros campos ( Nombre , Apellido y Localidad ) son de tipo String , y el campo Fecha es de tipo Date.
Para crear los campos , antes de agregar los datos con AddNew, se utiliza el método Append del objeto Fields. El método Append tiene cuatro parámetros:
Recordset.Fields.Append ( Name As String, Type As DataTypeEnum, DefinedSize as Long, Atributos
El primero es el nombre del campo.
El segundo parámetro es el tipo de dato. Para datos de cadena string, en este caso se indica el valor adVarChar. Para el campo de tipo Fecha la constante adDate
El último parámetro es la longitud o tamaño del campo. Para los campos de String se asigna el número 50, es decir como máximo 50 caracteres. Para el campo Fecha este parámetro no es necesario
El cuarto parámetro no se utiliza
Controles del DataReport
En el Datareport se deben añadir tantos rptTextBox como campos a motrar, en este caso son cuatro, y se debe colocar en la propiedad DataField de cada uno, el nombre del campo al cual estará enlazado, es decir el campo que mostrará cada uno.
En este ejemplo sería
RptTextBox 1 : DataField >> Nombre
RptTextBox 2: DataField >> Apellido
RptTextBox 3: DataField >> Localidad
RptTextBox 4: DataField >> Fecha
Añadir los datos al Recordset
Para añadir los datos al recordset, se dijo se utiliza el método AddNew conjuntamente con el método Array de visual basic. El método Array permite pasar una lista de valores ( un ParamArray )
Por ejemplo
El_Recordset.AddNew Array(" Campo 1", " Campo 2 "), Array("Valor", "Valor")
Controles y referencias
Al DataReport dejarle el nombre por defecto ( Datareport 1 )
Añadir la referencia de Ado - Microsoft Activex Data Objects
Añadir un Command1 en el formulario
Código fuente en el Clic del CommandButton
Ejemplo 2
Este otro ejemplo también usa un recordset desconectado , pero en este caso se despliega en el datareport, las filas seleccionadas en el grid.
Para indicar la filas a visualizar en el reporte , se utiliza en la última columna del Flex, un check creado con la fuente " Wingdings ".
El caracter Chr(254) es para el check False y el caracter Chr(168) para el true.
Recursos visual basic 6.0 - Enlaces relacionados
- Paginar FlexGrid con un Recordset desconectado
- Ejemplo de DataReport sin DataEnvironment
- Crear informes con Crystal reports
Buscar en Recursos vb
Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2009 - www.recursosvisualbasic.com.ar
