Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / 3702 Не удается найти указанный поставщик. / 8 сообщений из 8, страница 1 из 1
24.10.2017, 10:31
    #39540883
vb_sub
vb_sub
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
3702 Не удается найти указанный поставщик.
Всем привет, был код, который работал на 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, 13:35
    #39541036
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
3702 Не удается найти указанный поставщик.
XLSX нало для 12.0
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2017, 13:43
    #39541041
vb_sub
vb_sub
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
3702 Не удается найти указанный поставщик.
Konst_One,
нужно также открывать все тот же xls, только с 2010 офиса.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2017, 22:11
    #39541339
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
3702 Не удается найти указанный поставщик.
И у меня ровно та же проблема началась. Win 7 x64 + Office 2003 несколько лет работало, а на той неделе вдруго пропали odbc-драйвера экселя. переустановки офиса не помогли, откаты не помогли, ничего не помогло, слияние не работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2017, 10:43
    #39541507
Nik_Kurta
Nik_Kurta
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
3702 Не удается найти указанный поставщик.
Пробуй так:

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:57
    #39541520
MS,
MS,
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
3702 Не удается найти указанный поставщик.
AntonariyИ у меня ровно та же проблема началась. Win 7 x64 + Office 2003 несколько лет работало, а на той неделе вдруго пропали odbc-драйвера экселя. переустановки офиса не помогли, откаты не помогли, ничего не помогло, слияние не работает.
Постмоти тут - 20864998 , не твой случай ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2017, 11:13
    #39541537
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
3702 Не удается найти указанный поставщик.
MS,AntonariyИ у меня ровно та же проблема началась. Win 7 x64 + Office 2003 несколько лет работало, а на той неделе вдруго пропали odbc-драйвера экселя. переустановки офиса не помогли, откаты не помогли, ничего не помогло, слияние не работает.
Постмоти тут - 20864998 , не твой случай ?спасибо, посмотрю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2017, 15:20
    #39541834
vb_sub
vb_sub
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
3702 Не удается найти указанный поставщик.
Хз с помощью каких бубнов, но удалось запустить программу. К сожалению, так и не понял , что именно помогло.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / 3702 Не удается найти указанный поставщик. / 8 сообщений из 8, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 418ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2155186]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 44ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 271ms
total:  418ms
x
x
Закрыть


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