Форумчане, помогите пожалуйста:

Adp проект: Аccess2003 + SQL 2000

есть работающая вьюшка vw_ActSub, которая подключается к БД адресу: 10.1.1.7\regCentr и формирует массив данных
SELECT *
FROM [10.1.1.7].regCentr.dbo.vwActSub

мне нужно подключиться к БД адресу: 10.1.1.7\CENTR\registrCentr
пробовала по разному
FROM [10.1.1.7.CENTR].registrCentr.dbo.vwActSub
FROM [10.1.1.7\CENTR].registrCentr.dbo.vwActSub
не получается.
Спасибо.

https://www.sql.ru/forum/1308405/podkluchenie-k-drugomu-serveru-dlya-vyborki-dannyh

Всем доброго времени суток!
Даже не знаю как объяснить, задача нелёгкая, но я попробую.


Есть таблица работы работников на работах :D

Работа МесяцНачалаРаботы МесяцКонцаРаботы Работник

Мне нужно сделать таблицу, которая покажет все месяцы, которые попали под работу, то есть если есть 2 записи:

Работа1 Январь Март Работник1
Работа2 Февраль Апрель Работник2

Я хочу получить что-то наподобие:

Январь Работа1 Работник1
Февраль Работа1 Работник1
Февраль Работа2 Работник2
Март Работа1 Работник1
Март Работа2 Работник2
Апрель Работа2 Работник2

Попробовал создать таблицу "Месяцы" И вручную все месяцы вбил, только поля месяцы с работниками и работами перемешать через UNION не получилось. То есть месяцы которые идут между начальной датой и последней просто ну никак не попадают.
Помогите плз может какие нибудь промежуточные или доп таблицы?

https://www.sql.ru/forum/1308381/peremeshat-znacheniya-v-polyah

Господа, приветствую.

Проблема несколькими словами...
Есть таблица календаря работы человека. Всего 360 дней на человека с несколькими вахтами работы, длящиеся приблизительно дней 40.
Есть определенные маркеры начала и конца вахт (Пр и От)

Как вывести в одной строке в двух полях дату начала и дату окончания вахты человека,
ну и по строкам эти несколько вахт за год?

https://www.sql.ru/forum/1308359/vyborka-neskolkih-peresecheniy-periodov-v-techenie-goda

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

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

Для работы с данными подформы использую DAO.recordset. Понадобилось найти по одному полю максимальное значение, сделал через

for ... to ... next

. Второй вариант - сделать SQL-запрос в исходную таблицу, которая по факту содержит данные, отобранные в рекордесете подформы, то есть отборать по полю связи и найти MAX.

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

Спасибо за ответы

https://www.sql.ru/forum/1308347/ispolzovanie-agregatnyh-funkciy-s-dao

Пытаюсь из внешнего приложения(не офисного) открыть adodb.connection
Пробую так
connDB.Open "Provider=Microsoft.ACE.OLEDB.12.0;data source=" & "********\test.mdb;"
Ошибка - Не удается найти указанный поставщик. Вероятно он установлен неправильно.
Пробовал менять версию провайдера на 16 - не помогает. Указывал jet 4 - тоже не помогает.
Может проблема в разрядности?
Офис и access - 32, а windows и приложение откуда пробую присоединиться - 64....

https://www.sql.ru/forum/1308310/adodb-connection

Приветствую всех!
На компе установлены две версии одной программы, причем одна из них Runtime. Как определить, какая версия запущена в данный момент?

https://www.sql.ru/forum/1308302/versiya-programmy

День добрый всем. Задача - нужно в отчете пронумеровать страницы по группам в виде стр 1 из 5, например. Как проставить номера страниц в группе понятно и уже обсуждалось, а вот как посчитать общее число страниц в группе? Пока единственная идея - дважды формировать отчет, в первый раз вычислить и занести число страниц в группе в массив, на второй раз выводить. Возможно ли как-нибудь попроще?

https://www.sql.ru/forum/1308291/numeraciya-stranic-v-gruppe-otcheta

Совсем не в тему

