Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

27 Ноябрь 2020, 03:44 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Часто задаваемые вопросы по LibreOffice и Apache OpenOffice.org
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: « 1 2   Вниз
  Печать  
Автор Тема: Как одновременно использовать базу на нескольких комп  (Прочитано 10211 раз)
0 Пользователей и 1 Гость смотрят эту тему.
idro
Участник
**
Offline Offline

Сообщений: 24


« Ответ #34889: 20 Март 2016, 19:57 »

Вот попробуйте создать таблицу ( имя базы естественно  свое пропишите) . Крыжик не забыли снять с Don`t Create DateBase ? Его можно будет поставить после создания файла,  что бы пользователи , в случае случайного удаления, стали бить тревогу, а не писать данные в новь созданный пустой файл.

Function DbConnect as Object
 Dim  DatabaseContext as Object
 Dim oDB as Object
 DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
 oDB = DatabaseContext.getByName("BasaSQLite")
 DbConnect=oDB.getConnection("","")
End Function

Sub CreateTableSotrudnik() 'создание таблицы с сотрудниками
      Dim oCon as Object
      Dim oStmt as Object
        Dim oSQL as String
        Dim oTbName as String
         oCon =DbConnect        
           oTbName = "SOTRUDNIK"
           oStmt = oCon.createStatement()
           'Создаем таблицу со списком сотрудников IF NOT EXISTS - создаем если таблицы нет, AUTOINCREMENT - автозаполнение по поряку, DEFAULT - значение по умолчанию
         oSQL = "CREATE TABLE IF NOT EXISTS " & oTbName & "(ID INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT, FAMILIA TEXT NULL,NAME TEXT NULL,OTCHSTVO TEXT NULL," &_
         "ORGANIZATION TEXT NULL,LICNOMER INTEGER NULL,UDALENIE NUMERIC DEFAULT 0 NULL,SOT_GROUP TEXT NULL,TABNOMER INTEGER NULL)"
         oStmt.execute(oSQL)
            oCon.getTables().refresh()         
      oCon.close()
      oCon.dispose
End Sub
« Последнее редактирование: 20 Март 2016, 22:05 от idro » Записан
Страниц: « 1 2   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!