5 replies to this topic

[MACUL]

Página oficial do produto
http://www.businesso...roducts_crystal

Pacotes do Crystal

<a href="http://resources.bus...st2008_x86.zip" target="_blank">
Crystal Reports Basic for Visual Studio .NET 2008 (Updated May 2008) - Crystal Reports Basic for Visual Studio 2008 x86 Redistributable Package (32 bit)</a>


Crystal Reports for Visual Studio .NET 2005 - Service Pack 1 (Updated Nov. 2007) - Crystal Reports for .NET Framework 2.0 x86 Redistributable Package (32 bit)



post no MSDN atualizado por Laercio da Silva Freitas



O Crystal pode ser baixado gratuitamente, desenvolver toda sua aplicação e depois utilizar apenas o Viewer.


Desenvolvendo relatório independente do banco de dados utilizado.

http://support.busin..._ttxado.pdf.asp

O que são?

São tipos de relatorios feitos no crystal reports e preenchidos dinamicamente via sql pelo programa.

Vantagens:

independente de banco de dados;
pode-se ter um mesmo relatorio, com varios argumentos distintos;
Desvantagens:

parte da implementacao fica no codigo fonte;


Vamos ao que interessa, a criação de nosso .ttx. (versão do crystal utilizada: 8.5)


>> CRIAÇÃO <<


Passo 1:
Anote todos os campos que voce vai usar no crystal

Passo 2:
Abra o crystal

Passo 3:
Peça um form vazio e no Data Explorer selecione:
DATABASE
MORE DATA SOURCES
ACTIVE DATA
ACTIVE DATA (FIELD DEFINITIONS ONLY)
em select DATA SOURCE

Passo 4:

digite um nome de arquivo .ttx

Passo 5:
após pressione 'new' e digite cada campo que voce vai precisar no crystal

Passo 6:
Desenhe o seu rpt e pronto.



>> CHAMADA <<

Passo 7:
no VB, monte um recordset, via sql, com os campos iguais e na sequencia que voce digitou no ttx


ex: rs.CursorLocation = adUseClient
rs.Open seusql, conexao, adOpenForwardOnly, adLockReadOnly, adCmdText

Crystal.SetTablePrivateData 0, 3, rs
Crystal.ReportFileName = App.Path & "\seurpt"
crystal.WindowState = crptMaximized
crystal.ReportTitle = "titulo do relatorio"
crystal.WindowTitle = "titulo da janela"
Crystal.Destination = crptToPrinter
Crystal.PrintReport




Resumindo, o seu crystal fica independente de qualquer banco, o sql passa a ser construindo no vb da forma que voce quiser.

Não depende de ODBC ou coisa do genero.

Abraços!!

http://www.vbweb.com...cle.asp?aid=298




Crystal Reports XI Release 2 - Adding the Report Logon Code
Crystal Reports Basic for Visual Studio 2008 - ConnectionInfo Class

VB.NET

Private Sub SetConnectionInfo(ByVal myTable As String, _
		   ByVal myServer As String, ByVal myDatabase As String, _
		   ByVal myUser As String, ByVal myPassword As String)

		   Dim myLogOnInfo As New TableLogOnInfo()
		   myLogOnInfo = Report.Database.Tables.Item(myTable).LogOnInfo

		   Dim myConnectionInfo As New ConnectionInfo()
		   myConnectionInfo = Report.Database.Tables.Item(myTable).LogOnInfo.ConnectionInfo

		   myConnectionInfo.DatabaseName = myDatabase
		   myConnectionInfo.ServerName = myServer
		   myConnectionInfo.Password = myPassword
		   myConnectionInfo.UserID = myUser
		   Report.Database.Tables.Item(myTable).ApplyLogOnInfo(myLogOnInfo)
		End Sub

C#

private void SetConnectionInfo (string table, string server, string database, string user, string password)
		{ 
		   TableLogOnInfo logOnInfo = new TableLogOnInfo();
		   logOnInfo = Report.Database.Tables[table].LogOnInfo;
		   ConnectionInfo connectionInfo = new ConnectionInfo ();
		   connectionInfo = logOnInfo.ConnectionInfo;

		   connectionInfo.DatabaseName = database;
		   connectionInfo.ServerName = server;
		   connectionInfo.Password = password;
		   connectionInfo.UserID = user;
		   Report.Database.Tables [table].ApplyLogOnInfo(logOnInfo);
		}

Edição feita por: MACUL, 28/01/2009, 15:42.

[MACUL]

exemplo http://www.codeguru....p/t-288993.html

Dim CrApp1 As New CRPEAuto.Application
Dim CrRep As CRPEAuto.Report
Dim CrDB As CRPEAuto.Database
Dim CrTables As CRPEAuto.DatabaseTables
Dim CrTable As CRPEAuto.DatabaseTable

'open report
Set CrRep = CrApp1.OpenReport(strReportPath)

'set the database object to the reports database
Set CrDB = CrRep.Database

'Set the databasetables object
Set CrTables = CrDB.Tables

'set the databasetable object to the first table in the report
Set CrTable = CrTables(1)

'sets ADO recordset as the data for the first table
CrTable.SetPrivateData 3, rsData

'preview the report with the recordset as the data
CrRep.Preview

Documentação
http://support.busin...rs/autoodbc.pdf

1. Create a New project in Visual Basic 5, select the File menu and the
click on the New option, Standard EXE.
2. Select the Project menu and choose the References option.
3. In the References dialog box, Choose "Crystal Report Engine 6.0
Object Library"
4. If "Crystal Report Engine 6.0 Object Library" is not one of the
available references, click on the Browse button and find Cpeaut32.Dll,
(32 bit) or Cpeaut16.dll (16 bit).
The above steps are equivalent to adding a Seagate Crystal Reports
Custom Control to a form in an application using the Seagate Crystal
Reports OCX.
form.

