Hola a todos.

Espero que puedan ayudarme con este problemita, les comento, realize un programa en visual basic .net 2005, hago las conexiones a base de datos por codigo, los dataset los creo por codigo, igual los dataadapter, realizo un query, y el resultado lo despliego en un datagrid, y me sale todo OK, ahora al realizar el reporte con crystal report me pide un dataset fisico el cual yo no lo tengo, lo tengo todo por codigo, como puedo vaciar la informacion que me muestra el datagrid a un reporte?.

Quedo muy atento a sus sugerencias.

Muchas gracias de antemano.

Saludos.

Crear Reporte de Una sola Tabla

1. Crear un formulario.
2. Agregar al formulario, el cristal report viewer.
3. Generar un archivo de reporte del cristal report .rpt
4. Agregar un DataSource. (Al crear un datasource se va a crear una dataset)
5. Crear el Dataset, elegir tablas que entraran al dataset, luego les pedirá realizar las relaciones entre las tablas que seleccionaron, pueden eliminar los links creados por defecto o realizar las relaciones de las tablas.
6. En la parte izquierda la pantalla se abrirá el field Explorer(Explorador de campos), ahí le dan botón derecho sobre database fields(Campo de Base de Datos), luego entran a database expert, se abrirá una pantalla, entran a proyect data, luego a ado.net datasets, y ahí aparece las tablas que seleccionaron para el dataset elijan una para que entre al reporte.
7. En el field Explorer en database fields aparecera la tabla que elijieron, lo unico que hacen es jalar los campos de la base hacia el reporte.(Hacer un clic sobre el campo y sin soltar ese clic lo llevan hacia el reporte)
8. Pueden agregarle titulos, etc. Con eso ya se tendría diseñado el reporte. Solo falta la parte de la codificacion.
9. Al formulario que crearon anteriormente la dan doble click para que ingrese a la codificación de vb.net.
10. las librería que deben importar son dependiendo a la base que se conectan en este caso lo haré con Oracle:
imports system.data
imports system.oledb
11. declaran variables puclicas:
dim con as new oledbconnection
dim ds as new dataset
dim da as new oledbdataadapter
dim dt as datatable
dim comando as new oledbcommand
12. En el procedimiento de LOAD colocan el siguiente codigo:
Dim reporte as new nombre_reporte
Dt.clear()
Dim conn as string=”Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=nombre_base;Password=contraseña;Data Source=cadena”
Con=new oledbconnection(conn)
Commando.connection=con
Commando.comandtext=”select * from nombre_tabla_de_databasefield”
Da = new oledbdataadapter(commando)
Da.fill(dt)
Reporte.setdatasource(dt)
Reporte.refresh()
Crystalreportviewer1.reportsource=report
Crystalreportviewer1.refresh()
13. Ejecutan el programa y con esto verán que el reporte funciona.




Crear Reporte con sentencia SQL.

1. Crear un formulario.
2. Agregar al formulario, el cristal report viewer.
3. Generar un archivo de reporte del cristal report .rpt
4. Agregar un DataSource. (Al crear un datasource se va a crear una dataset)
5. Crear el Dataset, elegir tablas que entraran al dataset, luego les pedirá realizar las relaciones entre las tablas que seleccionaron, pueden eliminar los links creados por defecto o realizar las relaciones de las tablas.
6. En la parte derecha de la pantalla aparecerá el dataset que crearon, hacen doble click sobre el dataset, se abrirá el diseñador. Hacen botón derecho sobre cualquier lugar del diseñador y agregan un dataadapter les aparecerá el wizard y al final les pedirá que agreguen un sql, ponen el sql sin campos específicos. Ej.
Select a.nombre,p.producto,p.precio
From cliente a, producto p
Where a.codigo_cli=p.codigo_cli
Order by a.nombre
No como:
Select a.nombre,p.producto,p.precio
From cliente a, producto p
Where a.codigo_cli=p.codigo_cli and
Nombre=’Jose’ and fecha between ’10-05-07’ and ’12-05-07’
Order by a.nombre
7. Le ponen un nombre al dataadapter
8. En la parte izquierda la pantalla se abrirá el field Explorer (Explorador de campos), ahí le dan botón derecho sobre database fields (Campo de Base de Datos), luego entran a database expert, se abrirá una pantalla, entran a proyect data, luego a ado.net datasets, y ahí aparece las tablas que seleccionaron para el dataset elijan el dataadapter que crearon para que entre al reporte.
9. En el field Explorer en database fields aparecerá la tabla que eligieron, lo único que hacen es jalar los campos de la base hacia el reporte.(Hacer un clic sobre el campo y sin soltar ese click lo llevan hacia el reporte)
10. Pueden agregarle títulos, etc. Con eso ya se tendría diseñado el reporte. Solo falta la parte de la codificación.
11. Al formulario que crearon anteriormente la dan doble click para que ingrese a la codificación de vb.net.
12. las librería que deben importar son dependiendo a la base que se conectan en este caso lo haré con Oracle:
imports system.data
imports system.oledb
13. declaran variables puclicas:
dim con as new oledbconnection
dim ds as new dataset
dim da as new oledbdataadapter
dim dt as datatable
dim comando as new oledbcommand
14. En el procedimiento de LOAD colocan el siguiente codigo:
Dim reporte as new nombre_reporte
Dt.clear()
Dim conn as string=”Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=nombre_base;Password=contraseña;Data Source=cadena”
Con=new oledbconnection(conn)
Commando.connection=con
Commando.comandtext=”aqui meten el sql completo con campos específicos y todo”
Da = new oledbdataadapter(commando)
Da.fill(dt)
Reporte.setdatasource(dt)
Reporte.refresh()
Crystalreportviewer1.reportsource=report
Crystalreportviewer1.refresh()
15. Ejecutan el programa y con esto verán que el reporte funciona.