1 февраля произойдет глобальное обновление протокола системы доменных имен. В связи с этим некоторые сайты окажутся под угрозой. Интернет-ресурсы могут работать с неполадками или вообще полностью рухнуть.

https://video.mirtesen.ru/clusters/cluster/69982976/1
https://adindex.mirtesen.ru/blog/43479528886
https://mt.360tv.ru/blog/43601007870

В первый день февраля наступит новая эра интернета. В ней больше не окажется места для старого DNS-протокола (Domain Name System) — Сеть перейдет на новый стандарт доменных имен EDNS (Extended DNS, расширенная DNS), рассказали специалисты из Института развития интернета (ИРИ). Этот день получил название DNS Flag Day.

«В этот день вступают в силу изменения в системе доменных имен (DNS), которые сделают недоступными устаревшие серверы по всему миру», — говорится в сообщении ИРИ, опубликованном в Telegram-канале института.

Каждое устройство, которое подключено к интернету, имеет собственный числовой IP-адрес, по которому его можно найти. Благодаря DNS нам достаточно только написать в строке браузера буквенный адрес (например, 360tv.ru) и, нажав клавишу Enter, перейти на сайт. DNS-серверы помогают установить соответствие между IP-адресом и именем.

Для того, чтобы избежать проблем с работой интернет-сайтов, специалисты ИРИ рекомендуют системным администраторам просто обновить ПО на серверах, а также проверить поддержку EDNS, либо передать поддержку доменной зоны на один из DNS-хостингов.

По словам директора Координационного центра доменов RU/РФ (КЦ) Андрея Воробьева, на данный момент, если рекурсивный сервер посылает запрос в новом формате и не получает ответ, то он повторяет запрос еще раз в старом формате (это делается как раз на тот случай, если авторитетный сервер имеет устаревшее ПО).

«Однако после 1 февраля сервер не будет больше использовать старый формат запроса — он будет спрашивать только один раз», — пояснил Воробьев РБК.

Но, несмотря на это, в Координационном центре доменов RU/РФ все же считают опасения сильно преувеличенными.

«Мы провели собственное исследование по ситуации в российских национальных доменных зонах.RU и.РФ, и оно показало, что серверов, некорректно отвечающих на запросы по обновленной процедуре, в российских доменах доли процента», — приводит РИА «Новости» слова Воробьева.

Кроме того, директор КЦ также отметил, что в основном проблема будет заключаться не в отсутствии работоспособности сайта, а в некотором замедлении отклика.

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

Глава по глобальному взаимодействию с заинтересованными сторонами в Восточной Европе и Центральной Азии ICANN Александра Куликова рассказала, что организаторы DNS Flag Day проводили тесты для того, чтобы обнаружить проблемные зоны. И таких зон, по словам Куликовой, оказалось немного.

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

https://www.sql.ru/forum/1308275/1-fevralya-proizoydet-globalnoe-obnovlenie-protokola-sistemy-domennyh-imen

Добрый день!
Прошу помочь.

id_time: (SELECT id_time FROM z_VSE_zanyatiya WHERE priority>2)

Задача: в строке перекресного запроса вывести только id_time с максимальным приоритетом.
Почему-то закрывающую скобку сжирает access и выдает ошибку.

ВОПРОС: В чем синтаксическая ошибка? Как Написать правильно?

https://www.sql.ru/forum/1308264/v-chem-sintaksicheskaya-oshibka

Или надо обязательно подключаться?
------------------------------------------------------------------------
Спасибо за ответ.

https://www.sql.ru/forum/1308260/mozhno-li-schitat-dannye-ne-podkluchaya-tablicy-bez-linkovki

Возникла необходимость полуавтоматизировать процесс замены файлов XXX.mdb
на удалённых компьютерах. А именно централизованная(из центрального офиса)
установка новых версий программы на удалённых компьютерах.
Программа на всех компах состоит из 3х файлов.
1 - Модули и формы.
2,3 - таблицы.
Соответственно необходима замена файла с формами и модулями(кодом).
---------------------------------------------------------------------------
Прошу советов, решений, соображений.

