Chapter 11. Framework Query List

Chapter 11. Framework Query List

Let's create a worksheet, name it as Reports and connect to the viewPayments view.

The Select Object screen has significantly changed since the last connection:

Sample of the customized Connection Wizard

It includes much more objects and additional columns like Translated Name and Description.

First of all, Translated Name and Description are shown as we added the SaveToDB Framework, added the object translation, and selected English in the Options. This feature helps users to understand database objects better.

The second, the wizard shows installed SaveToDB Framework objects.

 

Select the Framework Query List item in the Select Query List combobox, and the wizard displays source objects:

Select Query List

You can filter objects, also. Type pay, for example.

Sample of the object filter

Let's select the dbo67.viewPayments view and leave Enable Query List on the ribbon checked.

 

Let's check the AccountID, CompanyID, and ItemID in the W column, and insert the view at cell B3.

Select SELECT and WHERE fields

We see a new feature. The ribbon Query List allows us to change the query.

Ribbon Query List in Microsoft Excel

This is a very useful feature. Users can use a few worksheets to work with multiple database objects.

Moreover, when developers add new objects to a database, users just reload the query list and can connect.

Creating the Reports worksheet using VBA

The following code is similar to the previous chapter codes:

' Creates the Reports worksheet, Chapter 11

Sub Chapter11_1_CreateReportsWorksheet()

    Dim addIn As Object
    Set addIn = GetAddInAndCheck()

    If addIn Is Nothing Then Exit Sub

    Dim wb As Workbook
    Set wb = ActiveWorkbook

    Call addIn.InsertAddInSheets(wb)

    Dim connString As String
    connString = GetConnectionString()

    Dim ws As Worksheet
    Set ws = GetOrCreateConnectedWorksheet(wb, _
        "Reports", connString, "dbo67.viewPayments", "VIEW", True)

    If ws Is Nothing Then Exit Sub

    ws.Select

    Dim lo As ListObject
    Set lo = GetFirstListObject(ws)

    If lo Is Nothing Then Exit Sub

    addIn.QueryList(lo) = "xls01.viewQueryList"
    addIn.QueryLocked(lo) = False

    Call addIn.ReloadQueryList(lo)

    addIn.IsRibbonField(lo, "AccountID") = True
    addIn.IsRibbonField(lo, "CompanyID") = True
    addIn.IsRibbonField(lo, "ItemID") = True

    ' Use ParameterValue to set id values
    ' addIn.ParameterValue(lo, "AccountID") = Nothing
    ' addIn.ParameterValue(lo, "CompanyID") = Nothing
    ' addIn.ParameterValue(lo, "ItemID") = Nothing

    ' Use ParameterRibbonValue to set name values
    ' addIn.ParameterRibbonValue(lo, "AccountID") = Nothing
    ' addIn.ParameterRibbonValue(lo, "CompanyID") = Nothing
    ' addIn.ParameterRibbonValue(lo, "ItemID") = Nothing

End Sub

It calls two new methods used to set the query list object and reload it:

addIn.QueryList(lo) = "xls01.viewQueryList"

Call addIn.ReloadQueryList(lo)