Crear Reporte con sentencia SQL y parámetros


1. Crear un formulario.
2. Agregar al formulario, el cristal report viewer.
3. Generar un archivo de reporte del cristal report .rpt
4. Agregar un DataSource. (Al crear un datasource se va a crear una dataset)
5. Crear el Dataset, elegir tablas que entraran al dataset, luego les pedirá realizar las relaciones entre las tablas que seleccionaron, pueden eliminar los links creados por defecto o realizar las relaciones de las tablas.
6. En la parte derecha de la pantalla aparecerá el dataset que crearon, hacen doble click sobre el dataset, se abrirá el diseñador. Hacen botón derecho sobre cualquier lugar del diseñador y agregan un dataadapter les aparecerá el wizard y al final les pedirá que agreguen un sql, ponen el sql sin campos específicos. Ej.
Select a.nombre,p.producto,p.precio
From cliente a, producto p
Where a.codigo_cli=p.codigo_cli
Order by a.nombre
No como:
Select a.nombre,p.producto,p.precio
From cliente a, producto p
Where a.codigo_cli=p.codigo_cli and
Nombre=’Jose’ and fecha between ’10-05-07’ and ’12-05-07’
Order by a.nombre
7. Le ponen un nombre al dataadapter
8. En la parte izquierda la pantalla se abrirá el field Explorer (Explorador de campos), ahí le dan botón derecho sobre database fields (Campo de Base de Datos), luego entran a database expert, se abrirá una pantalla, entran a proyect data, luego a ado.net datasets, y ahí aparece las tablas que seleccionaron para el dataset elijan el dataadapter que crearon para que entre al reporte.
9. En el field Explorer en database fields aparecerá la tabla que eligieron, lo único que hacen es jalar los campos de la base hacia el reporte.(Hacer un clic sobre el campo y sin soltar ese click lo llevan hacia el reporte)
10. En el lado izquierdo de la pantalla, en Field Explorer, elijan field parameters, ahí agregan los parámetros que desean.
11. Pueden agregarle títulos, etc. Con eso ya se tendría diseñado el reporte. Solo falta la parte de la codificación.
12. Al formulario que crearon anteriormente la dan doble click para que ingrese a la codificación de vb.net.
13. las librería que deben importar son dependiendo a la base que se conectan en este caso lo haré con Oracle:
imports system.data
imports system.oledb
14. declaran variables puclicas:
dim con as new oledbconnection
dim ds as new dataset
dim da as new oledbdataadapter
dim dt as datatable
dim comando as new oledbcommand
15. En el procedimiento de LOAD colocan el siguiente codigo:
Dim reporte as new nombre_reporte
Dt.clear()
Dim conn as string=”Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=nombre_base;Password=contraseña;Data Source=cadena”
Con=new oledbconnection(conn)
Commando.connection=con
Commando.comandtext=”aqui meten el sql completo con campos específicos y todo”
Da = new oledbdataadapter(commando)
Da.fill(dt)
Reporte.setdatasource(dt)
Reporte.refresh()

Reporte.SetParameterValue(“nombre_parametro1_que_crearon”,campo_de_texto)
Reporte.SetParameterValue(“nombre_parametro2_que_crearon”,campo_de_texto)

Crystalreportviewer1.reportsource=report
Crystalreportviewer1.refresh()
16. Ejecutan el programa y con esto verán que el reporte funciona.