Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Не могу установить Properties для ADODB.Connection - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не могу установить Properties для ADODB.Connection (Макросы/Sub)
Не могу установить Properties для ADODB.Connection
Udik Дата: Вторник, 31.01.2017, 18:27 | Сообщение № 1
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация: 192 ±
Замечаний: 0% ±

Excel 2016 х 64
В общем ерунда какая-то, при попытке установить "Data Source" и Extended Properties вылетает ошибка. При этом если объект создан ранним связыванием ошибки нет. Ошибка на строке cn.Properties.Item(9) = "Excel 12.0;HDR=YES"
Как это забороть?
[vba]
Код

Option Explicit

Public Sub tt()
    Dim rst As Object, cn As Object
    Dim Path As String
    Dim myRecordSet As Object
    Dim db As ADODB.Connection
    
    
    Path = ThisWorkbook.FullName
    Set db = New ADODB.Connection
    db.Properties("Data Source") = Path
    db.Properties.Item(9) = "Excel 12.0;HDR=YES"
    
    Set cn = CreateObject("ADODB.Connection")
    cn.provider = "Microsoft.ACE.OLEDB.12.0"
    cn.Properties.Item(9) = "Excel 12.0;HDR=YES"
    
    cn.Properties("Data Source") = Path
    cn.Open
    Set rst = CreateObject("ADODB.Recordset")
    rst.Open "select * from MyTable", cn
    cn.Close
    
End Sub

[/vba]
К сообщению приложен файл: ADODBCConnectio.xlsm (19.1 Kb)

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеВ общем ерунда какая-то, при попытке установить "Data Source" и Extended Properties вылетает ошибка. При этом если объект создан ранним связыванием ошибки нет. Ошибка на строке cn.Properties.Item(9) = "Excel 12.0;HDR=YES"
Как это забороть?
[vba]
Код

Option Explicit

Public Sub tt()
    Dim rst As Object, cn As Object
    Dim Path As String
    Dim myRecordSet As Object
    Dim db As ADODB.Connection
    
    
    Path = ThisWorkbook.FullName
    Set db = New ADODB.Connection
    db.Properties("Data Source") = Path
    db.Properties.Item(9) = "Excel 12.0;HDR=YES"
    
    Set cn = CreateObject("ADODB.Connection")
    cn.provider = "Microsoft.ACE.OLEDB.12.0"
    cn.Properties.Item(9) = "Excel 12.0;HDR=YES"
    
    cn.Properties("Data Source") = Path
    cn.Open
    Set rst = CreateObject("ADODB.Recordset")
    rst.Open "select * from MyTable", cn
    cn.Close
    
End Sub

[/vba]
Автор - Udik
Дата добавления - 31.01.2017 в 18:27
SLAVICK Дата: Вторник, 31.01.2017, 19:05 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Цитата Udik, 31.01.2017 в 18:27, в сообщении № 1 ()
Ошибка на строке cn.Properties.Item(9) = "Excel 12.0;HDR=YES"

у мну тут ошибка не вылетает.
Ошибку выдавало тут:
[vba]
Код
rst.Open "select * from MyTable", cn
[/vba]

А вот так сработало:
[vba]
Код
rst.Open "select * from [Лист1$]MyTable", cn
[/vba]
К сообщению приложен файл: 3413528.xlsm (19.0 Kb)

Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
Цитата Udik, 31.01.2017 в 18:27, в сообщении № 1 ()
Ошибка на строке cn.Properties.Item(9) = "Excel 12.0;HDR=YES"

у мну тут ошибка не вылетает.
Ошибку выдавало тут:
[vba]
Код
rst.Open "select * from MyTable", cn
[/vba]

А вот так сработало:
[vba]
Код
rst.Open "select * from [Лист1$]MyTable", cn
[/vba]
Автор - SLAVICK
Дата добавления - 31.01.2017 в 19:05
Udik Дата: Вторник, 31.01.2017, 19:31 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация: 192 ±
Замечаний: 0% ±

Excel 2016 х 64
Цитата SLAVICK, 31.01.2017 в 19:05, в сообщении № 2 ()
у мну тут ошибка не вылетает.

Блин, значит это у меня какой-то глюк. Попробовал файл из вашего сообщения - та же фигня.



Вообще жесть, запустил файл на 2007 и никаких проблем.
К сообщению приложен файл: 3177473.jpg (53.0 Kb)

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Сообщение отредактировал Udik - Вторник, 31.01.2017, 19:38
 
Ответить
Сообщение
Цитата SLAVICK, 31.01.2017 в 19:05, в сообщении № 2 ()
у мну тут ошибка не вылетает.

Блин, значит это у меня какой-то глюк. Попробовал файл из вашего сообщения - та же фигня.



Вообще жесть, запустил файл на 2007 и никаких проблем.
Автор - Udik
Дата добавления - 31.01.2017 в 19:31
SLAVICK Дата: Вторник, 31.01.2017, 19:49 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Точно не помню, но вроде вот это нужно установить, чтоб начало работать.

Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеТочно не помню, но вроде вот это нужно установить, чтоб начало работать.
Автор - SLAVICK
Дата добавления - 31.01.2017 в 19:49
Udik Дата: Вторник, 31.01.2017, 19:53 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация: 192 ±
Замечаний: 0% ±

Excel 2016 х 64
Попробую поставить.

==
Заработало, спасибо!

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Сообщение отредактировал Udik - Вторник, 31.01.2017, 19:57
 
Ответить
СообщениеПопробую поставить.

==
Заработало, спасибо!
Автор - Udik
Дата добавления - 31.01.2017 в 19:53
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не могу установить Properties для ADODB.Connection (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2026 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!