Hola, ¿se puede usar Data Report con una BD en mysql ?.

He intentado de todas formas hacer la conexíon pero me da el mismo error, la conexión que hago es mediante Provider for ODBC Drivers, luego seleciono la conexión que anteriormente me he creado con mysql 3.51,me abre las tablas sin problemas. Pero cuando hago una prueba de conexión me aparece "error en la prueba de conexión al inicializar el proveedor", error catastrófico.

He actualizado el driver de mysql pero nada, lo he probado con la tabla de Access y funciona sin problemas.

¿no funciona con mysql?.

Muchas gracias.

Pues bien, ya lo he arreglado haciendo un datareport dinamico, si alguien quiere saberlo que lo diga.

yo lo necesito...

Nestor, no lo he puesto pq no estaba frente al pc donde lo hice, en cuanto lo tenga te lo posteo.

Un saludo

Hola a todos.


Primero, añadiremos un DataReport al proyecto y nos olvidamos de añadir el DataEnvironment que


era donde a mi me fallaba la conexión con la bd en MySql.


Dentro del DataReport añadiremos todas las etiquetas y los RptTextBox para confecionar el


reporte, y lo dejamos todo igual, no añadiremos ni el nombre, ni el datamember ni nada, lo


haremos desde código.


Dentro del formulario añadiremos el siguiente código.


'Hacemos la conexión a la BD de MySql


Dim Conexion As ADODB.Connection
Dim Rst_Report As ADODB.Recordset
Dim I As Integer

If Conexion.State = 0 Then ' 0 = No conectado, 1 = conectado
Conexion.ConnectionString = "driver={MySQL ODBC 3.51


Driver};server=nombre_servidor;uid=usuario;pwd=xxx xx;database=Nombre_BaseDatos;connection="
Conexion.Open
endif


Set Rst_Report = New ADODB.Recordset
Rst_Report.ActiveConnection = Conexion
Rst_Report.CursorLocation = adUseClient
Rst_Report.CursorType = adOpenDynamic
Rst_Report.LockType = adLockBatchOptimistic

With DataReport1 'Nombre del DataReport


Set .DataSource = Nothing
.DataMember = ""


On Error GoTo Cerrar_Rst_Report 'Si esta abierto el rst_report se cierra
Cerrar_Rst_Report:
If Err = 0 Then Rst_Report.Close



Rst_Report.Open "SELECT * FROM Nombre_tabla" 'Aqui pondremos la consulta Sql que querramos.

Set .DataSource = Rst_Report.DataSource
With .Sections("seccion1").Controls
For I = 1 To .count
If TypeOf .Item(I) Is RptTextBox Then
.Item(I).DataMember = "" 'debe de estar vacio en todos, porque no usamos Environment
.Item(I).DataField = Rst_Report.Fields(I - 1).Name
End If
Next
End With
.Show

End With

Cualquier duda o aclaración... postearlo

Saludos a todos.