0

Buenas tardes amigos es que tengo un dilema tengo un modulo de clase en vba access y necesito convertirlo a json lo que he encontrado en web solo convierte palabras pero no clases, agrego ademas la clase encabezado. estoy llenando las propiedades de la clase encabezado y convirtiéndolo a json pero aparece vació

Public id_factura As String
Public fecha As String
Public hora As String
Public nota As ArrayList
Public moneda As String
Public tipo_factura As Integer
Public metodo_de_pago As Integer
Public tipo_de_pago As Integer
Public identificador_de_pago As String
Public numero_resolucion_facturacion As String
Public fecha_vencimiento As String
Public numero_orden As String
Public prefijo As String



Public Property Get Getid_factura() As Variant
Getid_factura = id_factura
End Property

Public Property Let Setid_factura(ByVal idFactura As Variant)
id_factura = idFactura
End Property


Public Property Get Getfecha() As Variant
Getfecha = fecha
End Property

Public Property Let Setfecha(ByVal fecha As Variant)
fecha = fecha
End Property


Private Sub Comando11_Click()
Dim encabezado As Emcabezado
Set encabezado = New Emcabezado
Dim JsonItems As Collection
Set JsonItems = New Collection
Dim JsonDiccionario As Scripting.Dictionary
Set JsonDiccionario = New Scripting.Dictionary
Dim rs As Recordset
Dim idfac As String

Set rs = CurrentDb.OpenRecordset("SELECT * FROM Facturas where IdFactura=1; ")
Do While Not rs.EOF
    idfac = rs("NumeroFactura")
    encabezado.id_factura = rs("NumeroFactura")
    encabezado.fecha = "2020-02-17"
   rs.MoveNext
Loop
MsgBox JsonConverter.ConvertToJson(encabezado)
End Sub

Agradezco su colaboración

1 respuesta 1

0

Puedes hacer esto que necesitas con la librería VBA-JSON, para convertir de forma sencilla desde y hacia Json, algo así:

MsgBox JsonConverter.ConvertToJson(encabezado, Whitespace:=2)

Para usarla sólo tienes que importar el .bas a tu proyecto y listo. Suerte!

8
  • gracias por responder hice lo que sugeriste y el dialogo aparece vació aunque la clase encabezado tiene los datos el 17 feb. 2020 a las 21:15
  • ¿Podrías agregar la clase Emcabezado para verla, por favor? el 17 feb. 2020 a las 21:17
  • la agregue en la pregunta por que comentario no podia agregar demasiados caracteres gracias el 17 feb. 2020 a las 21:41
  • Me parece que el problema es que id_factura y fecha los tenés con variables públicas, y deberían ser propiedades. el 17 feb. 2020 a las 21:46
  • osea que si las declaro private debería funcionar? voy a probar el 17 feb. 2020 a las 21:47

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.