ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ACCESS Курсы валют Интернет
13 сообщений из 63, страница 3 из 3
  3  все
ACCESS Курсы валют Интернет
    #37368793
askerli
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
askerli
Участник
MacroНе дописал....

Может кто знает как его форматнуть в нормальный вид, чтобы потом можно было оперировать с числовыми значениями курса.
val(replace("1,1111",",","."))
пойдет?
...
Рейтинг: 0 / 0
27.07.2011, 13:19
| Ответить | Цитировать | Написать  
ACCESS Курсы валют Интернет
    #37368907
Macro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Macro
Гость
askerliMacroНе дописал....

Может кто знает как его форматнуть в нормальный вид, чтобы потом можно было оперировать с числовыми значениями курса.
val(replace("1,1111",",","."))
пойдет?

Большое спасибо. Подошел этот вариант.
Для начала прохожу импортированную таблицу с данными курсов и меняю значения с точек на запятые, а уже потом пишу их в постоянную таблицу курсов с денежным форматом поля.
...
Рейтинг: 0 / 0
27.07.2011, 14:16
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
ACCESS Курсы валют Интернет
    #39169717
1234_5678
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1234_5678
Гость
а как (где) посмотреть название всех полей возвращаемых ЦБ?
мне бы вытащить обозначение валюты ("$", "EUR"...) и курс не только "за рубль" (как во всех примерах), но и "за $", "за EUR".
...
Рейтинг: 0 / 0
12.02.2016, 16:40
| Ответить | Цитировать | Написать  
ACCESS Курсы валют Интернет
    #39169852
1234_5678
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1234_5678
Гость
нашёл, "CharCode" энто называется...
но вопрос с кросскурсом остаётся актуальным, на сайте ЦБ в явном виде не нашёл.

сегодня за доллар дают 79,1144р, за евро - 89,3439р, примем условно 80 и 90
правильно ли будет считать доллар за евро 1,125, а евро за доллар 0,8889?
...
Рейтинг: 0 / 0
12.02.2016, 18:39
| Ответить | Цитировать | Написать  
ACCESS Курсы валют Интернет
    #39266647
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
RVI, подскажите, как дальше эти данные, которые скачивает RateXML импортировать в таблицу?
...
Рейтинг: 0 / 0
01.07.2016, 18:11
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
ACCESS Курсы валют Интернет
    #40025478
annetby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
annetby
Гость
Ребята, не могу понять почему не загружаются курсы валют.
Функция рабочая, много лет использовалась (Access 2003 + SQL SERVER.2000).
...
Dim xd, nl, N, i, j, USD, EUR, RUB, CurrDate, CurrDate2, sql
Dim ce As Variant
If IsNull(DLookup("DateCur", "tCurChange", "DateCur = '" & Date & "'")) Then
Set xd = CreateObject("Msxml.DOMDocument")
xd.async = False
If Not xd.Load(" https://www.nbrb.by/Services/XmlExRates.aspx") = True Then
MsgBox ("Ошибка получения документа с курсами валют")
Else
MsgBox ("Документ с курсами валют получен")
Set nl = xd.selectNodes("DailyExRates")
Set N = nl.Item(0).CloneNode(True)
...

Выдает - MsgBox ("Ошибка получения документа с курсами валют")

в браузере страницу открывает https://www.nbrb.by/Services/XmlExRates.aspx.
На сайте Нацбанка сообщение опубликовано о переходе на протокол https:
Версия для печати
RSS канал (RSS 2.0)

В сентябре 2020 года запланирован переход официального интернет-сайта Национального банка Республики Беларусь на работу только по протоколу https.

С момента перехода все сервисы интернет-сайта (новости в формате RSS, API, получение данных, используя XML, и др.) будут также доступны только по протоколу https. В связи с вышесказанным, рекомендуем при необходимости заблаговременно перенастроить клиентское программное обеспечение для доступа к указанным сервисам.

Попробывала подключиться к России If Not xd.Load(" http://www.cbr.ru/scripts/XML_daily.asp?date_req=" + Format(Date, "dd\/mm\/yyyy")) Then - отработала правильно.

Поделитесь пожалуйста идеями . Спасибо.
...
Рейтинг: 0 / 0
08.12.2020, 08:58
| Ответить | Цитировать | Написать  
ACCESS Курсы валют Интернет
    #40025518
Фотография court
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
court
Участник
annetby
Ребята, не могу понять почему не загружаются курсы валют.
Функция рабочая, много лет использовалась (Access 2003 + SQL SERVER.2000).
...
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
    Dim xd, nl, N, i, j, USD, EUR, RUB, CurrDate, CurrDate2, sql
    Dim ce As Variant
    If IsNull(DLookup("DateCur", "tCurChange", "DateCur = '" & Date & "'")) Then
        Set xd = CreateObject("Msxml.DOMDocument")
        xd.async = False
        If Not xd.Load("https://www.nbrb.by/Services/XmlExRates.aspx") = True Then
            MsgBox ("Ошибка получения документа с курсами валют")
        Else
            MsgBox ("Документ с курсами валют получен")
            Set nl = xd.selectNodes("DailyExRates")
            Set N = nl.Item(0).CloneNode(True)
