Всем привет.
Помогите с парсингом файлов, стандартный импорт XML не прокатил. :(
В определенной папке складываю прилетающие файлы *.xml (см. аттач)
Из них нужны сегменты:
managedObject class="SBTS"
managedObject class="MPLANE"
И еще одна из строк комментария типа .(Она может быть не во всех файлах и это нормально)

В результате хотелось бы получить три таблицы
В таблице SBTS нужны NumBS(берем из имени файла после второго нижнего подчеркивания), distName="SBTS-607782" и

KdK_Armavir_Lenina_2

NumBS SBTS sbtsName 60778 607782 KdK_Armavir_Lenina_2 ... ... ...

В таблице MPLANE нужны NumBS,SBTS и значение IP-адреса

10.159.210.148

NumBS SBTS mPlaneIpAddress 60778 607782 10.159.210.148 ... ... ...

И третья, назовем ее WBTS:с полями NumBS, SBTS, WBTSID, WBTS_IP и RNCNAME

NumBS SBTS WBTSID WBTS_IP RNCNAME 60778 607782 149 10.142.131.156 NRNC2KRD ... ... ... ... ...

П.С. Устал руками вытаскивать эти данные. :(

http://www.sql.ru/forum/1297286/pomogite-rasparsit-xml-ne-polnostu

Как лучше спроектировать схему БД для электрооборудования.
(предполагается не учет хранения а только типа справочной)
1 таблица уже сделана и наполнена
При этом поле Иллюстрация -типа OLE-объекта (хранение фото) поле ОПИСАНИЕ- MEMO -для хранения характеристик
Желательно не трогая или трогая по минимуму структуру этой табл предложить более общую структуру нескольких таблиц. Ясно из электротехники, что другое электрооборудование может не иметь полей потериХХ, потериКЗ.
Недостатком уже сделанной табл является выбор поля НАИМЕНОВАНИЕ- текстового в качестве ключа.
Имеет ли смысл делать для БД подобного назначения отдельную табл пользователей с правами доступа?

http://www.sql.ru/forum/1297229/baza-dannyh-elektrooborudovaniya

Добрый день,

Подскажите, можно ли как-то избежать перезагрузки базы mdb в Acceess 2010 при периодическом разрыве соединения в сети.
Как я понял, есть вариант с слушанием на таймере и открытием нового соединения ADO. Поэксперементировал с кнопкой открывающей соединение, но все равно требует перезагрузку:

Dim ConStr As String, Cnn
ConStr = Application.CurrentProject.BaseConnectionString
Set Cnn = CreateObject("ADODB.Connection")
Cnn.Open (ConStr)

Спасибо.

http://www.sql.ru/forum/1297181/razryv-soedineniya-vozmozhno-li-izbezhat-perezagruzki-bazy

Выдает ошибку, что нет этого файла...а он ведь долго скачивается...что делать подскажите, братцы..

http://www.sql.ru/forum/1297110/zamuchilsya-v-vba-skachivau-fayl-s-ftp-i-zatem-hochu-s-etim-faylom-chto-to-sdelat

Добрый день, уважаемые.

Столкнулся вот с какой проблемкой: при переходе с *.adp проекта на *.accdb изменил способ заполнения подчиненной формы

Ранее когда был *adp проект использовал RecordSource

_{Me.Form.RecordSource="EXEC ..."
Me.Requery}


Сейчас использую RecordSet

_{Set Me.RecordSet=cn.Execute("EXEC ...")
Me.Requery}


в итоге сейчас обнаружил что с RecordSet-ом у пользователя на подчиненной форме не отображаются значения для фильтра (ранее с RecordSource встроенная фильтрация была и пользователь как хотел фильтровал данные на форме)...

Подскажите как вернуть встроенную фильрацию на форму? и возможно ли это?

Заранее спасибо!!!

http://www.sql.ru/forum/1297071/vstroennaya-filtraciya-v-podchinennoy-forme

Поцоны, чем мы хуже явистов? Уже есть несколько сайтов типа http://am.rusimport.ru/MSAccess http://hiprog.com/ которые помогают юным аксесоводам, но оттуда очень сложно пользоваться кодом. Иногда, выложены несовместимые версии, которые надо конвертить.
Предлагаю начать пользоваться github ом, чтобы выкладывать чистый код, и, в случае несовместимости версий, качать просто код, а не mdb-accdb файлы.

Сюда https://github.com/cudu/ms-access-builder я положил инструмент, назвал его builder.accdb (многие у себя на работе похоже вещи наделали). Суть его - выгрузить формы, отчеты, модули из выбранного файла или загрузить в выбранный файл из локального репозитория формы, отчеты, модули по схеме.

Сам по себе билдер по моему кривой, ибо писал я его на коленке, чтобы не выкладывать код с работы, а то могут наказать. Другими словами - там есть куда работать.

Как работает?
Выбираете папку для репозитория
Выбираете файл, откуда хотите выгрузить формы, отчеты, модули в папку
Выбираете, что выгрузить или выбираете <Все>
Нажимаете Выгрузить

Потом, без всяких уведомлений, ибо на коленке и лень пока что, все выгружается и в папке появляются все ваши модули, формы и так далее, кроме того, появляется схема (файл schema-.ini) - это схема всех объектов базы, чтобы по ней можно было файл собирать из репозитория.

В релизах есть версия r2a, которая работает в Ms Access 2010. В теории, код будет работать в любой версии. Но там придется заменить ф-ию Replace сам самописную.

Всем благ, поцоны. Если возжелаете изменений - форкайте или пишите сюда. Позже будет выложен пример работы со справочниками по пособию Программиста-Любителя и nord-wolf`а отсюда : http://www.sql.ru/forum/1055094-2/prostenkiy-primer-withevents

http://www.sql.ru/forum/1297066/ms-access-i-github

Добрый день!
Есть форма, к которой привязан запрос. Хочу переписать заполнение поля данной формы, для этого описываю процедуру Private Sub Form_BeforeUpdate(Cancel As Integer)

В данной процедуре лично определяю запросы к БД, которые необходимо выполнить, но как отменить изменение, сбросить фокус с поля и обновить форму?

me.refresh в процедуру делать не дает. Заранее спасибо

http://www.sql.ru/forum/1297060/before-update

Возможно ли вообще декартово произведение по данным из одной таблицы?
Точнее декартово произведение хочу взять по результатам 2 запросов q1 и q2 по одной таблице, например так
SELECT q1.ТИП, q1.Мощность , q1.Напряжение, q2.ТИП FROM
(SELECT q1.ТИП, q1.Мощность , q1.Напряжение From Трансформаторы As q1),
(SELECT q2.ТИП, q2.Мощность From Трансформаторы As q2)

на это ACCESS говорит ошибка -невозможно повторение имени таблицы в предложении FROM

http://www.sql.ru/forum/1297035/dekartovo-proizvedenie-iz-odnoy-tablicy

Здоровья всем и терпения!

База Access 2003. Есть табличная форма. В таблице множество столбцов, среди которых имеются требуемые для расчетов:
"Всего" - тип денежный,
"№ накладной" - тип числовой и
"Дата Счет-фактуры" - тип дата/время

В примечании формы производятся разные подсчеты. Всё работает нормально.
Попросили добавить ещё один подсчет с условием:
вывести сумму "Всего", если в столбцах "№ накладной" и "Дата Счет-фактуры" содержатся записи.

Добавил Поле60 в примечание формы, написал условие и... оно не работает!
Сумма в этом поле такая же как и в Поле30 (картинка ниже).



Хотя реально в таблице есть данные, которые надо отфильтровать (подчеркнуто красной линией).
Сумма есть, а остальные 2 значения отсуствуют:


В итоге получается, что Поле30 (Всего) и Поле60 (Реализовано) выдают одинаковый результат!


Пробовал условие записать по разному (вот последние варианты):

=IIf(IsNull([№ Счет-Фактуры]) Or IsNull([Дата Счет-фактуры]);0;Sum([СуммаВсего]))
=IIf([№ Счет-Фактуры] Is Null Or [Дата Счет-фактуры] Is Null;0;Sum([СуммаВсего]))

Access не ругается, но нужного результата с фильтром данных нет.

Что не так? Буду рад услышать советы для решения моей проблемы.

http://www.sql.ru/forum/1297018/filtraciya-dannyh-v-forme-ispolzuya-uslovie

Здравствуйте, уважаемые форумчане

Появилась мысль прикрутить к своему интерфейсу какой нибудь простенький построитель схем, видели/делали что-то подобное?

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


____
vk.com/taenfox

http://www.sql.ru/forum/1297017/shema-risunok-na-osnove-dannyh

В базе имеется таблица СТУДЕНТЫ. Ежегодно бухгалтерия дает табличку оплаты по курсам и специальностям.
Задался вопросом, как подвязать к студентам эти данные?
Вся информация в таблице СТУДЕНТЫ есть, которая позволяет найти суммы из правой таблицы. Без создания дополнительных полей в первой таблице привязку можно сделать?
Надо приводить вторую таблицу в вид, где в каждой строке будет одна специальность? Или можно по другому?

+

http://www.sql.ru/forum/1297012/sostykovat-tablicu-oplat-so-studentami

Дорого времени суток коллеги!
При переходе с DAO на ADO не могу настроить переход к нужной записи на разделённой форме после вставки новой строки в таблицу. Источник записей вьюшка на сервере, одним из источников которой является таблица в которую добавили запись.
Пытаюсь реализовать в следующем виде:

Forms!glform2.RecordSource = Forms!glform2.RecordSource
  Forms!glform2.Recordset.Requery
  Forms!glform2.OrderBy = "[№ п/п]"
  Forms!glform2.OrderByOn = True
  Forms!glform2.Recordset.MoveLast
  Forms!glform2.Recordset.Find "[ЛС_абонента] = '" & Me.ls_ab & "'", , adSearchBackward

Forms!glform2.Recordset.MoveLast перемещает курсор не на последнюю запись

Не могу понять в чём дело

http://www.sql.ru/forum/1297005/perehod-po-zapisyam-ado

Здравствуйте!

Не ругайте новичка за набившие оскомину вопросы. Прошу поделиться типовыми примерами или ссылками на видеоуроки как организовать ввод и редактирование данных в формах, открывающихся по кнопкам с табличной формы просмотра. Нужно именно посмотреть, как конкретно это сделано, жесткий цейтнот - не могу идти в направлении типа "рой в сторону RecordSet" и т.п.

Есть большой опыт программирования в Делфи, в Акцессе нет совсем, а надо помочь сделать проект в короткие сроки.

Кстати, может кто-нибудь за деньги 2 недели поотвечать на самые дурные воросы - буду делать и дергать. Нужна оперативность, терпение и возможность общаться по скайпу - смотреть ваш экран.

Проект не студенческий, все реально должно работать. Оплату обсудим, понимаю, что врем - деньги.

dgrimberg@mail.ru
скайп DinaGri.

http://www.sql.ru/forum/1296934/voprosy-ot-novichka-po-tipovym-priemam-vvoda-dannyh

Microsoft объявила, что в этом году Microsoft выпустит новую версию своего популярного продукта на базе Office 2007. Среди новшеств Office 2019 компания упоминает поддержку рукописного ввода во всех приложениях — речь идёт о беспроводных чехлах для цифрового пера, поддержке эффектов наклона и силы давления. Также в Excel появились более мощные средства анализа данных вроде новых формул, диаграмм и интеграции Power BI. В PowerPoint добавлены сложные функции для презентаций, такие как эффекты Morph и Zoom. Большинство этих возможностей новы только для пользователей Office 2016 — подписчикам Office 365 ProPlus они уже доступны давно. У пользователей cwer.ru есть возможность попробовать привью версию Office 2019.

Microsoft Office 2019 включает в себя:

Microsoft Office 2019 Professional Plus
Microsoft Access 2019
Microsoft Excel 2019
Microsoft OneNote 2019
Microsoft Outlook 2019
Microsoft PowerPoint 2019
Microsoft Publisher 2019
Microsoft Word 2019
Skype for business 2019
OneDrive for business
OneDrive
Microsoft Visio Professional 2019
Microsoft Proect Professional 2019

пакет Microsoft Office 2019 Preview x86 (1,91 ГБ)
пакет Microsoft Office 2019 Preview x64 (2,12 ГБ)

ОС: Windows 7, 8.1, 10. В дальнейшем будет поддержка только Windows 10

Видел на файлообменниках.
-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

http://www.sql.ru/forum/1296864/microsoft-office-2019-preview

Приветствую!
Сильно не бейте.

Что то не могу нарыть ответ.

Есть БД, создана в 2007. перешел на 2010.
А БД теперь открывается "только на чтение".

Импортировал в новую 2010, но.
После сжатия или изменения записей из линкованной(тоже "обновленной") бд - получаю сообщение "База данных доступна только для чтения".
При этом данные в таблицах (и в этой и в линкованной)изменяются.
И программно и вручную и через форму.
Смотрел в дебагере, сообщение вываливается на самой последней строке(End) выполняемого кода.

Как избавиться от сообщения?

http://www.sql.ru/forum/1296849/iz-2007-v-2010

Где сейчас используется MS Access и насколько ее функционал сравним с топовыми СУБД - Oracle, My SQL, PostegreSQL?

http://www.sql.ru/forum/1296838/aktualnost-ms-access-v-2018

ОС: Server 2012 R2
MS Access: x32 14.0.7195.5000 SP2 MSO 14.0.7208.5000
База в MDB (есть собственное меню).

При открытии разных сводных таблиц может вылезти, а может и нет, куча ошибок как на скриншоте. Т.е. одну и ту же сводную таблицу можно открывать несколько раз, и можно получить или не получить данную ошибку. Если поубавить количество выводимых полей, то можно добиться стабильности, но разве это жизнь?

В Access 2003 эта же база прекрасно работала.

Ошибка повторяется не только для формы, но и если просто открыть запрос-источник в виде сводной таблицы.

Не помогло:
• сжатие-восстановление;
• переименование полей на английский;
• пересоздание запроса и формы.

http://www.sql.ru/forum/1296794/ne-rabotaut-svodnye-tablicy-v-access-2010-v-mdb-fayle

Собственно вопрос в другом. Нужно как-то отловить событие закрытия Access 2010.
Поиск в гугле дает стандартное решение стартануть форму, скрыть её и ловить собитие Unload.

Собственно, моя стартовая форма проверяет по событию Open под каким логином в ос залогинен пользователь и уже относительно логина там происходит бизнес-логика. Сейчас эта форма после всех процедур успешно закрывается.

Мне было бы удобно сделать её невидимой вместо закрытия. Но вот на какое бы я событие не вешал
Me.Visible = False
Me.Form.Visible = False
Она не прячется. Как ее спрятать автоматически?

Если на форме разместить кнопку, то на событие клик (если навесить Me.Visible = False) она становится невидимой. Может есть возможность симулировать нажатие кнопки?

http://www.sql.ru/forum/1296737/kak-skryt-startovuu-formu

Здравствуйте, уважаемые форумчане!

Делаю следующую дичь:
на форме большой листбокс с результатами запроса
на этой же форме расположены поля, по которым ищем позицию из этого запроса (как узнать текст запроса? из RowSource? сейчас вбито вручную в VBA). один из критериев - километраж
нажимаем кнопку - из заполненных полей собирается строка поиска - найденный результат выделяется в листбоксе
всё работает хорошо ровно до того момента, пока не пытаюсь найти нулевой километр. машинка бодренько отчитывается что textbox = null, а у меня на этом условие для написания строки критерия

Dim srch As String

If Me.txtKppSrchKM.Value <> 0 _ 
    Then

'пытался воткнуть сюда , 
'но код тогда совсем ломается и считает меня дегенератом, а не дилетантом

    If Left(srch, 4) <> " and" And srch <> "" Then srch = srch & " and"
    srch = srch & " Pln_KPP_list.KM = " & CStr(Me.txtKppSrchKM.Value)
End If

Как бы лучше победить этот проблемес без перестройки всей этой конструкции?
____
vk.com/taenfox

http://www.sql.ru/forum/1296730/pytaus-sdelat-filtr-cherez-textbox-spotykaus-ob-0-null

в ctl содержатся значения:3,5,5,8,8 какие записи должен вернуть SELECT TOP 3......ORDER BY ctl DESC
фактически:8,8,5,5
я считал:8,8,5,5,3
В чем я ошибаюсь

http://www.sql.ru/forum/1296669/predikat-top