Управление БД из формы через элементы управления.

[Ириминаге]

Здравствуйте! Есть необходимость вносить изменения в базу из созданных форм. Возможно ли осуществить выполнение SQL команд при нажатии кнопки или это решается каким-то другим путём?
Грубо говоря, создаём в форме текстовые поля Текс1 и Текс2, в них вносится информация, а потом, по нажатию кнопки Жмяк, это вносится в базу.

[economist]

Варианты записи в базу из формы (по требованию, фоновая и прямая):
1. Пишем макрос с "UPDATE Table SET Дата=2020 WHERE ID=..." и назначаем его на "финальную" кнопку формы
2. Используем события Формы для записи
3. Связанные с таблицей (д.б. поле первичного ключа) контролы - по мере заполнения сами передают (отражают) введенные данные в таблице.

Первый вар-т самый простой, к тому же позволяет последовательно менять по мере ввода содержимое раскрывающихся списков итп "Справочников", не вникая в связи и отношения Форма-Субформа и не задавая связи таблиц (сама их возможность может отсутствовать в некоторых популярных СУБД).   

[Ириминаге]

Варианты записи в базу из формы (по требованию, фоновая и прямая):
1. Пишем макрос с "UPDATE Table SET Дата=2020 WHERE ID=..." и назначаем его на "финальную" кнопку формы
2. Используем события Формы для записи
3. Связанные с таблицей (д.б. поле первичного ключа) контролы - по мере заполнения сами передают (отражают) введенные данные в таблице.

Первый вар-т самый простой, к тому же позволяет последовательно менять по мере ввода содержимое раскрывающихся списков итп "Справочников", не вникая в связи и отношения Форма-Субформа и не задавая связи таблиц (сама их возможность может отсутствовать в некоторых популярных СУБД).   

Огромнейшее спасибо! Хоть перестал брести в тумане! Первый вопрос: как UPDATE можно задействовать в макросе?

[economist]

Например так:

Код Выделить Развернуть


DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("ИМЯ_ЗАРЕГ_БД") ' смотреть по Alt+F12 - LO Base - Базs Данных
Connection = DataSource.GetConnection("", "") ' user и password, для многих движков д.б. "" и "" (HSQLDB, SQLite, FireBirdEmbed)
Statement = Connection.createStatement()
SQL= "UPDATE РЕЕСТР Set Сумма=0 WHERE N=" & N ' тут ваш SQL
Statement.executeUpdate(SQL)
Connection.close
Connection.dispose()


[Ириминаге]

Большое спасибо за терпение! Попробовал ваш вариант, но у меня выскакивает ошибка
при выполнении кода

Statement = Connection.createStatement()

"Ошибка времени выполнения Basic.
Объектная переменная не установлена."
Объявлял переменную Statement типа Object, но это не помогло...

[economist]

Ошибка касается объекта Connection.

Какой движок БД используется (см. в левом нижнем углу экрана в окне Base)? 

[Ириминаге]

Ошибка касается объекта Connection.

Какой движок БД используется (см. в левом нижнем углу экрана в окне Base)? 

HSQLDB встроенная

[economist]

Значит неправильно указано зарегистрированное имя базы данных (для файла *.ODB), либо имя или путь к ODB содержит нежелательные символы (точки, пробелы, кириллицу, символ № итп - зависит от движка БД). Также возможны неправильные настройки соединения, если они были сделаны вручную. Создайте новую зарег. БД и подключитесь к ней, ничего не меняя. 

[Ириминаге]

Если использовать:

Код Выделить Развернуть

dbContext=createUnoService("com.sun.star.sdb.DatabaseContext")
oDataSource=dbContext.getByName("file:///D:\1\test.odb")
ConnectToDataBase=oDataSource.GetConnection("","")
Statement = Connection.createStatement()
SQL= "UPDATE test1 SET Num2 = 5 WHERE Num1 = 2 "
Statement.executeUpdate(SQL)
db.close()
db.dispose()

То выделяется строка "ConnectToDataBase=oDataSource.GetConnection("","")"  и выдается ошибка

Ошибка времени выполнения Basic.
Вызвано исключение
Type: com.sun.star.sdbc.SQLException
Message: Подключение не может быть установлено. Не заданы устройства хранения или URL..

Если же использовать

Код Выделить Развернуть

oDataSource=dbContext.getByName("test")

то ошибка

Ошибка времени выполнения Basic.
Объектная переменная не установлена

И выделяется строка "Statement = Connection.createStatement()"

[sokol92]

"file:///D:\1\test.odb"

Что это за зверь?  
Путь к файлам нужно указывать в URI-формате. Можно так:

Код Выделить Развернуть

ConvertToURL("D:\1\test.odb")

или (в Вашем случае)

Код Выделить Развернуть

file:///D:/1/test.odb

[economist]

1) Имя БД нужно брать написано в комментарии строки 2 из кода в #3, а не задавать как путь к файлу ODB
2) Таблица test1 имеет PRIMARY KEY? Если нет, то такая таблица не может быть изменена (ограничение HSQLDB, могу ошибаться)

[Ириминаге]

Попробовал оба способа, ответ один -
"Ошибка времени выполнения Basic.
Объектная переменная не установлена", что возвращает нас к вопросу, что это за объектная переменная, без которой, как писал Филатов: "И икра не лезет в горло,
И компот не льется в рот!"

[mikekaganski]

что возвращает нас к вопросу, что это за объектная переменная

Ответ на этот вопрос получается отладкой: установкой точки останова на проблемной строке и инспекцией всех задействованных переменных.

[Ириминаге]

1) Имя БД нужно брать написано в комментарии строки 2 из кода в #3, а не задавать как путь к файлу ODB
2) Таблица test1 имеет PRIMARY KEY? Если нет, то такая таблица не может быть изменена (ограничение HSQLDB, могу ошибаться)

Если брать "oDataSource=dbContext.getByName("D:\1\test.odb")", то ошибка ещё прозаичнее:
"Ошибка времени выполнения Basic.
Вызвано исключение
Type: com.sun.star.container.NoSuchElementException
Message: D:\1\test.odb."

Primary Key есть.

[mikekaganski]

1) Имя БД нужно брать написано в комментарии строки 2 из кода в #3, а не задавать как путь к файлу ODB

Можно и URL задавать. Оно работает.

Если брать "oDataSource=dbContext.getByName("D:\1\test.odb")", то ошибка ещё прозаичнее:

Но только как URL, а не системный путь.

Лучше всего приложите сам файл ODB.