Примерная последовательность действий.
- Создаю на access программу, в которой хранятся все сетевые пути к файлам,
подлежащим замене.
- Проверяем доступен ли файл. То есть имеется ли связь с удалённым компом.
в связи с этим - вопрос:
Есть ли возможность разделить два варианта событий?
1 - сеть не доступна
2 - файла, по указанному пути нет

- По нажатию кнопки начать замену, берём первый путь из таблицы
смотрим наличие там файла XXX.ldb, если файл имеется, пытаемся его удалить.
Если удалить не удаётся, значит программа запущена.
Как разрулить такую ситуацию?
Как сообщить всем работникам, что надо выйти из программы.
Сейчас идёт обзвон по телефону. Сотрудники не все современные, так что вайбер
и ватсап - отпадают.
- удаление старого файла и копирование на его место нового.
------------------------------------------------------------------------
Спасибо за ответ.

https://www.sql.ru/forum/1308224/zamena-fayla-xxx-mdb-na-udalyonnyh-rabochih-mestah

Добрый день!

Суть задачи сформировать письмо с телом из шаблона ворд c сохранением форматирования.

Делаю через сохранение шаблона в формат html и далее считываю полученный файл в переменную. Проблема в том, что после сохранения как html, меняется Normal.dotm и все новые документы начинают создаваться в режиме вэб-документ(.
Подскажите, как мне получить html код без изменения Normal.dotm?

myDocname = Forms![......]![path_txt] & "\for_email.html"

obWord.ActiveDocument.SaveAs FileName:=myDocname, FileFormat:=wdFormatHTML

obWord.ActiveDocument.close

Dim i&, s$

 i = FreeFile: Open myDocname For Input As i: s = input(LOF(i), i): Close i

после SaveAs устанавливается вид вэб-документ, помогает только редактирование Normal.dotm.

https://www.sql.ru/forum/1308143/sohranenie-doc-kak-html

Общий модуль читает URL и при некоторых условиях должен подождать.
В этот момент окрывается информирующая "формочка" с полем, где по умолчанию указано время открытия формы и две кнопки: "Продолжить" и "Завершить"

В общем модуле цикл:

 If NErrxxx > 3 Then
                NErrxxx = 0
                Dim t0 As Long, t1 As Long: t0 = Timer: DoCmd.OpenForm "Xpause"
                Do
                  t1 = Timer
                  If t1 > t0 + 1800 Or t1 < t0 Then DoCmd.Close acForm, "Xpause": Exit Do
                  DoEvents
                  If log2 > 0 Then DoCmd.Close acForm, "Xpause": Exit Do
                Loop
                If log > 0 Then log = 0: DoCmd.Close acForm, "Xpause": GoTo 90
            End If

Последняя инструкция

.Close

даже лишняя.
Log, Log2 - глобальные управляющие переменные
Вот модуль формы:

Private Sub Form_Close()
log2 = 1
End Sub

Private Sub Кнопка2_Click()
log2 = 1
DoCmd.Close
End Sub

Private Sub Кнопка3_Click()
log = 1
log2 = 1
DoCmd.Close

End Sub

Почему форма не закрывается?

https://www.sql.ru/forum/1308127/forma-ne-zakryvaetsya-po-instrukcii-docmd-close

Правильно ли я понимаю ситуацию:
1)1С - реляционная база данных основанная на SQL-сервере.
2) В принципе, зная структуру базы, возможно подключиться напрямую к таблицам и получить данные(хочу использовать номенклатурный справочник в своей программе). Требуется только чтение данных - ни добавлений ни исправлений.
Естественно - с помощью 1С-программиста.
Пока интересует только принципиальная возможность, к реализации еще не приступал.

https://www.sql.ru/forum/1308066/vzaimodeystvie-s-1s

Добрый день!
Стоит задача: из под Access2007 открыть сайт, ввести данные в поле формы и нажать кнопку.
Такую задачу я уже несколько раз успешно решал.
Но на этот раз - не работает. Данные в поле вставляет, а кнопку нажимать не хочет

Ресурс: https://egrul.nalog.ru/

Этот код останавливается на второй строчке с ошибкой "Object doesn't support this property or method"

