Spanish B4A Enviar datos a google sheet usando formularios

[antonio perfecto]

Buenas noches expertos, encontré estos códigos de vba de excel a google sheets, viendo los videos, traté de codificar pero algunas líneas me genera un error, si podrían ayudarme, o darme una guía, gracias por su apoyo.

'VIDEO 1
' 'SERGIO DÁVILA

'VIDEO 2
'
'Con esos vídeos traté de convertirlo a código B4A, pero tengo algunos errores

Sub EnviarCaptura()
    Dim RespuestaMetodoPost As String 'Devuelve la información al formulario
    Dim FormularioUrl As String
    Dim DatosCapturados As String
    Dim HttpPlantilla As Object
    Dim Filas As Long
    Dim i As Long
    Dim Ruta As String   
    FormularioUrl = "https://docs.google.com/forms/d/e/1FAIpQLSf3OGFM_Lz91F2Lt9fmUIJH7xm4qWGnNukvmZlbDitlNwbTlf/formResponse"
    DatosCapturados = "entry.350897978=" & "Juan Perez"
    DatosCapturados = DatosCapturados & "&entry.1317559455=" & "Dato"
    ' Crear un objeto HttpJob para enviar la solicitud HTTP
    Dim job As HttpJob
    job.Initialize("", Me)     ''ESTA LÍNEA GENERA ERROR
    job.PostString(FormularioUrl, DatosCapturados)
    ' Esperar a que se complete la solicitud
    Wait For (job) JobDone(job As HttpJob)            'ESTA LÍNEA GENERA ERROR
    ' Verificar si la solicitud fue exitosa
    If job.Success Then
        ' Obtener la respuesta del servidor
        RespuestaMetodoPost = job.GetString
        ToastMessageShow("Datos enviados correctamente", True)
    Else
        ' Manejar el error
        Log(job.ErrorMessage)
        ToastMessageShow("Error al enviar los datos", True)
    End If
    ' Liberar los recursos utilizados por el objeto HttpJob
    job. Release
End Sub

 

[Mariano Ismael Castro]

Buenas noches expertos, encontré estos códigos de vba de excel a google sheets, viendo los videos, traté de codificar pero algunas líneas me genera un error, si podrían ayudarme, o darme una guía, gracias por su apoyo.

'VIDEO 1
' 'SERGIO DÁVILA

'VIDEO 2
'
'Con esos vídeos traté de convertirlo a código B4A, pero tengo algunos errores

Sub EnviarCaptura()
    Dim RespuestaMetodoPost As String 'Devuelve la información al formulario
    Dim FormularioUrl As String
    Dim DatosCapturados As String
    Dim HttpPlantilla As Object
    Dim Filas As Long
    Dim i As Long
    Dim Ruta As String  
    FormularioUrl = "https://docs.google.com/forms/d/e/1FAIpQLSf3OGFM_Lz91F2Lt9fmUIJH7xm4qWGnNukvmZlbDitlNwbTlf/formResponse"
    DatosCapturados = "entry.350897978=" & "Juan Perez"
    DatosCapturados = DatosCapturados & "&entry.1317559455=" & "Dato"
    ' Crear un objeto HttpJob para enviar la solicitud HTTP
    Dim job As HttpJob
    job.Initialize("", Me)     ''ESTA LÍNEA GENERA ERROR
    job.PostString(FormularioUrl, DatosCapturados)
    ' Esperar a que se complete la solicitud
    Wait For (job) JobDone(job As HttpJob)            'ESTA LÍNEA GENERA ERROR
    ' Verificar si la solicitud fue exitosa
    If job.Success Then
        ' Obtener la respuesta del servidor
        RespuestaMetodoPost = job.GetString
        ToastMessageShow("Datos enviados correctamente", True)
    Else
        ' Manejar el error
        Log(job.ErrorMessage)
        ToastMessageShow("Error al enviar los datos", True)
    End If
    ' Liberar los recursos utilizados por el objeto HttpJob
    job. Release
End Sub

He probado tu codigo pero el error que recibo es el siguiente

 

[alangonzalez91]

Tenes que colocar la captura del compilador que error te da y del log

 

[josejad]

Le has echado un ojo a este tutorial de @fernando1987?

CREATE, UPDATE, DELETE AND CONSULT REGISTERS ON GOOGLE SHEET FROM YOUR APPLICATIONS

Searching the internet I found a service that allows you to convert any google sheet into a json api, it has a free version that allows you to consult and add data, connecting to the api is quite simple, as some of us have thought of using google sheet integrated to our developments by I want to...

www.b4x.com

Tiene además una librería, y se implica y ofrece soporte para sus proyectos:

GSheet Library (integrate google sheets into your B4X apps easily)

Gsheet Author: Fernando Arevalo Version: 1.0 Functions: Process_Globals As String B4A, B4I Initialize (ClientId As String) B4J Initialize(ClientId As String,ClientSecret As String) B4X SpreadsheetsId As String The ID of your document. This is the big long aplha-numeric code in the...

www.b4x.com

 

[antonio perfecto]

Felizmente pude solucionarlo, muchas gracias. Y con respecto a la "librería gsheet" por favor contactarme [email protected], el código a continuación si funciona y sobre todo es gratis con "n" elementos usando formularios de google y google sheets

Sub EnviarDatos
    Dim RespuestaMetodoPost As String
    Dim FormularioUrl As String
    Dim DatosCapturados As String
        FormularioUrl="https://docs.google.com/forms/u/0/d/e/1FAIpQLScGw_uiNM_hXv23Aur65AJ62abXJMoF9Y9NlzDzkmLWFRNXTg/formResponse"   'coloque su link de formulario de google ver VIDEO 1 y 2
    
        DatosCapturados = "entry.350897972=" &  "PEREZ JUAN"      'entry.350897972 ver VIDEO 1 y 2     
        DatosCapturados = DatosCapturados & "&entry.1317559452=" & "SUCURSAL 1"     
        DatosCapturados = DatosCapturados & "&entry.2019094827=" & "2000.00"     
    
        Dim Job As HttpJob
        Job.Initialize("Job", Me)
        Job.PostString(FormularioUrl, DatosCapturados)
        
    '   Wait For (Job) JobDone(Job As HttpJob)
        
        If Job.Success Then
            RespuestaMetodoPost = Job.GetString
            ' Puedes hacer algo con la respuesta si es necesario
        Else
            Log("Error en la solicitud HTTP: " & Job.ErrorMessage)
        End If
        
        Job.Release
    Msgbox("Datos enviados correctamente", "")
End Sub