Excel VBA me da error (el controlador ODBC no admite las propiedades solicitadas.)

Me pone ese error cuando ejecuto el código, pero los datos los inserta en la base de datos sin problema, pero solo si el código es ejecutado directamente. No me permite hacerlo desde el botón.

Mi código es el siguiente:

Dim oConn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub ConnectDB()
Set oConn = New ADODB.Connection
oConn.Open "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=localhost;" & _
"DATABASE=test;" & _
"USER=root;" & _
"PASSWORD=;" & _
"Option=3"
End Sub
Function esc(txt As String)
esc = Trim(Replace(txt, "'", "\'"))
End Function
Private Sub InsertData()
On Error GoTo InsertData_Error
Set rs = New ADODB.Recordset
ConnectDB
With wsBooks
For RowCursor = 2 To 11
strSQL = "INSERT INTO testing (nombre, hora_i, hora_f) " & _
"VALUES ('" & esc(.Cells(RowCursor, 1)) & "', " & _
"'" & esc(.Cells(RowCursor, 2)) & "', " & _
esc(.Cells(RowCursor, 3)) & ")"
rs.Open strSQL, oConn, adOpenDynamic, adLockOptimistic
Next
End With
Msgbox ("Datos guardados correctamente")
On Error GoTo 0
Exit Sub
InsertData_Error:
Msgbox "Error " & Err.Number & " (" & Err.Description & ") in procedure InsertData of Documento VBA wsBooks"
End Sub

0

Añade tu respuesta

Haz clic para o