как запросить доступ к базе данных и получить значения на основе некоторых критериев из Excel VBA - PullRequest
Новая
       17

как запросить доступ к базе данных и получить значения на основе некоторых критериев из Excel VBA

0 голосов
/ 16 февраля 2012

Можете ли вы помочь с запросами доступа к базе данных из Excel VBA

Мой алгоритм выглядит следующим образом:

Открыть соединение для доступа к базе данных

Выбрать table1.column1, table1.column2, table1.column3, где table1.column3.value = «x» и table1.column2.value = «y»

Переключатель Случай 1: Если записей не найдено, соответствующих критериям из базы данных доступа

Введите некоторые значения и т. д. *

Случай переключения 2: если записей найдено в соответствии с критериями из базы данных доступа

Никаких действий не требуется

Переключатель 3: если найдены записи, не соответствующие критериям значения из базы данных доступа

Должны отображаться значения в сетке данных в Excel vba

Не должныпозвольте вводить значения

Пожалуйста, помогите мне с кодом, необходимым из Excel VBA

Спасибо Prabu M

1 Ответ

0 голосов
/ 01 марта 2012

обратите внимание, что case3 и case1 похожи

, вы можете использовать этот код 

    Dim recSet As Recordset
    Set recSet = CurrentDb.OpenRecordset("Select table1.column1, table1.column2,"_ 
           & "table1.column3 where table1.column3.value = 'x' and table1.column2.value = 'y'")
    If recSet.EOF Then 'No records matching criteria
        'Do something
    Else 'There was records found
        'Do Something else
    End If
...