LIZETH ML
20 de Septiembre del 2005

HOLAA!!!
quiero conectar visual basic 6.0 con el Crystal 10, y no hallo el componente de conexion... si no es mucho pedir que alguien me diga la referencia y el componente que necesito para la conexion...

gucesoft
20 de Septiembre del 2005

SI TIENES EL CRYSTAL REPORTS 10, NECESITARAS AGREGAR A TU PROYECTO REFERENCIAS A:
- Crystal Activex Report Viewer Library 10.0, QUE PONDRA A TU DISPOSICION EL VISOR DE CRYSTAL, EL CUAL TE PERMITIRA VISUALIZAR INFORMES EN PANTALLA.
- Crystal Report Activex Designer Run Time Library 10.0, QUE PONDRA A TU DISPOSICION OBJETOS, FUNCIONES Y PROPIEDADES EN TIEMPO DE DISEÑO.

PARA PASAR INFORMACION DE CONEXION A UN INFORME CREADO CON CRYSTAL REPORTS 10.0 UTILIZANDO COMO ORIGEN DE DATOS UNA FUENTE ODBC QUE MIRA A UNA BASE DE DATOS ACCES...

Dim cCrystalReport As CRAXDRT.Report
Dim cCrystalApp As CRAXDRT.Application
dim L as integer

Set cCrystalApp = New CRAXDRT.Application
Set cReport = m_App.OpenReport(RutaInforme, 1)

With cReport
For L = 1 To .Database.Tables.Count
Select Case Replace (.Database.Tables(L).DllName, ".dll", "")
Case "pdsodbc", "crdb_odbc"
If ExisteInformacionUsuario Then
'ESTABLECEMOS LA CONEXION CON INFORMACION DE USUARIO
.Database.Tables(L).SetLogOnInfo ServidorODBC, RutaBaseDatos, NombreUsuario, ClaveAcceso
Else
'ESTABLECEMOS LA CONEXION SIN INFORMACION DE USUARIO
.Database.Tables(L).SetLogOnInfo ServidorODBC
End If
end Select
If Not .Database.Tables(L).TestConnectivity Then
'INTERCEPTAMOS ERROR AL TESTEAR LA CONEXION
end if
next
end with
...

UN SALUDO.