Hola, tengo el siguiente codigo
Public Function Conectar_mysql()
Set conxion_mysql = New ADODB.Connection
conxion_mysql.CommandTimeout = 40
conxion_mysql.CursorLocation = 1
conxion_mysql.Open "DRIVER={MySQL ODBC 5.1 Driver};DATABASE=" & NomBd & ";SERVER=" & Servidor & ";UID=" & Usuario & ";password=" & Pwd & ";PORT=" & port & ";Encrypt=true;"
End Function
y en un boton....
Set Rs_mysql = New ADODB.Recordset
Set Rs_mysql = conxion_mysql.Execute("select * from prueba")
Do While Not Rs_mysql.EOF
MsgBox Rs_mysql("id").Value ---> funciona ok y muestra el valor
MsgBox Rs_mysql("nombre").Value -> error Operacion multiples pasos ole db genero errores -147217887 (80040e21)
rs_mysql.movenetx
loop
en la base de datos tengo
id nombre dato
1 hola alfanumerico012447
Campo nombre y dato tipo texto en mysql
campo id tipo numerico en mysql
he ledo por google, y todo lo que veo son errores al grabar datos, pero no al leer, alguna ayuda, estoy desesperado.
Gracias
