No me conecta la aplicación VBA Excel con Mysql(phpmyadmin)
Por medio del presente quiero pedrles el favor de que si me colaboran con lo siguiente:i
Tengo una aplicación en Excel, mi objetivo es conectarla con una base de datos en mysql con la herramienta (phpmyadmin)
Tengo el siguiente código
Sub GenerarInsertInto(
'Definiendo variables
Dim Filas As Integer
Dim Cuenta As Integer
Dim Rango As String
Dim Celda As Range
Dim Valor, Valor1, Valor2 As String
Dim Largo As Integer
Dim RowCursor As Integer
Dim strSQL As String
Dim Mensaje As String
Dim con As New ADODB.Connection
On Error GoTo Err
Set con = New ADODB.Connection
con.Open "DRIVER={MySQL ODBC 5.2 Unicode Driver};" & _
"SERVER=localhost;" & _
"DATABASE=base;" & _
"USER=root"
'
On Error GoTo Err
Filas = Application.WorksheetFunction.CountA(Range("A:A"))
Cuenta = 1
Rango = Application.Transpose(ActiveCell.CurrentRegion.Resize(1).Select)
'
'Extrayendo encabezados
For Each Celda In Selection
Valor = Celda.Value
Valor1 = Valor1 & Valor & ", "
Next Celda
Largo = Len(Valor1)
Valor2 = Left(Valor1, Largo - 2)
'
'Generando Query
With ActiveWorkbook.Sheets("Datos")
For RowCursor = 2 To Filas
strSQL = "insert into factura(Titulo_Minero, Tipo, Ciclo,Producto,Zona1,Etapa_Contractual,Mineral,Numero_factura,Municipio,Valor_parcial) values " & _
Hoja1.Cells(RowCursor, 1) & "','" & _
Hoja1.Cells(RowCursor, 2) & "','" & _
Hoja1.Cells(RowCursor, 3) & "','" & _
Hoja1.Cells(RowCursor, 4) & "','" & _
Hoja1.Cells(RowCursor, 5) & "','" & _
Hoja1.Cells(RowCursor, 6) & "','" & _
Hoja1.Cells(RowCursor, 7) & "','" & _
Hoja1.Cells(RowCursor, 8) & "','" & _
Hoja1.Cells(RowCursor, 9) & "','" & _
Hoja1.Cells(RowCursor, 10) & "');"
Sheets("Query INSERT INTO").Range("A" & Cuenta).Value = strSQL
Cuenta = Cuenta + 1
Next
End With
'
Mensaje = MsgBox("Query generada. Deseas ver el código generado?", vbQuestion + vbYesNo)
If Mensaje = vbYes Then Sheets("Query INSERT INTO").Activate
'
'Manejo de errores
Exit Sub
Err:
MsgBox "Error: " & Err.Description, vbExclamation, "EXCELeINFO"
Errores:
MsgBox "Error: " & Err.Description, vbExclamation, "EXCELeINFO"
End Sub
Pero el problema que tengo es que no me insserta los registros a la base de datos de Mysql, como si no se realizara la conexión.