Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
1 / 1 / 0
Регистрация: 20.05.2013
Сообщений: 69
1

Импорт данных из Access в Excel с использованием объекта Recordset библиотеки ADODB

02.10.2014, 16:58. Показов 2106. Ответов 3
Метки нет (Все метки)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
'Option Explicit
Sub AccessToXL()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim myconn As String
Dim TARGET_DB As String
Dim qry As String
Dim strSQL As String
 
    TARGET_DB = "Report.accdb"
 
    qry = "2007-Now"
 
    strSQL = "SELECT * FROM [" & qry & "]"
 
    Set cnn = New ADODB.Connection
 
    Set rst = New ADODB.Recordset
 
    myconn = "\\хххх.lan\Documents\Hхххх\Dхххх\ХХХХ\хххххххХХХ\хххххх\ххххххх\хххххххх¸òû_\хххх\хххх\Report.accdb" 
 
    With cnn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .Open myconn
    End With
 
    rst.Open "SELECT * FROM [2007-Now]", conn
 
    Worksheets("Ëèñò1").Range("A1").CopyFromRecordset rst
 
End Sub
Выбивает ошибку на этапе :
Visual Basic
1
rst.Open "SELECT * FROM [2007-Now]", conn
Аргументы имеют неверный тип и т.д. Думаю я несовсем понял функцию Recordset, подскажите, пожалуста
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.10.2014, 16:58
Ответы с готовыми решениями:

Какие библиотеки содержат классы: Dim Con1 As ADODB.Connection Dim Rec1 As ADODB.Recordset ?
Какие библиотеки содержат эти классы: Dim Con1 As ADODB.Connection Dim Rec1 As...

Метод Find объекта ADODB.Recordset
В DAO можно бало задавать больше одного поля в критерии поиска: rs.FindFirst 'Field1 = 12 AND...

Создание ADODB recordset из запроса access
Доброго времени суток! Подскажите пожалуйста, можно ли создать рекордсет на основании запроса в...

Работа с Adodb.recordset Excel. Выборка
Доброго всем дня. Вот мучаюсь уже некоторое время, никак не могу разобраться. Видимо не замечаю...

3
6856 / 2791 / 529
Регистрация: 19.10.2012
Сообщений: 8,521
02.10.2014, 17:11 2
Там точно "Now"?
0
Эксперт MS Access
26717 / 14397 / 3190
Регистрация: 28.04.2012
Сообщений: 15,782
02.10.2014, 19:05 3
Переменная conn не определена. Видимо, имелось в виду соединение cnn
Visual Basic
1
rst.Open strSQL, cnn
1
1 / 1 / 0
Регистрация: 20.05.2013
Сообщений: 69
07.10.2014, 11:58  [ТС] 4
Да, большое спасибо) там действительно cnn
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.10.2014, 11:58

Recommended style: Private rstOrder As ADODB.Recordset Set rstOrder = New ADODB.REcordset
Ошибка такая Object variable or With block variable not set. Код такой: Private rstOrder As...

Проблема с подключением к Access: Error Type: ADODB.Recordset (0x800A0BB9)
Помогите. Подключаюсь к Access: Set Connection=Server.CreateObject('ADODB.Connection')...

Экспорт-импорт данных Excel-Access-Excel
Доброе время суток уважаемые форумчане. Приходит информация в экселевской таблице. Скидываю её в...

Обращение к данным в БД. Ошибка: Объект не является ни ADODB.RecordSet, ни ADODB.Record
при созданиие приложения в коде у меня возникла ошибка подскажите суть проблемы ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.