...


Выдает - MsgBox ("Ошибка получения документа с курсами валют")

в браузере страницу открывает (подозрительная ссылка!) https://www.nbrb.by/Services/XmlExRates.aspx.
На сайте Нацбанка сообщение опубликовано о переходе на протокол https:
Версия для печати
RSS канал (RSS 2.0)

В сентябре 2020 года запланирован переход официального интернет-сайта Национального банка Республики Беларусь на работу только по протоколу https.

С момента перехода все сервисы интернет-сайта (новости в формате RSS, API, получение данных, используя XML, и др.) будут также доступны только по протоколу https. В связи с вышесказанным, рекомендуем при необходимости заблаговременно перенастроить клиентское программное обеспечение для доступа к указанным сервисам.

Попробывала подключиться к России If Not xd.Load(" (подозрительная ссылка!) http://www.cbr.ru/scripts/XML_daily.asp?date_req=" + Format(Date, "dd\/mm\/yyyy")) Then - отработала правильно.

Поделитесь пожалуйста идеями . Спасибо.
нормально всё отработало ...
 
Код: xml
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.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
?xd.xml
<?xml version="1.0"?>
<DailyExRates Date="12/08/2020">
    <Currency Id="170">
        <NumCode>036</NumCode>
        <CharCode>AUD</CharCode>
        <Scale>1</Scale>
        <Name>Австралийский доллар</Name>
        <Rate>1.8959</Rate>
    </Currency>
    <Currency Id="191">
        <NumCode>975</NumCode>
        <CharCode>BGN</CharCode>
        <Scale>1</Scale>
        <Name>Болгарский лев</Name>
        <Rate>1.5875</Rate>
    </Currency>
    <Currency Id="290">
        <NumCode>980</NumCode>
        <CharCode>UAH</CharCode>
        <Scale>100</Scale>
        <Name>Гривен</Name>
        <Rate>9.094</Rate>
    </Currency>
    <Currency Id="291">
        <NumCode>208</NumCode>
        <CharCode>DKK</CharCode>
        <Scale>10</Scale>
        <Name>Датских крон</Name>
        <Rate>4.1708</Rate>
    </Currency>
    <Currency Id="145">
        <NumCode>840</NumCode>
        <CharCode>USD</CharCode>
        <Scale>1</Scale>
        <Name>Доллар США</Name>
        <Rate>2.5674</Rate>
    </Currency>
    <Currency Id="292">
        <NumCode>978</NumCode>
        <CharCode>EUR</CharCode>
        <Scale>1</Scale>
        <Name>Евро</Name>
        <Rate>3.1076</Rate>
    </Currency>
    <Currency Id="293">
        <NumCode>985</NumCode>
        <CharCode>PLN</CharCode>
        <Scale>10</Scale>
        <Name>Злотых</Name>
        <Rate>6.9366</Rate>
    </Currency>
    <Currency Id="355">
        <NumCode>392</NumCode>
        <CharCode>JPY</CharCode>
        <Scale>100</Scale>
        <Name>Иен</Name>
        <Rate>2.4617</Rate>
    </Currency>
    <Currency Id="303">
        <NumCode>364</NumCode>
        <CharCode>IRR</CharCode>
        <Scale>100000</Scale>
        <Name>Иранских риалов</Name>
        <Rate>6.1129</Rate>
    </Currency>
    <Currency Id="294">
        <NumCode>352</NumCode>
        <CharCode>ISK</CharCode>
        <Scale>100</Scale>
        <Name>Исландских крон</Name>
        <Rate>2.041</Rate>
    </Currency>
    <Currency Id="23">
        <NumCode>124</NumCode>
        <CharCode>CAD</CharCode>
        <Scale>1</Scale>
        <Name>Канадский доллар</Name>
        <Rate>2.0028</Rate>
    </Currency>
    <Currency Id="304">
        <NumCode>156</NumCode>
        <CharCode>CNY</CharCode>
        <Scale>10</Scale>
        <Name>Китайских юаней</Name>
        <Rate>3.9255</Rate>
    </Currency>
    <Currency Id="72">
        <NumCode>414</NumCode>
        <CharCode>KWD</CharCode>
        <Scale>1</Scale>
        <Name>Кувейтский динар</Name>
        <Rate>8.4296</Rate>
    </Currency>
    <Currency Id="296">
        <NumCode>498</NumCode>
        <CharCode>MDL</CharCode>
        <Scale>10</Scale>
        <Name>Молдавских леев</Name>
        <Rate>1.4823</Rate>
    </Currency>
    <Currency Id="286">
        <NumCode>554</NumCode>
        <CharCode>NZD</CharCode>
        <Scale>1</Scale>
        <Name>Новозеландский доллар</Name>
        <Rate>1.8009</Rate>
    </Currency>
    <Currency Id="297">
        <NumCode>578</NumCode>
        <CharCode>NOK</CharCode>
        <Scale>10</Scale>
        <Name>Норвежских крон</Name>
        <Rate>2.8932</Rate>
    </Currency>
    <Currency Id="298">
        <NumCode>643</NumCode>
        <CharCode>RUB</CharCode>
        <Scale>100</Scale>
        <Name>Российских рублей</Name>
        <Rate>3.456</Rate>
    </Currency>
    <Currency Id="299">
        <NumCode>960</NumCode>
        <CharCode>XDR</CharCode>
        <Scale>1</Scale>
        <Name>СДР (Специальные права заимствования)</Name>
        <Rate>3.6952</Rate>
    </Currency>
    <Currency Id="119">
        <NumCode>702</NumCode>
        <CharCode>SGD</CharCode>
        <Scale>1</Scale>
        <Name>Сингапурcкий доллар</Name>
        <Rate>1.918</Rate>
    </Currency>
    <Currency Id="300">
        <NumCode>417</NumCode>
        <CharCode>KGS</CharCode>
        <Scale>100</Scale>
        <Name>Сомов</Name>
        <Rate>3.0266</Rate>
    </Currency>
    <Currency Id="301">
        <NumCode>398</NumCode>
        <CharCode>KZT</CharCode>
        <Scale>1000</Scale>
        <Name>Тенге</Name>
        <Rate>6.0819</Rate>
    </Currency>
    <Currency Id="302">
        <NumCode>949</NumCode>
        <CharCode>TRY</CharCode>
        <Scale>10</Scale>
        <Name>Турецких лир</Name>
        <Rate>3.2723</Rate>
    </Currency>
    <Currency Id="143">
        <NumCode>826</NumCode>
        <CharCode>GBP</CharCode>
        <Scale>1</Scale>
        <Name>Фунт стерлингов</Name>
        <Rate>3.4057</Rate>
    </Currency>
    <Currency Id="305">
        <NumCode>203</NumCode>
        <CharCode>CZK</CharCode>
        <Scale>100</Scale>
        <Name>Чешских крон</Name>
        <Rate>11.6987</Rate>
    </Currency>
    <Currency Id="306">
        <NumCode>752</NumCode>
        <CharCode>SEK</CharCode>
        <Scale>10</Scale>
        <Name>Шведских крон</Name>
        <Rate>3.0226</Rate>
    </Currency>
    <Currency Id="130">
        <NumCode>756</NumCode>
        <CharCode>CHF</CharCode>
        <Scale>1</Scale>
        <Name>Швейцарский франк</Name>
        <Rate>2.8736</Rate>
    </Currency>
