Jump to content
CACO8

Crystal Reports usando dataset

Recommended Posts

CACO8

Bom dia pessoal. Venho aqui pois desenvolvi uma aplicação em Visual Basic 2010 e Access 2007 e pretendo agora fazer uns relatórios usando o Crystal Reports. As bases de dados são genéricas e como tal pretendo efectuar o preenchimento dos relatórios usando datasets e sql queries. Já tenho algum código feito, criei um Dataset1 (genérico) que preencho com informações de uma base de dados, mas não consigo pôr a funcionar. O editor regista uma enormidade de erros no Dataset1.designer.vb (dataset criado manualmente). Se me pudessem dar umas luzes para resolver este impasse seria agradável. Em baixo vai o código que tenho feito até agora.

Imports System.Data.OleDb
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Data
Public Class ROTINAS___relatório

   Private Sub ROTINAS___relatório_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       'define a string de conexão com o banco de dados
       Dim strCon As String = "Provider = Microsoft.ACE.OLEDB.12.0;DataSource=C:\Users\PC\Documents\IST\Tese\Bases de dados Access\2ªtentativa\BD2.accdb"

       'define o objeto OledbConnection usando a string de conexão
       Dim conex As New OleDbConnection(strCon)

       'define a instrução SQL2 que será usada para extrair as linhas da tabela Publishers
       Dim sql2 As String = "SELECT [TIPO EQUIPAMENTO], [COD EQUIPAMENTO], [COD ROTINA], [OPERAÇÃO] FROM ROTINASMANUTENÇÃO WHERE [ESTADO ROTINA] = 'ACTIVA' "

       'Cria o objeto DataAdapter
       Dim adaptador2 As New OleDbDataAdapter(sql2, conex)
       Dim ds As New DataSet1
       adaptador2.Fill(ds, "ROTINASMANUTENÇÃO")

       Dim objRpt As New CrystalReport2
       objRpt.SetDataSource(DataSet1)
       CrystalReportViewer1.ReportSource = objRpt
       CrystalReportViewer1.Refresh()

   End Sub
End Class

Obrigado pela ajuda e atenção

Edited by thoga31
Tags CODE + GeSHi

Share this post


Link to post
Share on other sites
bioshock

Porque é que estás a criar vários objectos que já estão criados em design? Cria tudo num único sítio.

Dim adaptador As New OleDbDataAdapter(sql2, conex)
Dim ds As New DataSet
adaptador.Fill(ds, 0)

Dim objRpt As New CrystalReport
objRpt.SetDataSource(ds)
CrystalReportViewer1.ReportSource = objRpt
CrystalReportViewer1.Refresh()

Share this post


Link to post
Share on other sites
CACO8

Realmente tens razão bioshock, obrigado. Mas continuo com o problema dos erros que falei inicialmente :\

Share this post


Link to post
Share on other sites
bioshock

É complicado te ajudar quando tu dizes

O editor regista uma enormidade de erros no Dataset1.designer.vb

Ora, que erros? Se apagares o objecto Dataset1, o que acontece? Consegues aceder perfeitamente ao form?

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.