ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Intersect. Except VBA
7 сообщений из 7, страница 1 из 1
Intersect. Except VBA
    #38883767
Maxim12345678
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maxim12345678
Гость
Добрый день. Возможно ли реализовать Intersect и Except в Jet? Вылезает ошибка "Method 'Execute' connection failed"
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Sub DoIt()
Dim Conn As New ADODB.Connection, This_WB As Workbook
Set This_WB = ThisWorkbook
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Extended Properties=""Excel 8.0; HDR=Yes;""; Data Source=" & This_WB.FullName
'=== Объединение
Sheets("Или так").Range("H4").CopyFromRecordset _
Conn.Execute(" SELECT A.Множество1 FROM [Или так$B3:B9] A INTERSECT SELECT B.Множество2 FROM [Или так$D3:D7] B INTERSECT SELECT C.Множество3 FROM [Или так$F3:F10] C")
End Sub
...
Рейтинг: 0 / 0
19.02.2015, 12:08
| Ответить | Цитировать | Написать  
Intersect. Except VBA
    #38883778
Maxim12345678
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maxim12345678
Гость
Maxim12345678, там '=== пересечение
...
Рейтинг: 0 / 0
19.02.2015, 12:12
| Ответить | Цитировать | Написать  
Intersect. Except VBA
    #38883800
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
почему бы не воспользоваться просто INNER JOIN?
...
Рейтинг: 0 / 0
19.02.2015, 12:25
| Ответить | Цитировать | Написать  
Intersect. Except VBA
    #38883801
Maxim12345678
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maxim12345678
Гость
Shocker.Pro, воспользовался, сделал, но через Intersect проще и не нужно крутить JOIN'ы :)
...
Рейтинг: 0 / 0
19.02.2015, 12:27
| Ответить | Цитировать | Написать  
Intersect. Except VBA
    #38883806
Maxim12345678
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maxim12345678
Гость
Shocker.Pro, просто если они не поддерживаются, как я уже начинаю подозревать, то реально придётся делать кучу JOIN'ов...
...
Рейтинг: 0 / 0
19.02.2015, 12:28
| Ответить | Цитировать | Написать  
Intersect. Except VBA
    #38883810
where exists
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
where exists
Гость
все "эти ваши" Intersect и Except - "синтаксический сахар" !
Intersect === where exists (...)
Except === where not exists (...)
...
Рейтинг: 0 / 0
19.02.2015, 12:30
| Ответить | Цитировать | Написать  
Intersect. Except VBA
    #38886976
Maxim12345678
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maxim12345678
Гость
where exists, спасибо, сразу не сообразил. Думаю, так можно сделать.
...
Рейтинг: 0 / 0
24.02.2015, 11:56
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Intersect. Except VBA
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]