ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / 3702 Не удается найти указанный поставщик.
8 сообщений из 8, страница 1 из 1
3702 Не удается найти указанный поставщик.
    #39540883
vb_sub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vb_sub
Участник
Всем привет, был код, который работал на Windows 7 32 bit+Office 2003 32 bit
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Dim xl_con As ADODB.Connection
Dim workpath  As String


Set xl_con = CreateObject("ADODB.Connection")
workpath = "\\a-fs3\USERS\SNY\COLD\podn.XLS"



   With xl_con
    '' .Provider = "Microsoft.ACE.OLEDB.12.0;Persist Security Info=False"
      .Provider = "Microsoft.Jet.OLEDB.4.0"
      .ConnectionString = "Data Source=" & workpath & ";" & _
                            "Extended Properties=""Excel 12.0 Xml;HDR=YES"""
      .Mode = adModeRead
      .Open
    End With
    
  Set xl_con = Nothing
  End



Понадобилось перенести этот код на Windows10 64 bit+Office 2010 64 bit, соответственно поменял провайдера данных на Microsoft.ACE.OLEDB.12.0, установил AccessDatabaseEngine_X64.exe, AccessRuntime_X64.exe- нифига не находит поставщика данных. Подскажите кто сталкивался с такой проблемой- как решить? Спасибо.
...
Рейтинг: 0 / 0
24.10.2017, 10:31
| Ответить | Цитировать | Написать  
3702 Не удается найти указанный поставщик.
    #39541036
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
XLSX нало для 12.0
...
Рейтинг: 0 / 0
24.10.2017, 13:35
| Ответить | Цитировать | Написать  
3702 Не удается найти указанный поставщик.
    #39541041
vb_sub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vb_sub
Участник
Konst_One,
нужно также открывать все тот же xls, только с 2010 офиса.
...
Рейтинг: 0 / 0
24.10.2017, 13:43
| Ответить | Цитировать | Написать  
3702 Не удается найти указанный поставщик.
    #39541339
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
И у меня ровно та же проблема началась. Win 7 x64 + Office 2003 несколько лет работало, а на той неделе вдруго пропали odbc-драйвера экселя. переустановки офиса не помогли, откаты не помогли, ничего не помогло, слияние не работает.
...
Рейтинг: 0 / 0
24.10.2017, 22:11
| Ответить | Цитировать | Написать  
3702 Не удается найти указанный поставщик.
    #39541507
Фотография Nik_Kurta
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nik_Kurta
Участник
Пробуй так:

Dim conADO As ADODB.Connection

'.xls 97 - 2003
Set conADO = New ADODB.Connection
conADO.Provider = "Microsoft.ACE.OLEDB.12.0"
conADO.ConnectionString = ";Data Source=" & strFileXLSpatch & ";Extended Properties=Excel 8.0;"
conADO.CursorLocation = adUseClient
conADO.Open

или

'.xlsx 2007 - 2013
Set conADO = New ADODB.Connection
conADO.Provider = "Microsoft.ACE.OLEDB.12.0"
conADO.ConnectionString = ";Data Source=" & strFileXLSpatch & ";Extended Properties=Excel 12.0 Xml;"
conADO.CursorLocation = adUseClient
conADO.Open
...
Рейтинг: 0 / 0
25.10.2017, 10:43
| Ответить | Цитировать | Написать  
3702 Не удается найти указанный поставщик.
    #39541520
MS,
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MS,
Гость
AntonariyИ у меня ровно та же проблема началась. Win 7 x64 + Office 2003 несколько лет работало, а на той неделе вдруго пропали odbc-драйвера экселя. переустановки офиса не помогли, откаты не помогли, ничего не помогло, слияние не работает.
Постмоти тут - 20864998 , не твой случай ?
...
Рейтинг: 0 / 0
25.10.2017, 10:57
| Ответить | Цитировать | Написать  
3702 Не удается найти указанный поставщик.
    #39541537
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
MS,AntonariyИ у меня ровно та же проблема началась. Win 7 x64 + Office 2003 несколько лет работало, а на той неделе вдруго пропали odbc-драйвера экселя. переустановки офиса не помогли, откаты не помогли, ничего не помогло, слияние не работает.
Постмоти тут - 20864998 , не твой случай ?спасибо, посмотрю
...
Рейтинг: 0 / 0
25.10.2017, 11:13
| Ответить | Цитировать | Написать  
3702 Не удается найти указанный поставщик.
    #39541834
vb_sub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vb_sub
Участник
Хз с помощью каких бубнов, но удалось запустить программу. К сожалению, так и не понял , что именно помогло.
...
Рейтинг: 0 / 0
25.10.2017, 15:20
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / 3702 Не удается найти указанный поставщик.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39541036&tid=2155186]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 39ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 14ms
total:  148ms
созд. / загр.: 148ms
x
x
Закрыть


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