[MACUL]

+ ajuda para desenvolver

MultipleTable%20DOR_Readme_2.7.1.pdf - print das telas


scr8_ttxado.pdf passo a passo como desenvolver a solução completa (pelo próprio fabricante)
http://resources.bus...scr8_ttxado.pdf


e Relatórios Desconectados.zip - com algum fonte sobre o assunto
http://www.msdnbrasi...o.aspx?id=55073

Attached Files

•  MultipleTable_20DOR_Readme_2.7.1.pdf   578.49KB   10 downloads
•  scr8_ttxado.pdf   121.39KB   9 downloads
•  Relat_rios_Desconectados.zip   119.66KB   20 downloads

Edição feita por: MACUL, 07/11/2007, 09:35.

[MACUL]

Construindo Relatórios com Crystal Reports e ReportViewer

Exemplo completo em VB.NET



Adicionei um form ao projeto Windows Form o nome wfmCarregarDados



Adicione referência (Add reference) ao projeto System.Configuration

'referências do banco de dados

Imports System.Data.SqlClient

Imports System.Data

'referências do crystal reports

Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Shared

'referência ConnectionStrings web.config

Imports System.Configuration

Imports System.Text

Rotina para montar o relatório

Private Sub ListaProdutos()

Dim crReportDocument As New ReportDocument

Dim strConexao = ConfigurationManager.ConnectionStrings("AWorks").ToString

Dim oConn As New SqlConnection

Dim strSQL As New StringBuilder

Dim oTable As New DataTable()

Try

 

'1 passo: carregar o relatório

Dim strPathreport As String = String.Concat(Application.StartupPath.ToString(), "\CrystalReports\rptProdutos.rpt")

strPathreport = strPathreport.Replace("bin\Debug\", "")

crReportDocument.Load(strPathreport)

'configurando para impressão em Landscape

'crReportDocument.PrintOptions.PaperOrientation = PaperOrientation.Landscape

 

'2 passo: passar os dados para o relatório (datatable)

'abrindo conexão com o banco de dados

oConn.ConnectionString = strConexao

oConn.Open()

 

'carregando os dados 

strSQL.Append(" SELECT ")

strSQL.Append(" Production.Product.ProductID, ")

strSQL.Append(" Production.Product.Name, ")

strSQL.Append(" Production.Product.Color, ")

strSQL.Append(" Production.Product.ListPrice, ")

strSQL.Append(" Production.ProductSubcategory.Name AS NameSubcategory ")

strSQL.Append(" FROM ")

strSQL.Append(" Production.Product INNER JOIN Production.ProductSubcategory ")

strSQL.Append(" ON Production.Product.ProductSubcategoryID = Production.ProductSubcategory.ProductSubcategoryID ")

Dim oDA As New SqlDataAdapter(strSQL.ToString, oConn)

oDA.Fill(oTable)

 

'definindo o DataSource do relatório

crReportDocument.SetDataSource(oTable)

 

'

'visualizando o relatório

'

 

'criar uma instância do form printpreview

Dim ofrmPrintPreview As New wfmPrintPreview

 

'definindo o ReportSource do printpreview

ofrmPrintPreview.crPrintPreview.DisplayGroupTree = False

ofrmPrintPreview.crPrintPreview.ReportSource = crReportDocument

 

'exibir o form

ofrmPrintPreview.Show()

 

Catch ex As Exception

System.Diagnostics.Debug.WriteLine(ex.Message)

Finally

 

'liberando os objetos 

oConn.Dispose()

oTable.Dispose()

oConn = Nothing

oTable = Nothing

End Try

End Sub

Adicione um controle Button ao form com o nome btnCarregarRelCrystalReports e adicione o seguinte código no evento btnCarregarRelCrystalReports_Click

ListaProdutos()

Agora, adicione um novo form o nome wfmPrintPreview.vb, adicione um controle CrystalReportViewer com o nome crPrintPreview e adicione o seguinte código:

Private Sub wfmPrintPreview_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

 

'liberando os objetos 

Me.crPrintPreview.Dispose()

 

End Sub

O Resultado é um PrintPreview com Crystal Reports .NET sem utilizar Refresh e um form independente para visualizar os relatórios da aplicação.

Utilizei nesse exemplo o banco de dados AdventureWorks e banco de dados SQL-Server 2005 express.

Laercio da Silva Freitas
ORIGEM : http://forums.micros...DN-BR/ShowPo...



Alguns Links
http://forums.micros...o...3&SiteID=21

http://www.msdnbrasi...D-WebCasts.aspx

http://download.micr...ewer_Parte1.zip

http://download.micr...ewer_Parte2.zip

http://download.micr...ewer_Parte3.zip

http://download.micr...eportViewer.zip

http://download.micr...rtViewer_P3.zip

Informações de Suporte E Licenciamento
http://support.micro...kb/317789/pt-br

Visual Studio 2005 Crystal Reports Security Update

http://www.microsoft...;displaylang=en

Crystal Reports for Visual Studio 2005

Crystal Reports Versions
http://msdn.microsof...607(VS.80).aspx


http://forums.micros...o...7&SiteID=21

Edição feita por: MACUL, 21/08/2009, 09:15.

[LarPhozyHah]

Premature Ejaculation Propecia Generique France viagra Achat Viagra Sur Net

[HaroNism]

Get Levitra Online Viagra Maroc Prix online pharmacy Cialis 20 Miligramos Amoxicillin And Meningitis Cytotec Marrakech