In our previous blog we saw how to export REST API to CSV using c# or Python. In this post we will look at specific example on How to Export REST API to MS Access using VBA Command Button, along with few other topics such as how to make REST API Call, how to read all Customers data from Odata using our ODBC JSON Driver and load it into the Ms Access Table.

We will go through the steps to read data from Odata and Load into MS Access using VBA Command Button.

In nutshell, this post will focus on how to make ODBC Driver Call using VBA.

So let’s get started.

Requirements

1. First of all, you will need ZappySys ODBC PowerPack installed.
2. Secondly, Make sure that Microsoft Access installed for VBA example.

An introduction to Rest API and OData

In this example, we will use OData (Open Data Protocol) to consume REST API. REST API (Representational State Transfer Application Program Interface) allows handling the interoperability between computers and the internet.

In REST API we can handle web services in different formats. In this example, we will work with the Northwind example. The Northwind example is available in this URL:

https://services.odata.org/V3/Northwind/Northwind.svc

1. By default, the data is displayed in XML format. To show the data in JSON use this URL:
   

   https://services.odata.org/V3/Northwind/Northwind.svc/?$format=json

2. There are collections of data like Categories, CustomerDemographic, Customers, Invoices, etc. For example, the following URL will show the data of the categories collection:
   

   https://services.odata.org/V3/Northwind/Northwind.svc/Customers?$format=json

3. In the next steps, we will use ZappySys drivers to connect to this URL and query using OData.

Configure ODBC DSN for ZappySys JSON Driver

ODBC driver can be accessed in two modes.

1. Using DSN
2. Without DSN (Supply direct Connection String e.g. DRIVER={ZappySys JSON Driver}; …….. )

In this article, we will use the DSN approach (User DSN). We will first add the ZappySys JSON Driver in the ODBC Data Source Administrator.

Follow these steps to accomplish the task:

1. First, Windows search, write ODBC and select the ODBC Data sources (32 bits)
   

   Open ODBC Data Source

2. As a second step, in ODBC Data source Administrator press the Add button.
   

   Add ZappySys

3. In this step, create the new data source, select ZappySys JSON Driver.
   

   Add new zappysys json driver

4. Here we have several properties, write a data source name. In this example, the name will be ZappySys JSON to Excel.
5. The Data Source (URL or file path) can specify the URL of the source or if it is a local file, you can specify the local path. In this example, the URL is:
   

   https://services.odata.org/V3/Northwind/Northwind.svc/Customers?$format=json

   You can also specify a local file path as Data SourceFor a single file:  c:\data\myfile_1.json
   For multiple files: c:\data\myfile_*.json
6. Configure the ODBC JSON Driver like this and test the connection:
   

   Configure JSON Driver for REST API Call

7. Now click on Copy Connection string Button.
   

   ODBC Driver : Copy Connection String

8. That’s it Connection string is copied to clipboard. Now let’s use this connection string in the VBA code.

How to import REST API data to Access using VBA

1. Open the access database and create the table with the desire columns to get API data in it.
   

   Create Table in Access

2. Now close the table, and go to Create menu and click on Form Design to add the new blank form in design view.
   

   Access : Create a New Form in Design View

3. It will open the new form in the design view, now add new button with the desire text.
   

   Access : Add Command Button

4. Now right click on button and go to properties and click on … builder button and select Code Builder.
   

   Access : Code builder

5. When you click the button, it will open a new VBA instance, executing the command event associated with that button click.
   Next, insert the provided code inside the Command5_Click() function. In this example, the button is named Command5, and that’s why it’s added within this click function.
   The provided code encompasses the following steps:
   1. Ensure the table is closed:
      It’s crucial to close the table beforehand; otherwise, executing the subsequent command may result in an error.
   2. Truncate the table:
      Clear the existing data from the table. If you want to add fresh data each time
   3. Make the API call:
      Utilize the ODBC Driver connection string to initiate an API call.
   4. Insert into the Access table:
      Use the retrieved data from the API call to insert new records into the Access table.
   5. Open the table:
      Reopen the table to inspect the newly inserted data.

   ' Pass your ZappySys Driver Connection String: Refer to below link to learn how to obtain the ZappySys Driver connection string:
       ' https://community.zappysys.com/t/how-to-copy-the-zappysys-driver-connection-string/172
       Dim zsConnStr As String
       zsConnStr = "DRIVER={ZappySys JSON Driver};DataPath='https://services.odata.org/V3/Northwind/Northwind.svc/Customers?$format=json';Filter='$.value[*]';IncludeParentColumns=0;RequestMethod='GET';RequestHeaders='cache-control: no-cache || Accept: */*'"
           
       'ZappySys Driver Query
       Dim zsDriverQuery As String
       zsDriverQuery = "Select * from $"
    
       'MS Access Table Name
       Dim tableName As String
       tableName = "tblCustomers"
   
       ' 1. Close Table If Open
       CloseTableIfOpen tableName
   
       ' 2. Truncate Table (Optional): If you want to load fresh data each time, uncomment the line below.
       'TruncateTable tableName
   
       ' 3. Import Data From API Into Table
       ImportDataFromAPIIntoTable zsConnStr, zsDriverQuery, tableName
   
       ' 4. Open Table for Viewing (Optional)
       OpenTableForViewing tableName
   
       ' Show Message after Loading Data Successfully
       MsgBox "Data Loaded Successfully!"

   

   VBA Button OnClick Function

    

