Autor Tema: show slave status de MySQL desde VB6 devuelve E_Fail  (Leído 2594 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Jeronimo

  • Gigabyte
  • ****
  • Mensajes: 402
  • Reputación: +33/-2
    • Ver Perfil
show slave status de MySQL desde VB6 devuelve E_Fail
« en: Agosto 05, 2019, 12:04:47 pm »
¡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:
Código: [Seleccionar]
    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

lucius

  • Gigabyte
  • ****
  • Mensajes: 263
  • Reputación: +6/-5
    • Ver Perfil
Re:show slave status de MySQL desde VB6 devuelve E_Fail
« Respuesta #1 en: Agosto 10, 2019, 05:39:14 am »
Hola. Haz probado mensajear solo el Tabla.Fields(0).Value sin convertirlo? que tipo de dato te devuelve, quizas al hacer la conversion con cstr salta el error, ingresalo en una variable y convierltelo antes de mandarlo con el tabla.fields(0).value esto en caso no salte error antes. Nose ni q dije pero lo dije, pero no dije nada lo escribi?
[youtube]https://youtu.be/xuK3cLWdzF8[/youtube]

Jeronimo

  • Gigabyte
  • ****
  • Mensajes: 402
  • Reputación: +33/-2
    • Ver Perfil
Re:show slave status de MySQL desde VB6 devuelve E_Fail
« Respuesta #2 en: Agosto 11, 2019, 10:27:21 pm »
Hola, lucius.
Me da el mismo resultado. Además, lo probé con todos los campos y me pasa lo mismo. Los nombres de los campos los obtengo sin problemas, pero los valores no y me da el error E_FAIL.
Muchas gracias.

Jerónimo