ie.Document.Forms.frmSearch.Query.Value = Me![ИНН].Value
ie.Document.Forms.frmSearch.Submit.Click

А этот загружает браузером json с таким содержанием:
"{"t":"802CDF332E32FF7C1E26C196B3CC9983D9460EF24E5BEEE40BD169CA
CAE1D48792DBFCCA7692E3722D4F73B89687520DA909631BB9EDD2C60F3A
282EECA81A05E4BA3FEA7A7EA3D951715F70209DA19B","captchaRequired":false}"

ie.Document.Forms.frmSearch.Query.Value = Me![ИНН].Value
ie.Document.Forms.frmSearch.Submit

https://www.sql.ru/forum/1308056/nazhat-knopku-v-brauzere

Может кто сталкивался.
Подключаю Postgres к Access под пользователем superuser.
Присоединяю таблицу.
Затем удаляю таб, подключаюсь под другим пользователем, у которого есть ограничения.
Вопрос: почему при переподключении ограничения установленные на пользователя не работают?
Если выйти из Access, затем зайти - все работает корректно.
Т.е чтобы все корректно работало, надо сразу подключаться под нужным пользователем. Переподключения не помогают

https://www.sql.ru/forum/1308032/postgres

ребята, при создании банковской платежки, выдает ошибку

<html>
<head><title>500 Internal Server Error</title></head>
<body bgcolor="white">
<center><h1>500 Internal Server Error</h1></center>
<hr><center>nginx</center>
</body>
</html>

текст запроса:

  strQuery = "{" _
    & """document_number"":""autoclient""," _
    & """recipient_account"":""" & Me.idKlienti.Column(2) & """," _
    & """recipient_nceo"":""" & Me.idKlienti.Column(3) & """," _
    & """payment_naming"":""" & Me.idKlienti.Column(1) & """," _
    & """payment_amount"":""" & Me.payment_amount & """," _
    & """recipient_ifi"":""" & Me.idKlienti.Column(4) & """," _
    & """payment_destination"":""" & Me.payment_destination & """," _
    & """payer_account"":""" & Me.idMoiFirmi.Column(2) & """" _
    & "}"


  myUrl = "https://acp.privatbank.ua/api/proxy/payment/create_pred"
  
  With XMLHTTP
    .Open "POST", myUrl, False
    .setRequestHeader "User-Agent:", "Автоклиент"
    .setRequestHeader "id:", idKlienta
    .setRequestHeader "token:", tokenKlienta
    .setRequestHeader "Content-Type:", "application/json;charset= utf-8"
    .send (strQuery)
    Debug.Print .ResponseText
  End With
 
  

инструкция https://docs.google.com/document/d/e/2PACX-1vTtKvGa3P4E-lDqLg3bHRF6Wi9S7GIjSMFEFxII5qQZBGxuTXs25hQNiUU1hMZQhOyx6BNvIZ1bVKSr/pub

советы техподдержки проблему не решили

https://www.sql.ru/forum/1308023/privatbank-api-post-zapros

Всем привет.
С 1 марта 2019 г. необходимо передавать через онлайн-кассы сведения о марках табачной продукции. Хотя самих марок я в глаза еще не видел, но надо потихонечку готовится к этому.
Проблема возникла с преобразованием кода товара в бинарный формат.

+

Алгоритм записи тега 1162 (Код товарной номенклатуры) при кодировании данных при маркировке табачной продукции. 1. Код типа маркировки Байты [1:2] (2 байта) - Код типа маркировки Постоянное значение: 00 05 2. Идентификатор продукта GTIN Байты [3:8] (6 байт) – GTIN Используется 14 разрядный GTIN, при записи в ККТ, GTIN представляется как десятичное 14 знаковое число и преобразуется в BIN (big endian), размером 6 байт. Если после преобразования получается менее 6, то следует добавить лидирующие нули. 3. Код идентификации упаковки табачной продукции Байты [9:15] (7 байт) - Serial Serial содержит в себе цифры, заглавные и строчные буквы латинского алфавита. Строкове значение, в кодировке CPP 866, размер – 7 байт 4. Резерв Байты [22:32] (11 байт) – зарезервированы, и не используются. Резерв в ККТ не передается 5. Пример формирования тега 1162 Имеем следующие данные по марке: GTIN: 98765432101234 Преобразуем GTIN в бинарный формат: 59 D3 9E 7F 19 72 Serial: ABC1234 Преобразуем в строковое значение: 41 42 43 31 32 33 34 Формируем тег 1162: Добавляем код типа маркировки: 00 05 Формируем TLV для передачи в ККТ. Так как тег 1162 не имеет фиксированное значение, 11 байт резерва в ККТ не передаются: 8A 04 0F 00 00 05 59 D3 9E 7F 19 72 41 42 43 31 32 33 34 Значение 8A 04 – номер тега (1162) 0F 00 – длина данных (15 байт КТН)

