Visual Basic e Crystal Reports

[DaniloMasters 0]

Eu instalei o Crystal Reports 10 no meu pc, mas no Visual Basic não aparece nenhum designer dele e o unico objeto disponivel é o Crystal Viewer 10 mas não tem nenhuma propriedade para mim digitar o caminho do meu relátorio. Como faço para integrar Visual Basic e Crystal Reports 10? Por favor me ajudem, preciso muito.

[Carlos R F Júnior 0]

Meu Colega estou lhe enviado o código completo para para você analisar, fiz a

conexão via ODBC para SQL Server mas você poder mudar para o Jet 4.0.

 

Usei Um CommandButton e uma CRViewer ou Seja faça a referência

 

Menu\Project\References...

Marque

Crystal Report's ActiveX Designer Run Time Library 10.0

Crystal ActiveX Report Viewer Library 10.0

 

e insira o código abaixo

 

Option ExplicitPublic usuario, senha, servidor, BancoDados As StringPublic cn As New ADODB.ConnectionPublic rs As New ADODB.RecordsetPublic Crystal As CRAXDRT.ApplicationPublic Repor As CRAXDRT.ReportPublic strSQL As StringPublic Function Conexao() As Variantusuario = "sa"senha = "cmm2211"servidor = "SERVIDOR"BancoDados = "Newcon"Conexao = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & _			usuario & ";Password=" & senha & ";Initial Catalog=" & BancoDados & _			";Data Source=" & servidor & ""End FunctionPrivate Sub Command1_Click() strSQL = "Select * From Representantes"		rs.Open strSQL, Conexao, adOpenStatic, adLockReadOnly		Set Repor = Crystal.OpenReport(App.Path & "\Report.rpt")	   Repor.Database.SetDataSource rs	   Repor.DiscardSavedData		 CrystalViewer1.ReportSource = Repor		 CrystalViewer1.ViewReport		 CrystalViewer1.Zoom 100	   MousePointer = 0End SubPrivate Sub Form_Load()	Set cn = New ADODB.Connection	cn.ConnectionString = Conexao	Set Crystal = New CRAXDRT.Application End SubPrivate Sub Form_Resize()CrystalViewer1.Height = Me.Height - 1500CrystalViewer1.Width = Me.Width - 120End SubPrivate Sub Form_Unload(Cancel As Integer)   Set Crystal = Nothing   Set Repor = NothingEnd Sub

Carlos R F Júnior

Profissional em TI