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

[Ириминаге]

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

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

Так там подсвечивает нужную строку. Тут как в одном путешествии Ийона Тихого, когда он добрался до машины, способной ответить на любой ПРАВИЛЬНЫЙ вопрос. А правильный вопрос можно задать, если знаешь большую часть ответа, чем, я похвастать, увы, не могу. Поэтому в перерыве между курением интернета вообще и этого форума, в частности, задаю тут вопросы людям, которым не сложно подсказать.
А в данном конкретном случае, есть какая-то проблема с синтаксисом и до возможности получить хоть какие-то результаты пока не удалось.

[mikekaganski]

Так там подсвечивает нужную строку.

"Подсвечивает нужную строку" - это не то же самое, что "установка точки останова". Ваше подсвечивание происходит после возникновения ошибки, когда ничего уже просмотреть нельзя. А я написал про отладку, когда остановка происходит перед выполнением проблемной строки, и в момент остановки можно всё проинспектировать.

[Ириминаге]

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

Прилагаю файл

[economist]

См. вложенный пример, в вашем коде куча опечаток.

В движке HSQLDB нужно все кавычить (я с SQLite уже отвык от этой кавыческой дичи). Вообще готовьтесь к тому что HSQL будет вас удивлять на ровном месте ежедневно. Рабочий код макроса такой:

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


Sub Main
dbContext=CreateUnoService("com.sun.star.sdb.DatabaseContext") '< get  the database context
oDataSource=dbContext.getByName("test") '<- change database name
ConnectToDataBase=oDataSource.getConnection("","") '<- username & password pair - HSQL default blank
Statement = ConnectToDataBase.createStatement()
SQL= "UPDATE ""test1"" SET ""Num2""=5 WHERE ""Num1""=2"
Statement.executeUpdate(SQL)
ConnectToDataBase.close()
ConnectToDataBase.dispose()
End Sub


[mikekaganski]

В движке HSQLDB нужно все кавычить

Как я понимаю, до самого запроса дело не доходит.

[mikekaganski]

Прилагаю файл

Хм, конкретно вот это у меня на Вашем файле прекрасно отрабатывает.

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


sub testDB
 DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
 DataSource = DatabaseContext.getByName("file:///D:/Downloads/test.odb")
 Connection = DataSource.GetConnection("", "")
 Statement = Connection.createStatement()
 SQL= "SELECT * FROM test1"
 Statement.execute(SQL)
 Connection.close
 Connection.dispose()
end sub


Что-то с инсталляцией? Я проверял на Version: 7.3.2.1 (x64) / LibreOffice Community
Build ID: 0b2e59a88b7e225b655db87910f97dca7aef27aa
CPU threads: 12; OS: Windows 10.0 Build 19044; UI render: default; VCL: win
Locale: en-US (ru_RU); UI: en-US
Calc:

[economist]

Как я понимаю, до самого запроса дело не доходит.

В коде ТС #8 из 8-ми строк - 4 содержат опечатки, поэтому я сразу наперед говорю где будет ошибка.

[mikekaganski]

В коде ТС #8 из 8-ми строк - 4 содержат опечатки, поэтому я сразу наперед говорю где будет ошибка.

Абсолютно!
Вот это вот:

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

ConnectToDataBase=oDataSource.GetConnection("","")
Statement = Connection.createStatement()

Как можно так скопировать код из ответа #3???

Но если последовать совету об отладке, можно посмотреть, что "Connection" - не то же самое, что "ConnectToDataBase".

[rami]

Прилагаю файл

Из самой базы данных можно выполнить:

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

Sub Main
Dim oSQL, oCon, oStatement

oSQL = "UPDATE ""test1"" SET ""Num2"" = 5 WHERE ""Num1"" = 2"

oCon = ThisComponent.DataSource.getConnection("", "")

oStatement = oCon.createStatement()
oStatement.executeUpdate(oSQL)
oStatement.close()
oStatement.dispose()
End Sub

[Ириминаге]

Всем огромное спасибо за помощь и участие!!!
Вроде начало что-то вырисовываться и даже получаться. Решил разбить тело программы на процедуры. Возможно, где-то наделал ляпов, но получилось у меня следующее:

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

REM  *****  BASIC  *****
Const dbName="test"
DIM ConnectToDataBase AS Object, Statement  AS Object

Sub Main
opnBase()
SQL= "UPDATE ""test1"" SET ""Num2""=5 WHERE ""Num1""= 2"
Statement.executeUpdate(SQL)
clsBase()
End Sub

Sub opnBase()
dbContext=CreateUnoService("com.sun.star.sdb.DatabaseContext")
oDataSource=dbContext.getByName(dbName)
ConnectToDataBase=oDataSource.getConnection("","")
Statement = ConnectToDataBase.createStatement()
End Sub

Sub clsBase()
db=ConnectToDataBase(dbName)
db.close()
db.dispose()
End Sub

[Ириминаге]

Абсолютно!
Вот это вот:

Как можно так скопировать код из ответа #3???

Но если последовать совету об отладке, можно посмотреть, что "Connection" - не то же самое, что "ConnectToDataBase".

Согласен, Франкенштейн получился топорно. Но теперь начал кое-что понимать. Не скажу, что настигло озарение, однако, уже не как у Высоцкого: "Наугад, как ночью по тайге..."

[sokol92]

Наугад, как ночью по тайге

Off. Я доказал ему, что запад — где закат.

[Ириминаге]

Следующий затык:

Не хочет принимать строку

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

SQL= "UPDATE ""test1"" SET ""Num2""=5 WHERE ""Num1""= 2"" AND ""N""= 0 "

Пишет:

Ошибка времени выполнения Basic.
Вызвано исключение
Type: com.sun.star.sdbc.SQLException
Message: Unexpected token:  AND  in statement [" AND "].

[mikekaganski]

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

SQL= "UPDATE ""test1"" SET ""Num2""=5 WHERE ""Num1""= 2"" AND ""N""= 0 "

Правильно пишет.

Вы проверьте, что получается, когда строка обрабатывается и двойные кавычки преобразуются в одинарные. Выполните

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

MsgBox SQL

[Ириминаге]

Правильно пишет.
Вы проверьте, что получается, когда строка обрабатывается и двойные кавычки преобразуются в одинарные. Выполните

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

MsgBox SQL

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