Code Snippet
Sub Main()
ProductsProcs()
End Sub
‘ Products Stored Procs to be added to the db.
Sub ProductsProcs()
Dim sSQL As String
‘ procAddRumahLokasi — Add record to the Rumah_Bancian table
sSQL = «CREATE PROC procAddRumahLokasi (inNoKPKIR varchar(12), inKodNeg varchar(2), inKodPar varchar(3), inKodDun varchar(2), inKodDae varchar(2), inStatusLokasi varchar(50), inGPSNorth varchar(50), inGPSEast varchar(50), inAlamat1 varchar(50), inAlamat2 varchar(50), inAlamat3 varchar(50), inPoskod varchar(50), inBandar varchar(50), inNegeri varchar(50))» & _
» AS INSERT INTO Rumah_Bancian (NoKPKIR, KodNegeri, KodParlimen, KodDun, KodDaerah, StatusLokasi, GPSNorth, GPSEast, Alamat1, Alamat2, Alamat3, Poskod, Bandar, Negeri) » & _
» Values (inNoKPKIR, inKodNeg, inKodPar, inKodDun, inKodDae, inStatusLokasi, inGPSNorth, inGPSEast, inAlamat1, inAlamat2, inAlamat3, inPoskod, inBandar, inNegeri);»
CreateStoredProc(sSQL)
End Sub
‘ Execute the creation of Stored Procedures
Sub CreateStoredProc(ByVal sSQL As String)
Dim conn As OdbcConnection
Dim cmd As OdbcCommand = New OdbcCommand
Dim sConStr As String = «Provider = Microsoft.Jet.OLEDB.4.0;DSN=BSE2008;uid=;pwd=first1234;MultipleActiveResultSets=True;»
conn = New OdbcConnection(sConStr)
cmd.Connection = conn
cmd.CommandText = sSQL
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
End Sub
27.04.19 — 14:13
Всем почти летней весенней субботы!-)
Написал обработку на свом компе, в начальной своей задаче она подрубается к бд access для последующего изъятия оттудова данных, все прекрасно работает. Перенес на комп с Win Server 2008 и все встало.
Сначала была проблема с созданием COMОбъект(«ADODB.Connection»), о чем вопрошал на форуме на прошлой неделе.
Ладно, эту проблему разрешил, но следующая настигла буквально на следующей строчке.
При попытке Connection.Open(СтрокаПодключения) выходит ошибка «Произошла исключительная ситуация (Microsoft OLE DB Provider for ODBC Drivers): [Microsoft][Диспетчер драйверов ODBC] Источник данных не найден и не указан драйвер, используемый по умолчанию.
Собственно, если загуглить эту ошибку, ответов очень много, в том числе и на данном форуме, но 90% из них касаются подключения к базам MS SQL. Мне из этого ничего не помогло.
Теме не менее, что было предпринято и проделано:
1. Скачан свежий MDAC и переустановлен.
2. Дважды скачаны и установлены драйверы для Access
3. Дважды переустановлен Office
Ничто из этого не помогло ни разу.
Операционка 64 бит, офис 32 бит, 1С 32 бит
На ноуте, где тестировалась эта же обработка, расклад по битности такой же, только ОС Windowc 7.
В администраторе источников данных ODBC все один в один, перепроверил несколько раз.
Что еще предпринять, даже предположить не могу…:)
1 — 27.04.19 — 14:16
(0) для работы с Access не нужен Microsoft OLE DB Provider for ODBC Drivers,
код покажи
2 — 27.04.19 — 14:18
(0) там сам вызов в обработке надо переделать
3 — 27.04.19 — 14:19
(1)
ФайлБазы = «C:UsersUserDesktopУрожsprut.mdb»;
// Инициализация подключения к базе
СтрокаПодключения = «Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=» + ФайлБазы;
Connection = Новый COMОбъект(«ADODB.Connection»);
Connection.Open(СтрокаПодключения);
4 — 27.04.19 — 14:20
(2) простите, не понял вас
5 — 27.04.19 — 14:21
(2) Повторюсь, на моем-то компе работает, базы и там и там файловые, с серваком напрямую работаю, не через RDP даже
6 — 27.04.19 — 14:29
СтрокаПодключения = «Provider=Microsoft.ACE.OLEDB.12.0; Data Source=» + ФайлБазы+ «;»»»
Примерно так
7 — 27.04.19 — 14:39
(3)[СтрокаПодключения = «Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=» + ФайлБазы;]
забудь как страшный сон
https://www.connectionstrings.com/access-97/
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:mydatabase.mdb;
8 — 27.04.19 — 14:46
(6) (7) Господа, увы. В обоих случаях ошибка «Не удается найти указанный поставщик. Вероятно, он установлен неправильно».
9 — 27.04.19 — 14:47
По правде, я перепробовал штук 10 разных строк подключения.
10 — 27.04.19 — 14:48
(8) ну положи руки по каток — у всех работает
11 — 27.04.19 — 14:52
«Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=» + ФайлБазы; у меня на ноуте тоже работает и наверное «Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:mydatabase.mdb;» сработает (не проверял).
Пойдук кстати проверю, дабы руки руки на каток не класть-)
12 — 27.04.19 — 14:55
(11) открой реестр windows, посмотри чего там написано, скопипасть сюда.
13 — 27.04.19 — 15:05
(10) Все же мои руки непричем: строка Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:myFoldermyAccessFile.accdb на моем компе отработала на ура.
14 — 27.04.19 — 15:05
(13) отработала на ноуте, но не на серваке
15 — 27.04.19 — 15:06
(11) у меня
Driver={Microsoft Access Driver (*.mdb)};Dbq=
16 — 27.04.19 — 15:09
(15) так тоже пробовал — ошибка как в теме сабжа…
17 — 27.04.19 — 15:14
(12) а что с реестром-то делать? Открыл, в правой части пусто.
18 — 27.04.19 — 15:20
(16) так вы DBQ большими буквами фигачите, сервер такого не прощает.
19 — 27.04.19 — 15:29
(18) переписал на Dbq — ошибка таже.
Проблема где-то в операционке мне кажется, вот только где…
20 — 27.04.19 — 15:34
(17) ну нашли там Driver={Microsoft Access Driver эту строчку?
21 — 27.04.19 — 15:44
22 — 27.04.19 — 16:22
(20) Нет, не вижу
23 — 27.04.19 — 16:25
Имхо проблема в админе и правах, или в чем то не доустановленном или ошибках в «комп с Win Server 2008».
24 — 27.04.19 — 16:30
Да если требуется только изымать данные из mdb то попробуй https://github.com/brianb/mdbtools
А конкретно https://github.com/lsgunth/mdbtools-win тупо экспорт в csv и далее работа с ними.
25 — 27.04.19 — 16:31
26 — 27.04.19 — 16:31
(23) (24) (25) Благодарю.
27 — 27.04.19 — 16:45
(26) Не за что, инет сила.
Только что протестил, мелкие таблички мгновенно распаковывает.
mdb-export ‘Northwind.mdb’ ‘Products’ > Products.csv
https://i.paste.pics/ad239bcb06c474431080f0026950bf61.png
28 — 27.04.19 — 16:46
(27)+ Но не проверял что с кириллицей будет, могут быть проблемы.
У меня базы с русским нету ибо нет ms office дома
29 — 27.04.19 — 16:50
(28) Русские имена таблиц болт
30 — 27.04.19 — 16:53
(29) все имена на латинице. Вот только боюсь что c github быстро разобраться не получится, я о нем раньше только слышал.
Если покопать в сторону админа и прав, с чем можно поиграться?
31 — 27.04.19 — 16:53
(7) на самом деле тут может быть проблема. Движок Jet 4.0 изымался из висты и из каких-то младших версий MDAC (кажется из MDAC 2.8, хотя могу ошибаться), поэтому то что установили MDAC — еще не гарантирует, что оно будет работать. Такого рода проблемы у меня когда-то давно были. С учетом того что (0) нигде не указывает, что у него W2008 R2, возможно, у него те же проблемы, что и с вистой — т.е. 32-битный Jet 4.0 отсутствует, а поставить он его не может потому что не знает как. Поэтому же не работают и ODBC-драйверы — потому что для работы с MDB им по-любому нужен движок Jet, а его нет в системе.
32 — 27.04.19 — 16:56
(31) Винда 2008 R2.
33 — 27.04.19 — 16:56
(30) Кириллица cp1251 внутри таблиц в записях все ок, проблема только имена таблиц и возможно полей.
Там ничего разбираться не надо с гитхаб просто скачать https://github.com/lsgunth/mdbtools-win/archive/master.zip и распаковать
Далее mdb-export ‘ИмяФайла.mdb’ ‘ИмяТаблицы’ > ИмяТаблицы.csv
34 — 27.04.19 — 17:00
(32) Вообще немного странно, потому что R2 — это больше «семерка», чем «виста», и Jet 4.0 32-битный в нем должен быть.
35 — 27.04.19 — 17:01
Сервер 1С точно 32 бит?
36 — 27.04.19 — 17:02
Вообще во многих источниках говорят про то что Jet устарел и рекомендуют перейти на более новую версию движка
https://www.microsoft.com/EN-US/DOWNLOAD/DETAILS.ASPX?ID=13255
причем он бывает и 32-битный, и 64-битный
37 — 27.04.19 — 17:03
(35) База файловая, 1С-ка 32 битная.
38 — 27.04.19 — 17:03
но вам тогда придется поменять строку подключения
39 — 27.04.19 — 17:04
(36) Проще Microsoft SQL Server Express поставить и через него уже
40 — 27.04.19 — 17:05
(39) Оттуда из строчку подключения дернуть из SQL Server Management Studio
41 — 27.04.19 — 17:05
(39) а причем тут скуль? Это же разные вещи — формат скуля и настольный формат ACE (ранее MDB)
42 — 27.04.19 — 17:06
(41) Он требуемое в комплекте поставит в т.ч. для доступа к mdb ))
43 — 27.04.19 — 17:06
(36) самое печальное, что я уже скачивал и устанавливал эту утилитую
А про строку тогда можно более подробнее?
44 — 27.04.19 — 17:06
другое дело, что скуль до кучи и этот движок может притащить с собой, но я в этом не уверен
45 — 27.04.19 — 17:07
(43) Сейчас гляну
46 — 27.04.19 — 17:07
(39) На серваке 60 баз-) отдельно одну базу не вариант на него ставить, а 60 на 10 гб не станут-)
47 — 27.04.19 — 17:08
Попробуй все же через mdb-export вытащить как в (33), если все ок то и нафик, зато решение универсальное и даже под linux работает, если 1С там
48 — 27.04.19 — 17:09
(47) тащить через командную строку?
49 — 27.04.19 — 17:10
(48) Дык проверенное решение.
Можно конечно извратиться и на основе исходников ВК наваять но нафига?
50 — 27.04.19 — 17:11
(49)не, я уточняю-)
51 — 27.04.19 — 17:12
(45) У меня станцевало вот так
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=»D:DocumentsProgrammingTradeDBe-scales.mdb»
52 — 27.04.19 — 17:13
с 32-битным движком. Вот только что специально установил по ссылке в (36).
53 — 27.04.19 — 17:16
от старенького Jet4 отличается тем, что все исключения, касающиеся базы — на английском, а не на русском. А так разницы особой не вижу.
54 — 27.04.19 — 17:16
(51) у меня на ноуте с Виндой 7 сегодя тоже под этой стройкой станцевало на ура…
а на этом гребаном серваке болт: Произошла исключительная ситуация (ADODB.Connection): Не удается найти указанный поставщик. Вероятно, он установлен неправильно.
55 — 27.04.19 — 17:16
(33)+ Уточнение что внутри mdb была кириллица cp1251 а после экспорта в csv там utf8
56 — 27.04.19 — 17:18
(55) внутри mdb cp1251? Это, наверно, какой-то совсем старый mdb, потому что уже в формате Access 2000 они все шли с UTF-16 Unicode. Я других и не видел тыщу лет.
57 — 27.04.19 — 17:19
(54) а вы движок перед этим по ссылке поставили? Какой битности? Надо было 32-битный, раз у вас 1С файловая и 32-битная.
58 — 27.04.19 — 17:21
(57) обязательно. И комп (сервак) перезапустил. 32 битный, 64 даже не ставится, пишет не предназначен для данного ПО.
59 — 27.04.19 — 17:21
(56) А хрен его знает что там внутри, может и UTF16.
Но на выходе UTF8
60 — 27.04.19 — 17:23
(59) ну если просто открывать на просмотр (например фаром по F3) файл MDB от Access 2000-2003, то видно, что строки там лежат в UTF-16 LE. Собственно, она нативная для современных виндов, так что удивительного тут мало.
61 — 27.04.19 — 17:28
(58) не предназначен? Вы хотите сказать, что сервер у вас 32-битный?
Тогда попробуйте сделать вот что. Создайте на нем файл 111.udl и запустите его на исполнение двойным щелчком.
Что вы увидите на закладке «Поставщик данных»?
62 — 27.04.19 — 17:28
63 — 27.04.19 — 17:32
+ (61) как вариант, вы можете вообще полностью сконструировать и протестировать вашу строку в этом UDL-файле. А потом просто зайти в него и скопировать оттуда данные или написать в строке соединения ADODB.Connection
FILE NAME=[путь]111.udl
64 — 27.04.19 — 17:42
(61) Операционка 64 бит
это то что на вкладке
https://yadi.sk/i/lzHTDPIHnYr70Q
65 — 27.04.19 — 18:06
(64) а почему тогда у вас 64-битный инсталлятор движка не запускается на выполнение, как вы пишете в (57)?.. Ладно. Тогда попробуйте сделать следующее. Зайдите в 1С, зайдите в меню Файл, Открыть. Выберите в диалоге открытия Тип файлов — Все файлы (*.*). Найдите ваш 111.udl, щелкните по нему правой кнопкой и выберите последний пункт, «Свойства». Что теперь видите в закладке «Поставщик данных»?
66 — 27.04.19 — 18:09
67 — 27.04.19 — 18:13
А вот и момент истины. Смотрите. У вас есть аж три (!) 32-битных движка для доступа к Access файлу. Это Microsoft Office 12.0 Access Database Engine, Microsoft Office 16.0 Access Database Engine и Microsoft Jet 4.0 OLE DB Provider. Вы можете проверить их по одному. Выбирайте каждый, заходите в закладку Соединение, прописывайте там путь к файлу и нажимайте Проверить соединение.
68 — 27.04.19 — 18:14
начните с Jet 4.0, там можно выбрать mdb-файл через диалог. В более новых надо прописывать строку пути руками.
69 — 27.04.19 — 18:37
(68) Результаты следующие: Microsoft Jet 4.0 OLE DB Provider и Microsoft Office 12.0 Access Database Engine — проверка соединения за вершилась успешно.
Попытка проверить соединение от Microsoft Office 16.0 Access Database Engine вызывает исключительную ситуацию с закрытием 1С.
70 — 27.04.19 — 18:54
(69) ну а теперь все очень просто. Берете любой пример где соединение завершилось успешно и жмете ОК или Применить. После этого внутри файла 111.udl вы имеете рабочую строку соединения, которая гарантированно подключает (вы же проверяли). Этот файл — текстовый, вы можете скопировать из него инфу. Либо можете не копировать, а сделать как написано в конце (61). Пробуйте.
71 — 27.04.19 — 19:01
(70) Невероятно, но гребаный факт, кликаю на этот заполненный файл, выходит сообщение:
«Не удается найти поставщика. Убедитесь, что поставщик был установлен правильно.»
72 — 27.04.19 — 19:02
(71) Вы кликаете откуда, из винды? Зря. Зайдите в 1С, Открыть и Свойства
73 — 27.04.19 — 19:03
Здесь прикол в том, что когда вы кликаете из винды, вы это делаете из 64-битной среды исполнения. Там все другое. И движков этих — НЕТ. А когда вы делаете то же самое из 1С, вы делаете это из 32-битной среды исполнения.
74 — 27.04.19 — 19:06
Не-не, все предыдущее я проделал как вы все написали, из 1С, через «Свойства».
Сейчас открыт файл в 1С:
«[oledb]
; Everything after this line is an OLE DB initstring
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:papkasprut.mdb;Persist Security Info=False»
75 — 27.04.19 — 19:07
Пробую в 1С обработку, опять ошибка…
76 — 27.04.19 — 19:07
Как выглядит код обработки?
77 — 27.04.19 — 19:08
вот сейчас, после того как скопировали данные
78 — 27.04.19 — 19:10
Тестирую сразу два вида строки, чтоб быстрее, к первой подключаюсь через попытку
СтрокаПодключения = «Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=» + ФайлБазы;
Connection = Новый COMОбъект(«ADODB.Connection»);
Попытка
Connection.Open(СтрокаПодключения);
Исключение
а = 0;
КонецПопытки;
СтрокаПодключения = «Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:papkasprut.mdb; Persist Security Info=False»;
Connection.Open(СтрокаПодключения);
79 — 27.04.19 — 19:12
Строка записана верно. Я бы оставил второй вариант и проверял его.
80 — 27.04.19 — 19:13
(79) Проверяю, но ошибка таже. Фууххх…
81 — 27.04.19 — 19:14
тогда вариантов пока нет
82 — 27.04.19 — 19:16
Если операционка x86_64 то может быть такой прикол что тонкий клиент 1С x86 в файловой.
Но еще стоит платформа 1C x86_64 опубликованная на апаче/iis и в ней &НаСервере вполне 64 бит ))
83 — 27.04.19 — 19:18
(82) Отдельная одна база опубликована, но не эта.
84 — 27.04.19 — 19:19
А как узнал что платформа 1С x86 а не x86_64 ?
85 — 27.04.19 — 19:20
Сделай ка
&НаСервере
Процедура ИнфоНаСервере()
Сообщить("На сервере------------------------------------------------------");
СисИнфо = Новый СистемнаяИнформация;
Сообщить("ВерсияОС: "+СисИнфо.ВерсияОС);
Сообщить("ТипПлатформы: "+СисИнфо.ТипПлатформы+", ВерсияПриложения: "+СисИнфо.ВерсияПриложения);
Сообщить("Процессор:"+СисИнфо.Процессор+", Память: "+СисИнфо.ОперативнаяПамять);
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
ИнфоНаСервере();
Сообщить("На клиенте------------------------------------------------------");
СисИнфо = Новый СистемнаяИнформация;
Сообщить("ВерсияОС: "+СисИнфо.ВерсияОС);
Сообщить("ТипПлатформы: "+СисИнфо.ТипПлатформы+", ВерсияПриложения: "+СисИнфо.ВерсияПриложения);
Сообщить("Процессор:"+СисИнфо.Процессор+", Память: "+СисИнфо.ОперативнаяПамять);
КонецПроцедуры
86 — 27.04.19 — 19:24
(84) я же их сам ставлю и обновляю-) Ежели она в папке C:Program Files (x86), следовательно, 32. Или есть какие-то нюансы?
(85) ага, сейчас попробую
87 — 27.04.19 — 19:27
А сервер то перезагружал после установки (36) ?
88 — 27.04.19 — 19:29
(87) Обязательно!
На Сервере:
ТипПлатформы: Windows x86, ВерсияПриложения: 8.3.13.1513
На клиенте:
ТипПлатформы: Windows x86, ВерсияПриложения: 8.3.13.1513
89 — 27.04.19 — 19:33
Вот только почему функция СисИнфо.ВерсияОС вернула Microsoft Windows 7?? А Компьютер — свойства — показваете Server 2008 r2?… Удивительно.
90 — 27.04.19 — 19:38
(89) И на сервере и на клиенте «вернула Microsoft Windows 7» ?
91 — 27.04.19 — 19:39
(90) Ага. Ничё непонимаю-)
92 — 27.04.19 — 19:40
(91) А 1С случаем не в «режиме совместимости» запускаете?
93 — 27.04.19 — 19:42
94 — 27.04.19 — 19:47
(93) Глянул на всякий, нет, не в режиме совместимости
95 — 27.04.19 — 19:49
Ну тогда уй его знает, сервак переустановить точно должно помочь. Но не 100% ))
96 — 27.04.19 — 19:52
(95) Снести его нахрен-))
Короч за год с небольшим плотной практики с 1С это первая поблема, решение которой не пришло не изнутри, не извне.
Придется идти обходным путем, как вы выше написали.
Или какого-нить сисадмина 80-го уровня искать-)
97 — 27.04.19 — 19:57
Всемогрмное спасибо за помощь!!!
В особенности Garykom и NorthWind.
По-крайней мере хоть что-то новое узнал-))
98 — 27.04.19 — 21:14
Спасибо, но вообще все это предельно странно. Особенно странно то, что тест OLEDB-соединения в соответствующей среде проходит успешно. Была бы угроблена винда — не проходил бы тест…
99 — 27.04.19 — 21:16
(98) Может там учебная версия 1С в которой COM-соединения порезаны ))
100 — 27.04.19 — 21:16
100
Сегодня при написании обработки загрузки данных из MS Access в 1С, столкнулся со следующей проблемой:
была необходимость узнать версию драйвера ODBC для Access, но оснастка Windows для управления источниками ODBC не знакома с драйверами Access’a (несмотря на то, что я отдельно ставил Access Database Engine для работы с .mdb файлами, созданными в MS Access 2007. При входе в «Источники данных (ODBC)» можно было добавить драйвер только для SQL Server’а. Все это сопровождалось сообщением «Не удается найти программы установки для драйвера ODBC Microsoft Access driver (*.mdb). Переустановите драйвер.»
Гугл подсказал, что в Vista/Windows7 x64 есть две копии odbcad32.exe, один из них находится в «C:Windowssyswow64», а другой в «C:Windowssystem32». Открывая, как обычно, «Источники данных (ODBC)» через Панель управления — Администрирование, мы открываем второй вариант odbcad32.exe, то есть тот, который располагается в «C:Windowssystem32» и в итоге у нас нет нужного нам драйвера ODBC.
Решение: необходимо открыть вот этот файл «C:Windowssyswow64odbcad32.exe». Там без особых проблем можно установить MS Access ODBC driver.