MySQL - conexion a mysql

 
Vista:

conexion a mysql

Publicado por luis (8 intervenciones) el 23/02/2007 22:30:13
puedo conectarme a una bd de mysql a travez de una macro programada en excel.
si se puede como se hace.

saludos,
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:conexion a mysql

Publicado por g33k.gu (2 intervenciones) el 28/02/2007 17:11:55
si, si se puede
se hace de la siguiente manera:

creas un dsn de mysql odbc
le dices en excel que la fuente de datos viene del mysql
y luego la usas :D
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:conexion a mysql

Publicado por PANCHO (1 intervención) el 16/03/2007 16:44:52
Después de pensar bastante en como lograr hacerlo sin utilizar algun SHEETS o un WORKSPACE, logre conectar mysql directamente, acá va una idea de como lo hice.

Conexion directa a mysql desde una macro de excel via odbc.

Activar referencias:
Visual Basic For Applications
Microsoft Excel 9.0 Object Library
OLE Automation
Microsoft Office 9.0 Object Library
Microsoft Frorms 2.0 Object Library
Ref Edit Control
Microsoft ActiveX Data Objects 2.1 Library

Y en lineas de codigo:

Private Sub UserForm_Activate()

//declarar variables, lo optimo es que sean en sentencia OPTION EXPLICIT

Dim conn As Connection
Dim rs As Recordset
Dim strTbl As String

// inicio de conexion

Set conn = New Connection
conn.ConnectionString = "ODBC;DATABASE=;DSN=mysql-odbc;OPTION=0;PORT=0;SERVER=;UID="
conn.Open

// utilizacion de un recordset

Set rs = New ADODB.Recordset
With rs
strTbl = "SELECT * from [tu tabla]"

.Open strTbl, conn, adOpenDynamic, adLockOptimistic
End With

While Not rs.EOF
SqlBox = SqlBox & Chr(13) & rs![tu_campo]
rs.MoveNext
Wend

//cerrar conexion
conn.Close

End Sub

Sin embargo, antes de realizar todo esto hay que instalar y configuarar odbc para mysql (utilizar mysql-connector-odbc-3.51.12-win32.exe).

Espero que te sirva.

BYE
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar