Encontre la forma de exportar datos de una tabla a JSON
Sub ExportarTablaAJSON()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim jsonString As String
Dim rutaArchivo As String
Dim archivo As Integer
' Abrir la base de datos actual
Set db = CurrentDb()
' Ejecutar la consulta SQL para obtener los datos de la tabla Clientes
Set rs = db.OpenRecordset("SELECT * FROM Clientes", dbOpenSnapshot)
' Construir la cadena JSON
jsonString = "["
Do While Not rs.EOF
jsonString = jsonString & "{"
jsonString = jsonString & """ID"":" & rs("ID") & ","
jsonString = jsonString & """Nombre"":""" & rs("Nombre") & ""","
jsonString = jsonString & """Edad"":" & rs("Edad") & ","
jsonString = jsonString & """Ciudad"":""" & rs("Ciudad") & """"
jsonString = jsonString & "},"
rs.MoveNext
Loop
' Eliminar la última coma y cerrar el array JSON
jsonString = Left(jsonString, Len(jsonString) - 1) & "]"
' Especificar la ruta del archivo JSON
rutaArchivo = "C:\ruta\Clientes.json"
' Crear el archivo y escribir el JSON
archivo = FreeFile
Open rutaArchivo For Output As archivo
Print #archivo, jsonString
Close archivo
MsgBox "Archivo JSON generado en: " & rutaArchivo
' Limpiar
rs.Close
Set rs = Nothing
Set db = Nothing
End Sub
Muchas gracias por su valiosa colaboracion, podemos cerrar el hilo por favor
Tweet
Extension JSON
Opciones del Tema
