Объекты Connection, Statement, ResultSet в OpenOffice

Для решения простых задач достаточно декларативно задать объекты данных в Мастерах-построителях или в Палитрах свойств объектов Формы. Если бы на этом возможности OpenOffice заканчивались, то кроме игр с данными ему сложно было бы найти применение. Вспоминаю сколько раз я раскрывал Star/OpenOffice, создавал подключение к серверу баз данных и с грустью закрывал, полистав весьма скудный (и до сих пор это так) Help.

Но время не стоит на месте. В Интернете начала накапливаться полезная информация о макросах OpenOffice и вот мы здесь.

Для начала работы следует получить объект Connection. Его можно получить несколькими способами. В частности из свойства ActiveConnection объекта Form или по символическому имени DataSource, которое можно задавать из Главного меню|OpenOffice Tools|Options|OpenOffice.org Base|Databases. Если вынести функцию GetConnection в скрипт из раздела My Macros, всегда будет достаточно изменить код ровно в одном месте чтобы измененить подключение.

Function GetConnection() As Variant

  Dim DataSource As Variant

  Dim Connection As Variant

  DatabaseContext = CreateUnoService(«com.sun.star.sdb.DatabaseContext») 

  DataSource = DatabaseContext.GetByName(«sourcename»)

  GetConnection = DataSource.GetConnection()

End Function

Получив Connection надо создать Satement или PreparedStatement.

oStatement = GetConnection().CreateStatement

oResultSet = Statement.ExecuteQuery(«select * from …»)

lCount = Statement.ExecuteUpdate(«update …») 

Теперь особое предупреждение для любителей строить запросы конкатенацией строк. Не забудем, что OpenOffice является офисным приложением. Поэтому при переводе чисел с точкой в строку десятичная точка превращается… превращается … правильно — в десятичную запятую, что скорее всего откажется воспринять ваш сервер баз данных. Для такого случая удобно воспользоваться параметрическим запросом.

pStatement = GetConnection().PrepareStatement(«update … set … = ? where … = ?»)

pStatement.SetDouble(1, 123.456)

pStatement.SetString(2, «789» )

                                                    ‘ pStatement.ExecuteQuery

pStatement.ExecuteUpdate

Объект ResultSet, полученный в результате запроса поддерживает удобную (привычную) навигацию и может быть изменяемым. То есть все плюшки, известные по ODBC/JDBC/DAO/ADO и иже с ними налицо. Впрочем это все уже можно прочитать в Интернете. Я же хотел дать зацепки для поиска нужных моментов. Пока.

Объекты Connection, Statement, ResultSet в OpenOffice

От Apa Pacy

Похожие записи

Вы пропустили

Татуировка покраснела, но не чешется – это аллергия или что-то другое?

Как можно красиво выделить цитаты на сайте

Мнение о книге "Байесовская статистика: Star Wars, LEGO, резиновые уточки и многое другое"

Мнение о книге "Технология лидерства"