Estoy empezando con Crystal Reports, a ver si me podéis ayudar en esto:

Acabo de hacer un informe simple en Crystal Reports 6.0 mediante DSN a una BD MySQL.

¿Qué código o qué tengo que hacer para conectar desde mi aplicacion VB ese informe que he hecho?

Visualizarlo es lo que me interesa.

Y ya puestos a preguntar...¿qué código tengo que meter para no tener que usar una DSN sino una cadena de conexión via ODBC 3,51 Driver?

Saludos.

oa



mira yo uso lo siguiente



Dim CrAppl As New CRAXDRT.Application

Dim CrRep As New CRAXDRT.Report

Set CrRep = CrAppl.OpenReport(App.Path & "\inf_proveedores.rpt")

CRViewer1.ReportSource = CrRep

CRViewer1.ViewReport





para que esto te funcione debe poner un formulario con un CRViewer
(para agregarlo control+T y agrega crystal report viewer control)



y lo ultimo anda a las referencias y marca crystal report activex designer run timer library





y listo....



saludos

Y COMO CONECTO MI SERVIDOR
"DSN=integral;UID=;" _
& "PWD=sa;DATABASE=baseintegral;'conexion a Base de datos mediante ODBC"


trabajo con visual basic 6.0 y crystal report XI
Y SQL 2000

tengo tres consultas sql hechas como las puedo conectar con el sql para hacer las consultas
Y como puedo conectar mi servidor sql enste codigo con crystal report XI POR AYUDA DE ANTE MANO GRACIAS

Dim crReport As New CRAXDRT.Report ' cargo el informe
Dim crApp As New CRAXDRT.Application 'creo la aplicacion


Screen.MousePointer = vbHourglass

Set crReport = crApp.OpenReport(App.Path & "\ordenCompra.rpt", 1)

"DSN=integral;UID=;" _
& "PWD=sa;DATABASE=baseintegral;'conexion a Base de datos mediante ODBC"

sql "select orden_de_compra.*, clientes.* from Orden_de_Compra, clientes where orden_de_compra.nro_oc like '" & txtNumOrden & "' and clientes.rut_cliente = orden_de_compra.rut_cliente"

" sql = "select detalle_ordencompra.num_orden, detalle_ordencompra.cod_producto, asociados.descripcion from detalle_ordencompra, asociados where detalle_ordencompra.num_orden like '" & txtNumOrden & "' and detalle_ordencompra.cod_producto = asociados.codproducto",

"select * from Observaciones where numorden like '" & txtNumOrden & "'


CRViewer1.ReportSource = crReport
CRViewer1.ViewReport
Screen.MousePointer = vbDefault

End Sub

Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set crReport = Nothing
Set crApp = Nothing
End Sub