Загвоздка возникла с 5 пунктом:
Имеем следующие данные по марке:
GTIN: 98765432101234
Преобразуем GTIN в бинарный формат: 59 D3 9E 7F 19 72
Serial: ABC1234
Преобразуем в строковое значение: 41 42 43 31 32 33 34

При переводе строки 549756338181 в бинарный (если правильно понимаю, он же двоичный) формат получаю 1000000000000000000010000000000000000101, а надо что то типа 59 D3 9E 7F 19 72

+

Function TestNumberToBits2() Dim v As Variant, i As Integer, s As String v = CDec(код) For i = 40 To 0 Step -1 If v >= CDec(2 ^ i) Then s = s & "1" v = v - CDec(2 ^ i) ElseIf s <> "" Then s = s & "0" End If Next TextBox2 = s Debug.Print s End Function

Может кто подскажет, что делаю не так или чего не доделал?
ПС: Может немного лишнего написал, но это для полноты картины.

https://www.sql.ru/forum/1308018/perevod-stroki-v-binarnyy-format

Доброго дня.
Начну из далека. Есть проект accecc, которой я переделываю из *.adp под современный *.accdb. Формы, код, все уже перенес и адаптировал, таблицы с sql привязал через диспетчер связанных таблиц. Однако, есть такая практика, доработки программы отлаживать на тестовой базе sql, и для смены сервера приходится перелинковывать около сотни таблиц через диспетчер связанных таблиц. Из этого следует три проблемы:
1. Надо сделать минимум 100 кликов мышкой в процессе перелинковки (не проблема, но парит)
2. Вторая, вытекающая из первой, среди таблиц встречаются представления, которым требуется принудительно указать первичный ключ. И есть момент когда можно указать "не верный" ключ, просто по запарке (я даже представления не представлю на что это может повлиять)
3. В процессе перелинковки access сбрасывает значения первичных ключей для представлений. Тут я поясню для чего первичный. Львиная доля форм в качестве источника записей используют эти представления и сам access выдает Run-time error '3326': Объект Recordset не является обновляемым, попросту не получается править значения. А вот если назначить первичный ключ, то правки проходят.

Перелинковать можно в ручном режиме и кодом vba поправив таблицу MSysObjects, по при этом первичные ключи "слетают".
Перелинковываю таким образом

+

Public Sub RefreshTablesLinks2 Dim tdf, cDB, strODBC Dim i As Integer Set cDB = CurrentDb Set tdf = cDB.TableDefs strODBC = "DSN=DSNname;Description=DSNname;Trusted_Connection=Yes;APP=Microsoft Office;DATABASE=testdb;" On Error GoTo Err_handler For i = 0 To tdf.Count - 1 If tdf(i).Connect <> "" Then tdf(i).Connect = strODBC tdf(i).RefreshLink End If Next Err_handler: 'MsgBox Err.Description Resume Next End Sub

Собственно вопрос, есть ли способ командовать процессом линковки через vba, как диспетчер связанных таблиц, что бы можно было гибко управлять процессом и вообще достигнуть полной автоматизации?

https://www.sql.ru/forum/1307980/svyaz-tablic-mssql-s-bazoy-access-bez-ispolzovaniya-dispetchera-svyazannyh-tablic

Задание прикрепила к фото

https://www.sql.ru/forum/1307957/pomogite-pozhaluysta-s-sozdaniem-form-v-access