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