¡Hola!
Necesito, desde VB6, obtener los valores de las variables que devuelve MySQL cuando se ejecuta la consulta "show slave status", pero obtengo el error "El proveedor de datos u otro servicio devolvió un estado E_FAIL."
Aquí está el código:
Dim Tabla As ADODB.Recordset
Set Tabla = New ADODB.Recordset
Tabla.CursorLocation = adUseClient
Tabla.Open "show slave status", BD, adOpenStatic, adLockOptimistic
Dim i As Integer
Dim j As Integer
Debug.Print Tabla.Fields.Count
MsgBox "Cantidad de campos: " & Tabla.Fields.Count 'Aquí me devuelve "33".
MsgBox "Tipo de campo: " & Tabla.Fields(0).Type 'Aquí me devuelve "200".
MsgBox "Nommbre del campo: " & Tabla.Fields(0).Name 'Aquí me devuelve "Slave_IO_state".
MsgBox "Valor del campo: " & CStr(Tabla.Fields(0).Value) 'Aquí me devuelve el error mencionado al comienzo.
¿Saben cómo puedo resolverlo?
Muchas gracias.
Jerónimo