Попытка получить результат из запроса SQL внутри макроса libreoffice и ошибка получения BASIC во время выполнения. Переменная объекта не установлена - PullRequest
Новая
       39

Попытка получить результат из запроса SQL внутри макроса libreoffice и ошибка получения BASIC во время выполнения. Переменная объекта не установлена

0 голосов
/ 23 мая 2019

У меня есть таблица контактов, у каждого из них есть ComapnyName , к которой принадлежит этот контакт. У каждой компании может быть только один главный контактный человек , помеченный полем BIT MainContact Я хотел бы создать макрос, который будет запускаться, выбрав CompanyName из Combobox в форме. Основываясь на выбранном значении, я хотел бы запустить простую проверку SQL-запросов, если выбранный Comapny имеет основное контактное лицо , если это так, флажок, позволяющий людям выходить замуж за этот тип людей, должен быть серым (отключено)

К сожалению, я получаю ОСНОВНУЮ ошибку во время выполнения. Переменная объекта не установлена. в этой строке ResultSet = Statement.ExecuteQuery ("SELECT COUNT (*) от сотрудников WHERE CompanyName = 'IBM' AND MainContact = 1")

Sub CompanyFormChange () 

Dim ResultSet As Object

ResultSet = Statement.ExecuteQuery("SELECT COUNT (*) from Employees WHERE CompanyName = 'IBM' AND MainContact= 1")

While ResultSet.next

If ResultSet.getINT(1) = 0 Then
    MsgBox("No record")
    Else 
        MsgBox("There is a record")
    End If

WEnd

End Sub

...