JavaScript + MS Access

@Сергей1980 · Регистрация: 17.12.2009

Студворк — интернет-сервис помощи студентам

Уважаемые коллеги,всем привет!
Около 2х недель начал заниматься вопросом как сделать автоматическое обновление аксесса через обычные сообщения пересылаемые по электронной почте. Все варианты через MS Infopath и прочие методы отпали, так как они действуют только в одном направлении, нет интерактивной связи между двумя базами, к примеру расположенными в разных компаниях. Пришлось прибегнуть к другим методам.
Раскопал и доработал скрипт, который можно написать в обычном блокноте, он выводит данные из таблицы аксесовской. Его можно запихнуть в шаблон аутлуковский в формате html. Например при отправлении /письма с данным скриптом он будет автоматом подсасывать данные из аксесса. Кому интересно высылаю код. Это только пока выборка.

HTML5
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
   <html>
     <head>
    
   <script type="text/javascript">
   <!--
    var adOpenDynamic = 2;
   var adLockOptimistic = 3;
    
    /* Path of database.
     */
   var strDbPath = "C:\Documents and Settings\slalov\Рабочий стол\testado.mdb";
   
   
    var conn_str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + strDbPath;
   
     function getAdoDb(strAdoType){
      if (window.ActiveXObject){
           return new ActiveXObject(strAdoType);
       }
      else{
           return ActiveXObject(strAdoType);
      }
     }
    
    function showReports(){
       try{
          var strHtml ="";
          strHtml += "<table cellpadding=0 cellspacing=0 border=1 width= '100%' align=center>";
           strHtml += "<tr ><td align=center colspan=4><b>Sample Database Records</b></td></tr>";
   
               //Database Connection
          var conn = getAdoDb("ADODB.Connection");
          conn.open(conn_str, "",   "");
    
          //Recordset
         var rs = new ActiveXObject("ADODB.Recordset");
       
          strQuery = "SELECT users.FirstName, users.LastName, users.Age,  FROM users";
          rs.open(strQuery, conn, adOpenDynamic, adLockOptimistic);
    
          if(!rs.bof){
             rs.MoveFirst();
            while(!rs.eof) {
                strHtml += "<tr>";
               strHtml += " <td><Font face ='tahoma'>" + rs.fields(0).value + "</font></td>";
                strHtml += " <td><Font face ='tahoma'>" + rs.fields(1).value + "</font></td>";
                strHtml += " <td><Font face ='tahoma'>" + rs.fields(2).value + "</font></td>";
                strHtml += "</tr>";
    
               rs.MoveNext();
             }
          }
          else{
            //No Records.
           strHtml += "<tr colspan=4><td align=center><font color=red>No Records.</font></td></tr>";
         }
          conn.close();
              strHtml += "</table>";
             document.write(strHtml);
       }catch(ex){
         alert(ex.message);
       }
     }
    
    //-->
     </script>
     <title>Call Log Details</title>
     </head>
    
     <!--<body onload="show_menu()">
       <div id="main" />-->
     <body>
       <script language="JavaScript">
        showReports();
   </script>
    </body>
     </html>

Будут энтузиасты по доработе, пишите.

Добавлено через 2 минуты
PS. Так как аксесс детище майкрософта, то обратите внимание, что код работает стабильно только в Internet Explorer.

@alvk · 18.11.2011, 02:51

Это что за язык?
p.s. как-то странен весь подход, почему просто mdb не пересылать? Откреплять автоматом в папку, потом скрипт того же vbs выполнять и всего делов.

@Сергей1980 · 18.11.2011, 10:19 **[ТС]**

Сообщение от alvk

Это что за язык?

Это javascript. VBS уже наскучил, интересно уже подучить не только то,что начинается с VB

@alvk · 18.11.2011, 10:31

А, ну чтоже, желаю успехов. А причём тут наш форум?

@Сергей1980 · 18.11.2011, 10:45 **[ТС]**

так вишь, ява в связке с аксесс

Новые блоги и статьи Все статьи Все блоги /
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,380
	18.11.2011, 02:51
	Это что за язык? p.s. как-то странен весь подход, почему просто mdb не пересылать? Откреплять автоматом в папку, потом скрипт того же vbs выполнять и всего делов. 0

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,380
	18.11.2011, 10:31
	А, ну чтоже, желаю успехов. А причём тут наш форум? 0

@Сергей1980 547 / 377 / 16 Регистрация: 17.12.2009 Сообщений: 994
	18.11.2011, 10:45 [ТС]
	так вишь, ява в связке с аксесс 0