0 / 0 / 0
Регистрация: 20.10.2019
Сообщений: 2
1
Excel

Выборка данных из Access в Excel, по определенному условию (динамичный диапазон)

19.11.2019, 22:14. Показов 1032. Ответов 0

Уважаемые знатоки! Нужна Ваша помощь. На просторах интернета решения не нашлось.

Специалист формирует накладную в книге Excel, выбирая комплекты из перечня, которые находятся в БД Access (данный запрос работает ). Комплектов может быть неограниченное кол-во штук. Комплект состоит из комплектующих, соответственно которые находятся в этой же БД Access и состав каждого комплекта забит в БД.
Необходимо осуществить выборку данных комплектующих из access, получается по динамическому диапазону. Я умею лишь по определенному значению. Помогите пожалуйста, как это осуществить?


Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim conn As Object
Dim rst As Object
    Set conn = CreateObject("ADODB.Connection")
    Set rst = CreateObject("ADODB.Recordset") ' соединение с БД
    On Error Resume Next
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Jet OLEDB:Database Password=;User ID=Admin;Data Source=C:\Комплекты металл\Расчет\base.mdb;"
    Set rst = conn.Execute("SELECT Комплект, Артикул, Наименование FROM Комплектующие WHERE Комплект =’НЕИЗВЕСТНАЯ МНЕ ПЕРЕМЕННАЯ’")
    If Not rst.EOF And Not rst.BOF Then
        ActiveSheet.ListObjects(tab2).ListRows.Add
        ActiveSheet.Range(tab2 & "[Артикул]").ListColumns.item = rst.Fields.Count
        Do Until rst.EOF
            If IsNull(rst.Fields(0)) Then ActiveSheet.ListObjects(tab2).ListRows.AddItem "" Else ActiveSheet.ListObjects(tab2).ListRows.AddItem CStr(rst.Fields(0))
 
ActiveSheet.Range(tab2 & "[Комплект]").Rows.item(i) = rst.Fields(0).Value
ActiveSheet.Range(tab2 & "[Артикул]").Rows.item(i) = rst.Fields(1).Value ' артикул комплектующей
ActiveSheet.Range(tab2 & "[Наименование]").Rows.item(i) = rst.Fields(2).Value' наименование комплектующей
            i = i + 1
            rst.MoveNext
                
        Loop
    End If
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.11.2019, 22:14
Ответы с готовыми решениями:

Импорт строк из Excel в таблицу MS ACCESS по определенному условию
Всем добрый день! Есть файл Excel, в котором 8 столбцов (строковые данные) и много (порядка 250...

Динамичный диапазон ячеек Excel
Есть диапазон ячеек, в который необходимо заносить информацию из datagridview. Сейчас он задается...

Как удалить диапазон данных в MS Excel по условию?
Всем привет! Помогите решить задачу (пример файла приложен). 1) Требуется , чтобы при удалении...

Выборка из базы данных Access по условию
Помогите, пожалуйста поправить код... Задача: Есть база данных. В ней две связанных между собой...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2019, 22:14

Выборка из базы данных Access по условию
Всем доброго здоровичка! VB2008 FW=3.5 Пересмотрел форум, всё равно не понял как делать (мозг...

Выборка из открытых рекордсетов по определенному условию.
есть открытые рекордсеты, допустим их 4, мне нужно создать новый рекордсет из записей уже открытых...

Макрос excel 2010. Оставить строку по определенному условию, лишнее удалить
Здравствуйте, в сети много рабочих макросов для удаление строки в таблице по условию, или по...

Выборка строк по условию из базы Access
Подскажите пожалуйста как такое сделать: есть база access в ней таблица cars. Как мне из этой...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru