STRING DE CONEXÃO VB6 PARA CRYSTAL REPORT 8.5

CYBERMAC 18/05/2016 15:14:21
#462214
Pessoal boa tarde!

Estou migrando de Access para SQL Server 2008 R2 e no entanto, todos os meu relatórios em Access precisam ser refeitos no Crystal Report 8.5, porém, não consigo gerar o código de conexão do VB6 para o Crystal Report.

Alguém já passou por essa situação?

Abcs.
FABRICIOWEB 19/05/2016 07:57:01
#462260 Resposta escolhida
Private con As ADODB.Connection
Private rs As ADODB.Recordset
Private CrysApp As New CRAXDDRT.Application
Private CrysRep As New CRAXDDRT.Report

Private Sub Command1_Click()
Set CrysRep = CrysApp.OpenReport([Ô]e:\emp_rep.rpt[Ô])
Call CrysRep.Database.AddOLEDBSource([Ô]Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sa;Initial Catalog=hr_data;Data Source=KRPDD156[Ô], [Ô]employee_master[Ô])
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
If con.State = 1 Then con.Close
con.ConnectionString = [Ô]Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sa;Initial Catalog=hr_data;Data Source=KRPDD156[Ô]
con.Open
If rs.State = 1 Then rs.Close
rs.Open [Ô]select emp_code,emp_name from employee_master where emp_grade=[ô]S[ô][Ô], con
If Not rs.EOF Then
With CrysRep
Call .Database.Tables(1).SetDataSource(rs)
.DiscardSavedData
End With
End If
Call CrysRep.ParameterFields(1).AddCurrentValue([Ô]empgrade[Ô])
Form1.CRViewer.ReportSource = CrysRep
Form1.CRViewer.ViewReport
Form1.Show
End Sub

Private Sub Form_Unload(Cancel As Integer)
If rs.State = 1 Then rs.Close
If con.State = 1 Then con.Close
End Sub
CYBERMAC 19/05/2016 11:02:18
#462268
FABRICIOWEB,

Bom dia!

Muito obrigado pela ajuda, mas na minha aplicação as funções:
Private CrysApp As New CRAXDDRT.Application
Private CrysRep As New CRAXDDRT.Report

Não ficam com as suas em letra maiúscula.
Quais objetos devo referenciar para que o vb leia estas funções?

Grato.
Tópico encerrado , respostas não são mais permitidas
Voltar