Ошибка 3706 не удается найти указанный поставщик

5468 / 1148 / 50

Регистрация: 15.09.2012

Сообщений: 3,514

Скажите, пожалуйста, какая ошибка в макросе.
Ошибка возникает в строке 20. Полный текст ошибки: Run-time Error ‘3706’ Не удается найти указанный поставщик. Возможно, он установлен неправильно.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

Sub Procedure_1()
    
    'Путь к папке, где содержатся текстовые файлы.
    Const myFolderPath As String = "C:UsersUserDesktop;"
        
    'Библиотека "Microsoft ActiveX Data Objects версия Library".
    Dim myConnection As ADODB.Connection
    
    
    'Создание объекта "Connection".
    Set myConnection = CreateObject(Class:="ADODB.Connection")
    
    'Указываем, какой провайдер нужно использовать, адрес базы данных,
        'дополнительные параметры.
    myConnection.ConnectionString = _
        "Provider={Microsoft Text Driver (*.txt; *.csv)};DBQ=" & myFolderPath & _
        "Extensions=asc,csv,tab,txt"
 
    'Подключение к базе данных.
    myConnection.Open
    
End Sub

Вообще задача следующая: нужно из Excel получить доступ к CSV-файлу, чтобы работать с CSV-файлом не в программе «Excel», а как с базой данных. Так по идее правильнее будет.

Ещё хотелось бы пользоваться одним поставщиком (а не несколькими) в разных версиях «MS Office».

Примечание

