Diseñadores de informes CR

[Jennifer_munn]

BUENO, PARECE QUE HE ENCONTRADO ALGO QUE VALE, POR FIIIIN!!!

He aquí el código:

Dim Report As New CrystalReport6


Private Sub Form_Load()
Screen.MousePointer = vbHourglass
'Dim ConnectionInfo As CRAXDDRT.ConnectionProperties


Dim CPProperties As CRAXDDRT.ConnectionProperties
Dim dbTable As CRAXDDRT.DatabaseTable



Set dbTable = Report.Database.Tables(1)
Set CPProperties = dbTable.ConnectionProperties

CPProperties.Item("DSN").Value = "DSN"
CPProperties.Item("Database").Value = "BBDD"
CPProperties.Item("User ID").Value = "usuario"
CPProperties.Item("Password").Value = "contraseña"
'.......
dbTable.TestConnectivity


Report.SQLQueryString = "SELECT Ofertas.*, clientes.* FROM Ofertas INNER JOIN clientes ON Ofertas.codcliente = clientes.Codigo WHERE Ofertas.codoferta ='OM_000130'"

CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefault

End Sub

este es un formulario dnd tengo un CRViewer y le llamo desde un botón de otro formulario con el típico FORM1.SHOW

Espero que os sirva de ayuda, ya que a mi me ha costado muchísimo aprender a hacer esto.