Relatório Crystal

[Leandro_Pirozzi]

Boa tarde, estou tentando fazer com arquivo .ttx, mas não consigo.

Está faltando algo??

'General Declarations
Dim CRApp As CRAXDDRT.Application
Dim ReportDb As CRAXDDRT.Database
Dim ReportRss As CRAXDRT.DatabaseTables
Dim ReportRs As CRAXDDRT.DatabaseTable
Dim Report As CRAXDDRT.Report

Dim StrRelat As String

Private Sub Command1_Click()
    If PerfilUser = "USUARIO" Then
        cboequipe.Enabled = False
    End If

Dim conn As ADODB.Connection
Dim SQL As String
Dim TabRelatorio As ADODB.Recordset
Set conn = New ADODB.Connection

conn.ConnectionString = "Provider=MSDAORA.1;Password=xxxxx;User ID=marketing;Data Source=ORCL"
conn.Open

SQL = "Select EMPRESA, CONTATO, HISTORICO, TAREFA, DATATAREFA, ASSESSOR, EQUIPE, CODEMP FROM CONTATOS_HISTORICO"
Set TabRelatorio = New ADODB.Recordset
TabRelatorio.CursorLocation = adUseServer
TabRelatorio.Open SQL, conn, adOpenDynamic, adLockReadOnly

StrRelat = App.Path & "\Historico.rpt"
Set CRApp = New CRAXDDRT.Application
Set Report = CRApp.OpenReport(StrRelat)
Set ReportDb = Report.Database
Set ReportRss = ReportDb.Tables
Set ReportRs = ReportRss.Item(1)
    
ReportRs.SetPrivateData 3, TabRelatorio
'Report.Preview "Historico, , , , , crJanela, mdientrada.hWnd"
Screen.MousePointer = 0


End Sub

Editado Maio 4, 2009 por Leandro_Pirozzi

[kuroi]

leandro, mas o q ta acontecendo de errado??