</DailyExRates>


что выводит такое
Код: vbnet
1.
2.
3.
4.
    If Not xd.Load("https://www.nbrb.by/Services/XmlExRates.aspx") = True Then
'        MsgBox ("Ошибка получения документа с курсами валют")
        MsgBox xd.ParseError.reason
    Else
...
Рейтинг: 0 / 0
08.12.2020, 11:03
| Ответить | Цитировать | Написать  
ACCESS Курсы валют Интернет
    #40025527
annetby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
annetby
Гость
court,
выдает сообщение: Не удается найти указанный ресурс/
Спасибо
...
Рейтинг: 0 / 0
08.12.2020, 11:22
| Ответить | Цитировать | Написать  
ACCESS Курсы валют Интернет
    #40025529
Фотография court
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
court
Участник
annetby
court,
выдает сообщение: Не удается найти указанный ресурс/
Спасибо
интернет не через прокси ?
...
Рейтинг: 0 / 0
08.12.2020, 11:27
| Ответить | Цитировать | Написать  
ACCESS Курсы валют Интернет
    #40025531
annetby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
annetby
Гость
court,
Вы правы, через прокси.
...
Рейтинг: 0 / 0
08.12.2020, 11:39
| Ответить | Цитировать | Написать  
ACCESS Курсы валют Интернет
    #40025543
Фотография court
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
court
Участник
annetby
court,
Вы правы, через прокси.
а как тогда на cbr.ru подключилось ?

вообщем, если дело в прокси, то нужно использовать какой-то объект, который умеет через него подключаться
MSXML2.ServerXMLHTTP например
...
Рейтинг: 0 / 0
08.12.2020, 12:19
| Ответить | Цитировать | Написать  
ACCESS Курсы валют Интернет
    #40025546
annetby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
annetby
Гость
court,

не понимаю почему загрузилась Россия. Сегодня еще раз подключилась к России, загружает. Свой - нет :-(
Спасибо.
...
Рейтинг: 0 / 0
08.12.2020, 12:23
| Ответить | Цитировать | Написать  
ACCESS Курсы валют Интернет
    #40025550
annetby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
annetby
Гость
На скрепке принтскрин отработки функции НацБанк РБ и России
...
Рейтинг: 0 / 0
08.12.2020, 12:36
| Ответить | Цитировать | Написать  
13 сообщений из 63, страница 3 из 3
  3  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ACCESS Курсы валют Интернет
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&gotonew=1&tid=1609848]:
 0ms
get settings:
 7ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 54ms
get topic data:
 9ms
get first new msg:
 6ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 9ms
total:  150ms
созд. / загр.: 150ms
x
x
Закрыть


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