PORTA.ru - on-line магазин ПОРТАтивной техники.PORTA.ru - on-line магазин ПОРТАтивной техники.

Новости
Мои разработки
FAQ
Ссылки
Форум

Работа с ACCESS через DAO

Процедура ACCESS()
     dbe=CreateObject("DAO.DBEngine.36");
     wksp=dbe.Workspaces(0);
     db=0;
     // в ковычках имя фаила с расширением MDB
     Если ФС.СуществуетФайл(КаталогПользователя()+"sr.mdb")=0 Тогда
          // создание файла базы данных с русским порядком сортировки
          db=wksp.CreateDataBase(КаталогПользователя()+"mars_sr.mdb",";LANGID=0x0419;CP=1251;COUNTRY=0");
          // DDL - запрос на создание таблицы
          // описание языка DDL (подмножество SQL) смотрите в хелпе по MS Access
          // не пытайтесь делать это с другими форматами - DDL через DAO поддерживается только для MDB
          //Создадим еще таблицу
          db.Execute("CREATE TABLE   BANKS
          |(REC_IND INTEGER,
          |BANKCODE INTEGER,
          |BANKNAME  TEXT  ,
          |ModifiedFlg BIT,
          |ChangeSeqFlg BIT);"
          );
          // индекс на нужные поля
          db.Execute("CREATE INDEX REC_IND ON BANKS (REC_IND);");
     Иначе
          // просто открываем базу данных в разделенном режиме
          db=wksp.OpenDataBase(КаталогПользователя()+"sr.mdb");
          // и очищаем имеющиеся данные
          db.Execute("DELETE * FROM BANKS;");
    КонецЕсли;
    // rs-это как раз сама таблица, куда мы будем добавлять записи
    rs=db.OpenRecordset("BANKS");
    // добавление записи
    rs.AddNew();
    // присвоение значений полям
    rs.REC_IND            =     "1";
    rs.BANKCODE       =     "34";
    rs.BANKNAME       =    "Инвест";
    rs.ModifiedFlg        =     "1";
    // запомним запись
    rs.Update();
    // и так далее ...
    db.Close();  // закрытие базы данных
КонецПроцедуры
<сообщил Torin>


- Наверх -

В качестве благодарности за решение проблемы, щелкните здесь.
Поддержите развитие сайта.
Спасибо!
Автор и разработчик: Кайгородов Андрей aka mszsuz. mszsuz@online.sinor.ru ICQ#33993114. Дата последнего обновления страницы: Friday 09.04.2004 20:23
1C:TOP-100 Рейтинг ресурсов 1С
Hosted by uCoz