VB6 SP3 CRYSTAL 8.5 TO CRYSTAL 2008

USUARIO.EXCLUIDOS 26/10/2009 14:12:31
#326293

Hi to All

Im use VB6 sp3 and crystal 8.5

REPFAR.ReportFileName = (PATH_MDB & [Ô]myreporter.RPT[Ô])
REPFAR.Connect = [Ô]Driver={Microsoft ODBC for Oracle};DSN=[Ô] & BANCODB & [Ô];UID=[Ô] & userDB & [Ô];Pwd=[Ô] & GSENHA
REPFAR.DataFiles(0) = [Ô]mydb[Ô] & Format$(Date, [Ô]YYYY[Ô])
REPFAR.SelectionFormula = [Ô]({MODI.FORME} like [ô]*[Ô] & Trim(Label6.Caption) & [Ô][ô])[Ô]
REPFAR.Formulas(1) = [Ô]formul1 = [ô][Ô] & parameter1 & [Ô][ô][Ô]
REPFAR.Formulas(1) = [Ô]formul2 = [ô][Ô] & parameter2 & [Ô][ô][Ô]
IF TOPRINT THEN
REPFAR.Destination = 1 [ô]Printer
ELSE
REPFAR.Destination = 0 [ô]Screen
ENDIF
REPFAR.Action = 0 [ô]Impressora

Em Server 2008 eu não posso fazer o crystal para conectar via ODBC.
Eu decidi mudar a versão do crystal para crystal 2008.
Notei que o cristal via OLE DB abrir o banco de dados.
A rotina acima foi usado e que funcionou muito bem.
Alguém poderia me passar a mesma rotina
de forma que funcione com o crystal 2008?

Obrigado pela atenção
Raul