CRYSTALREPORT VIA CODIGO
Bom dia
Colegas usando vb6 com active Report eu fazia como abaixo
Colocava um form do active na tela e desenha o relatório(campos,Labels,Grupos) nomeando os campos com o mesmo nome que viria de um select. ou recordset desconectado
para abrir o relatorio bastava eu fazer um select e passar pro datasource do objeto ADO do relatório.
Pergunto tem como fazer no crystal Report com esse mesmo esquema ?
pois utilizo o Firebird, e 50% do relatórios não são originados de uma ou duas tabelas.
tipo eu vou selecionnado tabelas e adiciono em um recordset. abaixo está pequena parte
Rsado = New ADODB.Recordset
Rsado.Fields.Append([Ô]ID[Ô], ADODB.DataTypeEnum.adInteger)
Rsado.Fields.Append([Ô]Data[Ô], ADODB.DataTypeEnum.adDate)
Rsado.Fields.Append([Ô]Caixa1[Ô], ADODB.DataTypeEnum.adVarWChar, 2)
rsado.open()
select * tabela.......................
do while not tabela.EOF
rsado.Field([Ô]ID[Ô]).value=tabela([Ô]Campo[ô])
rsado.Fields([Ô]Data[Ô]).Value=tabela([Ô]Campo[Ô])
rsado.Update
tabela.MoveNext
loop
........... e por ai vai pra varias tabelas
no final após adicionar todos os dados
RptCobranca.DataAdo.Recordset = Rsado
RptCobranca.Show 1
rsado.close
set rsado=nothing
,
Colegas usando vb6 com active Report eu fazia como abaixo
Colocava um form do active na tela e desenha o relatório(campos,Labels,Grupos) nomeando os campos com o mesmo nome que viria de um select. ou recordset desconectado
para abrir o relatorio bastava eu fazer um select e passar pro datasource do objeto ADO do relatório.
Pergunto tem como fazer no crystal Report com esse mesmo esquema ?
pois utilizo o Firebird, e 50% do relatórios não são originados de uma ou duas tabelas.
tipo eu vou selecionnado tabelas e adiciono em um recordset. abaixo está pequena parte
Rsado = New ADODB.Recordset
Rsado.Fields.Append([Ô]ID[Ô], ADODB.DataTypeEnum.adInteger)
Rsado.Fields.Append([Ô]Data[Ô], ADODB.DataTypeEnum.adDate)
Rsado.Fields.Append([Ô]Caixa1[Ô], ADODB.DataTypeEnum.adVarWChar, 2)
rsado.open()
select * tabela.......................
do while not tabela.EOF
rsado.Field([Ô]ID[Ô]).value=tabela([Ô]Campo[ô])
rsado.Fields([Ô]Data[Ô]).Value=tabela([Ô]Campo[Ô])
rsado.Update
tabela.MoveNext
loop
........... e por ai vai pra varias tabelas
no final após adicionar todos os dados
RptCobranca.DataAdo.Recordset = Rsado
RptCobranca.Show 1
rsado.close
set rsado=nothing
,
Veja se esse exemplo te auxilia.
http://vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8836
A idéia utilizada é criar um Dataset Tipado, alimentar o mesmo com dados oriundos do BD, Form... e carregar o Report.
http://vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8836
A idéia utilizada é criar um Dataset Tipado, alimentar o mesmo com dados oriundos do BD, Form... e carregar o Report.
Tópico encerrado , respostas não são mais permitidas