Visual Basic 6 - Crystal XI... Novato !!!

[abrahamvj]

Hummm... en realidad NO desarrollas en VB+MySQL+CR, sino que QUIERES hacerlo.

1- Create tu origen ODBC. no olvides agrgarle la base de datos.
2- Abre tu CR, crea un informe standar, realiza la conexion mediante OLE DB (ADO), y elige "Microsoft OLE DB Provider for ODBC Drivers", luego coloca el cursor sobre el nombre del ODBC que creaste para MySQL y presiona "Finalizar"
3- Ahora ya te aparecera el arbol de la BD para que construyas tu reporte... construyelo
4- Antes de finalizar te saldra un mensaje "no se pudo encontrar la tabla xxx, desea eliminarla", coloca NO. Listo ya tienes tu reporte. Guardalo.
5- Abre tu proyecto VB. Activa el asistente de CR y elige "a partir de un reporte existente" y elige el reporte que construiste.
6- ahora en el modulo del formulario que contiene el reporte coloca algo asi:

Option Explicit
Private Report As Object

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

End Sub

Private Sub Form_Load()

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSQL As String

Set cnn = New ADODB.Connection

Set cnn = New ADODB.Connection
cnn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=11.111.111.11;" _
& "DATABASE=NOMBREBASEDEDATOS;" _
& "UID=miusuario;PWD=miclave;PORT=3306;OPTION=16 837"

cnn.Open

WindowState = 0


Set Report = New CrystalReport1
Set rs = New ADODB.Recordset

strSQL = "SELECT * FROM Actividades WHERE Area='" & textbox1 & "'"

Set rs = New ADODB.Recordset

With rs
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strSQL, cnn, , , adCmdText
End With

strSQL = "SELECT * FROM Lugares"


With Report
.Database.SetDataSource rs
.PaperOrientation = 1
.PaperSize = 9
.DiscardSavedData
End With

With CRViewer1
.EnableDrilldown = False
.DisplayGroupTree = False
.DisplayTabs = False
.EnableRefreshButton = True
.ReportSource = Report
.ViewReport
.Zoom (2)
End With

WindowState = 2



End Sub