Visual Basic Foro
Programación => Bases de Datos => Mensaje iniciado por: Jeronimo 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:
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
-
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]
-
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