Conectar MySql a Excel 2010
Publicado por eduard (1 intervención) el 10/10/2016 08:25:06
Hola a todos,
Estoy intentado hacer la conexión entre excel 2010 y mysql con Visula basic he configurado el ODBC y funciona todo OK el Windows 7 es 32 bits el código es el siguiente:
He habilitado la siguiente referencias:
-Microsoft ActiveX Data Objects 2.0 Library
-Microsoft DAO 3.6 Object Library
Codigo:
Y el error es:
Se esperaba: fin de la instrucción.
Y también me dice, se ha detectado un nombre ambiguo: Conectar.
Muchas gracias a todos!!
Estoy intentado hacer la conexión entre excel 2010 y mysql con Visula basic he configurado el ODBC y funciona todo OK el Windows 7 es 32 bits el código es el siguiente:
He habilitado la siguiente referencias:
-Microsoft ActiveX Data Objects 2.0 Library
-Microsoft DAO 3.6 Object Library
Codigo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Public Conn As ADODB.Connection ' Permite conectarnos a la base de datos
Public Rs As ADODB.Recordset 'Almacena el resultado de nuestras consultas
Private Function Conectar() As Boolean
On Error GoTo Ver
Private Function Conectar() As Boolean
On Error GoTo Ver
Set Conn = New ADODB.Connection
Conn.ConnectionString = "driver={MySQL ODBC 5.2 ANSI Driver};" & _
"Server=miservidor;" & _
"Port=3306;" & _
"Database=base;" & _
"User=ususario;" & _
"Password=password;" & _
"Option=3;"Conn.OpenConectar = TrueExit Function
Ver:Err.ClearConectar = FalseEnd Function
Private Sub PruebaConexionMysql()
If (Conectar) Then
MsgBox "Conexión Exitosa"Else
MsgBox "Conexión Fallida"End If
End Sub
Y el error es:
Se esperaba: fin de la instrucción.
Y también me dice, se ha detectado un nombre ambiguo: Conectar.
Muchas gracias a todos!!
Valora esta pregunta
0