Поставщик (имеет ещё название «провайдер») — это программа, которая подключается к базе данных. База данных в данной теме — это CSV-файл. Поставщик в данной теме «Microsoft Text ODBC Driver» (в макросе поставщик записан «{Microsoft Text Driver (*.txt; *.csv)}».
Библиотека «ADO» подключается к поставщику.
Макрос подключается к библиотеке «ADO».

6076 / 1320 / 195

Регистрация: 12.12.2012

Сообщений: 1,023

Здравствуйте, Скрипт,

Есть несколько замечаний по вашей строке подключения:

1. Рассмотрим часть вашей строки подключения «Provider={Microsoft Text Driver (*.txt; *.csv)}…». Название параметра здесь не Provider, а Driver. Смотрите официальную статью Microsoft, раздел «Строки подключения ODBC».
2. После замены названия параметра мы обнаружим, что в вашей строке подключения не указан поставщик (Provider). Нужно его указать.

На моей машине из числа ODBC поставщиков есть поставщик MSDASQL, а исправленная программа выглядит так:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53

Sub Procedure_1()
 
    Const Q As String = """"
    
    'Ïóòü ê ïàïêå, ãäå ñîäåðæàòñÿ òåêñòîâûå ôàéëû.
    Const myFolderPath As String = "C:UsersUserDesktop"
    
    'Èìÿ òåêñòîâîãî ôàéëà.
    Const myDatabaseFile As String = "test.csv"
    
    'Îáúÿâëÿåì ïåðåìåííûå îáúåêòíîãî òèïà (èñïîëüçóåì ïîçäíåå ñâÿçûâàíèå).
    Dim myConnection As Object
    Dim myRecordset As Object
 
    'Ñîçäàåì îáúåêò "Connection".
    Set myConnection = CreateObject(Class:="ADODB.Connection")
    
    'Óêàçûâàåì, êàêîé ïðîâàéäåð íóæíî èñïîëüçîâàòü, àäðåñ áàçû äàííûõ,
        'äîïîëíèòåëüíûå ïàðàìåòðû.
    myConnection.ConnectionString = _
        "Provider=MSDASQL.1;" & _
        "Extended Properties=" & _
        Q & _
            "Driver={Microsoft Access Text Driver (*.txt, *.csv)};" & _
            "DBQ=" & myFolderPath & ";" & _
            "Extensions=txt,csv,tab,asc;" & _
            "FileDSN=" & myFolderPath & "" & myDatabaseFile & ".dsn" & _
        Q
 
    'Ïîäêëþ÷àåìñÿ ê áàçå äàííûõ.
    myConnection.Open
    
    'Ñîçäàåì îáúåêò "Recordset".
    Set myRecordset = CreateObject(Class:="ADODB.Recordset")
    
    'Óêàçûâàåì ñîåäèíåíèå, èñïîëüçóåìîå îáúåêòîì "Recordset".
    myRecordset.ActiveConnection = myConnection
    
    'Âûïîëíÿåì çàïðîñ ê áàçå äàííûõ.
    myRecordset.Open "SELECT * FROM " & myDatabaseFile
    
    'Òåñòèðóåì ðåçóëüòàò çàïðîñà.
    With myRecordset.Fields(0)
        Debug.Print "Ïåðâîå çíà÷åíèå ïîëÿ " & Q & .Name & Q & " ðàâíî " & .Value
    End With
    
    'Çàêðûâàåì íàáîð çàïèñåé.
    myRecordset.Close
    
    'Îñâîáîæäàåì ñîåäèíåíèå.
    myConnection.Close
    
End Sub

С уважением,

Aksima

5468 / 1148 / 50

Регистрация: 15.09.2012

Сообщений: 3,514

Aksima, строку подключения я смотрел на специальном сайте (http://www.connectionstrings.com/textfile/), но название параметра не заметил. Сделал вместо слова «Provider» слово «Driver» и заработало.

Aksima, сейчас посмотрел в интернете, но не понял до конца (статьи на английском находил). Я правильно понял, что в текстовых файлах разделитель между полями при использовании «ADO» можно устанавливать только в двух местах:

1. Windows-реестр;
2. нужно создать текстовый файл и поместить его в специальное место. Из этого текстового файла макрос будет брать разделитель.

Если это так, то, наверное, в моём случае не подходит использование «ADO», т.к. сложно всё получается.

Мне нужно указать разделитель «;».

6076 / 1320 / 195

Регистрация: 12.12.2012

Сообщений: 1,023

Здравствуйте, Скрипт,

Да, вы правы. Если нужно использовать особый разделитель, то необходимо либо изменить соответствующую запись в реестре, либо использовать файл schema.ini.

По ссылке Excel, csv & Query вы можете найти мое решение этой проблемы.

С уважением,

Aksima

5468 / 1148 / 50

Регистрация: 15.09.2012

Сообщений: 3,514

Aksima, я подробно не вчитывался в тему, ссылку на которую Вы дали в предыдущем сообщении (надо много времени потратить, прежде, чем осмыслить, что в той теме), но понял, что Вы используете текстовый файл, в котором есть информация о разделителе.

Буду знать, что не всё так просто с «ADO» и текстовыми файлами.

Aksima, не подскажите, в какой строке этого кода https://www.cyberforum.ru/post5065494.html указывается специальный текстовый файл с информацией о разделителях? Всматриваюсь и не могу найти.

6076 / 1320 / 195

Регистрация: 12.12.2012

Сообщений: 1,023

Скрипт, указывать расположение данного файла не нужно.

Однако необходимо, чтобы этот файл лежал в той же папке, что и csv-файл. Когда драйвер будет его обрабатывать, он самостоятельно проверит наличие в папке csv-файла файла схемы данных и если он есть — применит указанные в нем настройки.

Если вы посмотрели далее в этой же теме еще один листинг, то наверняка обратили внимание на то, что при программном создании файла schema.ini я располагаю его в той же папке, где и csv-файл. Таким образом, указанное выше условие соблюдается.

1
2
3
4
5
6
7

p = Application.GetOpenFilename("CSV data logs,*.csv", , _
    "Укажите расположение csv-файла", , False)
' ...
p = Left(p, InStrRev(p, "")) 'Путь к папке csv-файла.
' ...
Open p & "schema.ini" For Output As #1
' ...

С уважением,

Aksima

Создал приложение. Оно работает только на компьютере где установлен vb6.
При переносе на другой компьютер, при запуске программы возникают следующие ошибки:

Class not registered
Looking for object with CLSID :{00000010-0000-0010-8000-00AA006D2EA4}

Run-time error ‘3706’
Не удается найти указанного поставщика. Вероятно, он установлен неправильно.

Открываю файл Project1.vbp в блокноте. Вот его содержание:

——————————
Type=Exe
Reference=*G{00020430-0000-0000-C000-000000000046}#2.0#0#……WINDOWSSystem32stdole2.tlb#OLE Automation
Reference=*G{00000200-0000-0010-8000-00AA006D2EA4}#2.0#0#……Program FilesCommon Filessystemadomsado20.tlb#Microsoft ActiveX Data Objects 2.0 Library
Reference=*G{00020813-0000-0000-C000-000000000046}#1.5#0#……Program FilesMicrosoft OfficeOFFICE11EXCEL.EXE#Microsoft Excel 11.0 Object Library
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; COMDLG32.OCX
Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCTL.OCX
Object={CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0; MSDATGRD.OCX
Form=Form1.frm
Form=frmMain.frm
Form=frmDocument.frm
Form=frmTabl1.frm
Module=Module1; Module1.bas
Form=frmCheck1.frm
Form=Form3.frm
Form=Form2.frm
Form=Form4.frm
Reference=*G{6B263850-900B-11D0-9484-00A0C91110ED}#1.0#0#……WINDOWSSystem32MSSTDFMT.DLL#Microsoft Data Formatting Object Library
Form=frmDocument2.frm
Form=frmTabl2.frm
Form=frmCheck2.frm
Form=Form5.frm
Form=Form6.frm
Form=Form7.frm
Form=Form8.frm
Form=Form9.frm
Form=Form10.frm
IconForm=»Form1″
Startup=»Form1″
ExeName32=»Magazine.exe»
Command32=»»
Name=»Project1″
HelpContextID=»0″
CompatibleMode=»0″
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
CompilationType=0
OptimizationType=0
FavorPentiumPro™=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1
DebugStartupOption=0

[MS Transaction Server]
AutoRefresh=1

—————————————
Копирую в папку где устанолена моя программа файлы на которые ссылется проект:

msado20.tlb
COMDLG32.OCX
MSCOMCTL.OCX
MSDATGRD.OCX

и файлы которые просит при запуске
MSSTDFMT.DLL
msvbvm60.dll
VB5DB.DLL

Запускаю программу. Но опять таже ошибка.
Объясните на пальцах как ее устранить, что и куда нужно дописать что бы заработало.

Цитата(ArtNeoX @ 24.1.2006, 17:33 )

Class not registered Looking for object with CLSID :{00000010-0000-0010-8000-00AA006D2EA4}

Это DAO.DBEngine 3.5.
Установи/зарегистрируй.

———————

 О(б)суждение моих действий — в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция — Администрация форума.

———————

 О(б)суждение моих действий — в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция — Администрация форума.

———————

Скачать последний MDAC с сайта M$ и установить.
откуда?
Добавлено @ 21:40
это вот это что ли ?

Microsoft Data Access Components (MDAC)2.8 RU
http://download.microsoft.com/download/c/f…48/MDAC_TYP.EXE

Microsoft Data Access Components (MDAC)2.8 ENGL
http://download.microsoft.com/download/c/d…6f/MDAC_TYP.EXE

скачал. на win xp sp2 не устанавливается, пишет что типа это уже установлено с виндовс.
в win xp sp1 и win me установилось.
но ошибка никуда не исчезла.
прочитал на другом форуме что нужно написать в своем проекте при запуске строку
DAO = CreateObject(«DAO.DBEngine.35»)
однако теперь добавилась еще ошибка
Run-time error ‘429’:
ActiveX component can’t create object

что делать?

Цитата(ArtNeoX @ 25.1.2006, 03:41 )

что делать?

Я решил эту проблему с помощью C++ Builder от Borland.

———————

———————

 О(б)суждение моих действий — в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция — Администрация форума.

Цитата(ArtNeoX @ 28.1.2006, 19:46 )

Ну объясните же наконец как сделать, либо дайте ссылку на литературу по этому вопросу, если сами не знаете как или лень писать сдесь.

Тебе непонятно сказали? Скачай MDAC 2.8 SP 1, установи.
А вообще,
Модератор: Пожалуйста, один топик — один вопрос.

Это сообщение отредактировал(а) Exception — 29.1.2006, 17:07

———————

У меня в References проекта выбраны:
Visual Basic For Applications
Visual Basic runtime objects and procedures
Visual Basic Object and procedures
OLE Automation
Microsoft ActiveX Data Objects 2.0. Library
Microsoft Excel 11.0 Object Library
Microsoft Data Formating Object Library

После установки Microsoft Data Access Components (MDAC)2.8 RU нужно ли что то подключать в проекте в References ?

этой вот nsis можно сделать что бы исчезла ошибка

Class not registered
Looking for object with CLSID :{00000010-0000-0010-8000-00AA006D2EA4}

Run-time error ‘3706’
Не удается найти указанного поставщика. Вероятно, он установлен неправильно.

при создании инстолятора способом описанным в ссылке http://forum.vingrad.ru/index.php?showtopic=57092
ошибка осталась.

сделал reg файл с таким содержанием

REGEDIT4

[HKEY_CLASSES_ROOTDAO.DBEngine.35] @=»Microsoft DAO 3.51 Object Library DBEngine»
[HKEY_CLASSES_ROOTDAO.DBEngine.35CLSID] @=»{00000010-0000-0010-8000-00AA006D2EA4}»
[HKEY_CLASSES_ROOTCLSID{00000010-0000-0010-8000-00AA006D2EA4}] @=»DAO.DBEngine.35″
[HKEY_CLASSES_ROOTCLSID{00000010-0000-0010-8000-00AA006D2EA4}InprocServer32] @=»C:\TEMP\DAO350.DLL» «ThreadingModel»=»Apartment»
[HKEY_CLASSES_ROOTCLSID{00000010-0000-0010-8000-00AA006D2EA4}ProgID] @=»DAO.DBEngine.35″

кинул в папку c:TEMPDAO350.DLL

Запустил reg файл. Потом программу.
Теперь ошибка
Data Access Error

и

Run-time error ‘3706’
не удается найти уазанного постовщика. Вероятно, он установлен непраильно.

Цитата(ArtNeoX @ 4.2.2006, 14:05 )

а какие еще файлы нужно копировать и регистировать по мимо этого?

Дык вроде бы только этот.

Цитата(ArtNeoX @ 4.2.2006, 12:05 )

как пользоваться resvr32.exe

regsvr32.exe путь_к_твоей_длл_или_ocx

при запуске программы использующей datagreed
ошибка на другом компьютере

Run-time error ‘3706’
Не удается найти указанного поставщика. Вероятно, он установлен неправильно.

что это за ошибка?

Установка MDAC 2.8 не помогает.

оишибка Run-time error ‘3706’ Не удается найти указанного поставщика. Вероятно, он установлен неправильно.
остается.
Используется datagreed ей соответствует файл msado20.tlb

regsvr32.exe msado20.tlb

не работает. Пишет что надо или dll или OCX
Какой файл надо прорегистрировать, что бы убрать ошибку ?
Добавлено @ 13:17
Установка MDAC 2.8 не помогает.

оишибка Run-time error ‘3706’ Не удается найти указанного поставщика. Вероятно, он установлен неправильно.
остается.
Используется datagreed ей соответствует файл msado20.tlb

regsvr32.exe msado20.tlb

не работает. Пишет что надо или dll или OCX
Какой файл надо прорегистрировать, что бы убрать ошибку ?

Цитата(ArtNeoX @ 4.2.2006, 21:39 )

Run-time error ‘3706’ Не удается найти указанного поставщика. Вероятно, он установлен неправильно. что это за ошибка?

Установи там последний MDAC.

Цитата(ArtNeoX @ 5.2.2006, 13:16 )

Используется datagreed ей соответствует файл msado20.tlb

Господи! Кто тебе это сказал? Или сам догадался?
Прочти внимательнее название етого файла — ну написано же английским по белому — АДО это.
Вот табе код для Inno Setup — все нужные тебе длл/осх — у меня программа была с такими же референсами:

файлик: Msdatgrd.ocx — что это по твоему? .
В этом списке всё, что надо для адо и jet 3.51. Я в сетуп рограммы этой мдак не включал — токо эти длл из него выковырял. Датагрид то в мдак не входит.
тлб как руками зарегить — не помню можно ли regsvr32
а длл/осх смотри по списку — если стоит «regserver» — то надо регить — а если нет — то не надо!
Про regsvr32 — ты путь к файлу который региш писал?
вот так: regsvr32 C:winda……my_dll.dll — путь полный надо.
Причём имена папок там длинные не поддерживаются — если больше 7 букв — то оставляеш токо 5 букв и тильду (~) с единичкой (myfolder = myfol~1).
а адо то в мдак точно входит — его руками не надо если мдак установил.

Вобчем тебе датагрид надо зарегистрировать(Msdatgrd.ocx). Токо боюсь что это не всё.
Если не поможет — проверь есть ли в системе все перечисленные в списке моём компоненты. Что надо ставь и регь — или просто кидай в …виндоузсистем — если в списке на этом элементе нет ключа «regserver».
Список полный и проверен 2-мя годами — и до сих пор почти ежемесячно ставлю кому-то эту прогу — жалоб не было.
Добавлено @ 23:55
Ой блин — погоди! Ты с какой БД то работаеш? Я чёто решил что аксес — но потом токо понял что не видел слова этого нигде .
Вобчем если аксес и бд в формате аксеса 97 — то это оно. Если формат новее — то тебе надо установить JET 4.0! А если не аксес — то провайдер, однако, совсем не обязательно в мдаке твой есть . БД какая у тебя?

kulibin, спасибо за исчерпывающий ответ. Но я уже разобрался.
Сделал вот как.
PDWizard создал MDAC_TYP.exe со всеми компанентами.
Установил его на компьютере без VB6
в папку со своей программой поместил файлы
DAO350.DLL
MSSTDFMT.DLL
VB5DB.DLL
и
REGSVR32.exe
создал bat файл со следующим содержанием.
@echo off
RegSvr32.exe DAO350.DLL
RegSvr32.exe MSSTDFMT.DLL
PAUSE

Запустил bat файл на выполнение для регистрации файлов.
Теперь все работает.