6. Below the Private Sub Command5_Click() function, please add the necessary functions and procedures as provided below:

   Sub ImportDataFromAPIIntoTable(zsConnStr As String, zsDriverQuery As String, tableName As String)
       Dim dscn As New ADODB.Connection
       dscn.Open zsConnStr
   
       Dim rs As Object
       Set rs = New ADODB.Recordset
       
       ''ZappySys Driver Query Goes here
       rs.Open zsDriverQuery, dscn
   
       Dim strQuery As String
       strQuery = ""
       ' Check if the recordset is not empty
       If Not rs.EOF Then
           ' Get the field names
           Dim fieldNames As String
           fieldNames = ""
   
           For i = 1 To rs.Fields.Count
               fieldNames = fieldNames & rs.Fields(i - 1).Name
               If i < rs.Fields.Count Then
                   fieldNames = fieldNames & ","
               End If
           Next i
   
           ' Generate the INSERT script
           Dim insertScript As String
           ' Iterate through the recordset to get the values
           Do Until rs.EOF
               ' Generate Insert script
               insertScript = "INSERT INTO " & tableName & " (" & fieldNames & ") VALUES"
               insertScript = insertScript & vbCrLf & "("
               For i = 1 To rs.Fields.Count
                   ' Assuming all fields are text, you might need to handle different data types appropriately
                   
                   If IsNull(rs.Fields(i - 1).Value) Then
                       insertScript = insertScript & "''"
                   Else
                       insertScript = insertScript & "'" & EscapeSingleQuote(rs.Fields(i - 1).Value) & "'"
                   End If
                   
                   
                   If i < rs.Fields.Count Then
                       insertScript = insertScript & ","
                   End If
               Next i
               insertScript = insertScript & ")"
               
               'Insert data
               CurrentProject.Connection.Execute insertScript
               
               rs.MoveNext
           Loop
       End If
       
       ' Close the recordset and connection
       rs.Close
       dscn.Close
       Set rs = Nothing
       Set conn = Nothing
       
   End Sub
   
   Sub OpenTableForViewing(tableName As String)
       If Not IsTableOpen(tableName) Then
           DoCmd.OpenTable tableName
       End If
   End Sub
   
   Public Function IsTableOpen(strName As String) As Boolean
        IsTableOpen = SysCmd(acSysCmdGetObjectState, acTable, strName)
   End Function
   
   Sub CloseTableIfOpen(tableName As String)
       If IsTableOpen(tableName) Then
           DoCmd.SelectObject acTable, tableName
           DoCmd.RunCommand acCmdSaveRecord
           DoCmd.Close
       End If
   End Sub
   
   
   Sub TruncateTable(tableName As String)
       Dim strSql As String
       strSql = "DELETE FROM " & tableName & ";"
       CurrentProject.Connection.Execute strSql
   End Sub
   
   Public Function EscapeSingleQuote(strData As String) As String
        EscapeSingleQuote = Replace(strData, "'", "''")
   End Function

7. Now, save the VBA form code and provide some appropriate form names.
   

   Save form vba code

    

8. Make sure to add the reference to the Microsoft ActiveX Data Objects X.0 Library in the project settings.In Microsoft Access VBA,
   You can add the reference to the Microsoft ActiveX Data Objects X.0 Library by following these steps:
   1. In the VBA editor, go to “Tools” in the menu and select “References.”
   2. In the References dialog box, scroll down the list to find “Microsoft ActiveX Data Objects X.0 Library” (where “X.0” corresponds to the version number, such as 6.1, 2.8, etc.).
   3. Check the box next to the appropriate version to enable the reference.
   4. Click “OK” to save the changes and close the References dialog box.

   Now, your Access project has a reference to the Microsoft ActiveX Data Objects library, and you can use its features in your VBA code.

   

   Access : Add reference

   If the MS ActiveX reference is not added, an error will be thrown.

   

   VBA : Error Type not defined

9. Close the code project, open the form in Form View, and click on the button.
   

   Access : Click Command Button

10. After clicking the button, it will initiate a REST API call, insert the data into the Access table, and open the table to display the inserted records along with a success message.
    

    Access : Open the table

Conclusion

