QUERY CRYSTAL

FELIPEGSA 16/08/2010 10:15:00
#350352
Pessoal,

gostaria de gerar relatório através de um query, mas o relatório não está sendo gerado o relatório.....e não da erro

Segue o codigo

[ô]Criar um objeto Datatable
Dim ObjTable As DataTable
[ô]Criar um objeto DataAdapter para executar o select
Dim da As Odbc.OdbcDataAdapter
Dim conn As Odbc.OdbcConnection
Dim tableStyle As New DataGridTableStyle
Dim column As New DataGridTextBoxColumn
Dim sql As String = [Ô]select * from sys030[Ô]
[ô]define a string de conexao com a base de dados
conn = New Odbc.OdbcConnection([Ô]DRIVER={MySQL ODBC 5.1 Driver};SERVER=10.10.1.200;DATABASE=sysisia;UID=root;pwd=forcegalaxy[Ô])

[ô]Criar o comando
da = New Odbc.OdbcDataAdapter(sql, conn) [ô]objeto adapter usado para preencher o dataset
[ô] preencher o DataTable
ObjTable = New DataTable
da.Fill(ObjTable) [ô]preenche o dataset

Dim rpt As New CrystalReport1 [ô]cria um objeto rpt do tipo Relatorios
Dim ds As New DataSet
rpt.SetDataSource(ObjTable) [ô]altera o datasource do relatorio para o dsVeiculos que está preenchido
CrystalReportViewer1.ReportSource = rpt [ô]informa o relatorio que será carregado pelo crystal report viewer
ESLEYSANCHES 05/09/2010 00:19:13
#352257
Dessa forma vc está setando o DataTable o Crystall usa o DataSet.
veja se o exemplo de um projeto meu te ajuda:
Está em C#


            rptBANCOS rpt = new rptBANCOS();
            DataSet DS = new DataSet();

            clsCONEXAO.COMANDO.CommandText = ([Ô]SELECT * FROM tbl_bancos ORDER BY codbanco[Ô]);
            clsCONEXAO.DA.SelectCommand = clsCONEXAO.COMANDO;
            clsCONEXAO.DA.Fill(DS, [Ô]tbl_bancos[Ô]);

            rpt.SetDataSource(DS);
            crystalReportViewer1.ReportSource = rpt;



Espero que sim
Abraços !!!
Tópico encerrado , respostas não são mais permitidas
Voltar