Crystal Reports usando dataset

[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 July 12, 2013 at 03:10 PM by thoga31
Tags CODE + GeSHi

[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()

[CACO8]

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

[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?