In this article, we saw how to use VBA to call REST API. We show how to do REST API calls in Access using the ZappySys ODBC driver. Also, we show how to write VBA Code in MS Access for command button to make REST API call, truncate access table and insert record in the access table using VBA code. If you liked this article and you want to try, you can download the ZappySys ODBC installer here.

References

• ZappySys ODBC installer.
• Access ODBC Query
• Using ADO with Microsoft Visual Basic and Visual Basic for Applications

Form VBA Code:

After completing the migration of the higher-level VBA code, you’ll notice a transformation in the structure of your forms’ code.

Option Compare Database

Private Sub Command5_Click()
 
    ' Pass your ZappySys Driver Connection String: Refer to below link to learn how to obtain the ZappySys Driver connection string:
    ' https://community.zappysys.com/t/how-to-copy-the-zappysys-driver-connection-string/172
    Dim zsConnStr As String
    zsConnStr = "DRIVER={ZappySys JSON Driver};DataPath='https://services.odata.org/V3/Northwind/Northwind.svc/Customers?$format=json';Filter='$.value[*]';IncludeParentColumns=0;RequestMethod='GET';RequestHeaders='cache-control: no-cache || Accept: */*'"
        
    'ZappySys Driver Query
    Dim zsDriverQuery As String
    zsDriverQuery = "Select * from $"
 
    'MS Access Table Name
    Dim tableName As String
    tableName = "tblCustomers"

    ' 1. Close Table If Open
    CloseTableIfOpen tableName

    ' 2. Truncate Table (Optional): If you want to load fresh data each time, uncomment the line below.
    'TruncateTable tableName

    ' 3. Import Data From API Into Table
    ImportDataFromAPIIntoTable zsConnStr, zsDriverQuery, tableName

    ' 4. Open Table for Viewing (Optional)
    OpenTableForViewing tableName

    ' Show Message after Loading Data Successfully
    MsgBox "Data Loaded Successfully!"
    
End Sub

Sub ImportDataFromAPIIntoTable(zsConnStr As String, zsDriverQuery As String, tableName As String)
    Dim dscn As New ADODB.Connection
    dscn.Open zsConnStr

    Dim rs As Object
    Set rs = New ADODB.Recordset
    
    ''ZappySys Driver Query Goes here
    rs.Open zsDriverQuery, dscn

    Dim strQuery As String
    strQuery = ""
    ' Check if the recordset is not empty
    If Not rs.EOF Then
        ' Get the field names
        Dim fieldNames As String
        fieldNames = ""

        For i = 1 To rs.Fields.Count
            fieldNames = fieldNames & rs.Fields(i - 1).Name
            If i < rs.Fields.Count Then
                fieldNames = fieldNames & ","
            End If
        Next i

        ' Generate the INSERT script
        Dim insertScript As String
        ' Iterate through the recordset to get the values
        Do Until rs.EOF
            ' Generate Insert script
            insertScript = "INSERT INTO " & tableName & " (" & fieldNames & ") VALUES"
            insertScript = insertScript & vbCrLf & "("
            For i = 1 To rs.Fields.Count
                ' Assuming all fields are text, you might need to handle different data types appropriately
                
                If IsNull(rs.Fields(i - 1).Value) Then
                    insertScript = insertScript & "''"
                Else
                    insertScript = insertScript & "'" & EscapeSingleQuote(rs.Fields(i - 1).Value) & "'"
                End If
                
                
                If i < rs.Fields.Count Then
                    insertScript = insertScript & ","
                End If
            Next i
            insertScript = insertScript & ")"
            
            'Insert data
            CurrentProject.Connection.Execute insertScript
            
            rs.MoveNext
        Loop
    End If
    
    ' Close the recordset and connection
    rs.Close
    dscn.Close
    Set rs = Nothing
    Set conn = Nothing
    
End Sub

Sub OpenTableForViewing(tableName As String)
    If Not IsTableOpen(tableName) Then
        DoCmd.OpenTable tableName
    End If
End Sub

Public Function IsTableOpen(strName As String) As Boolean
     IsTableOpen = SysCmd(acSysCmdGetObjectState, acTable, strName)
End Function

Sub CloseTableIfOpen(tableName As String)
    If IsTableOpen(tableName) Then
        DoCmd.SelectObject acTable, tableName
        DoCmd.RunCommand acCmdSaveRecord
        DoCmd.Close
    End If
End Sub


Sub TruncateTable(tableName As String)
    Dim strSql As String
    strSql = "DELETE FROM " & tableName & ";"
    CurrentProject.Connection.Execute strSql
End Sub

Public Function EscapeSingleQuote(strData As String) As String
     EscapeSingleQuote = Replace(strData, "'", "''")
End Function

The post How to Export REST API to MS Access using VBA Command Button appeared first on ZappySys Blog.