LO Calc падает при обращении к sqlite_sequence БД SQLite из StarBasic

[mikekaganski]

Следующий псевдокод (некогда) у меня отработал без ошибок:

У меня тоже. Супер! Спасибо.

Позвольте, а как же понимать тогда начальное сообщение:

Для этого до и после исполнения "куска" запрашиваю значение поля "seq" из таблицы "sqlite_sequence" БД SQLite таким образом:

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


sSQL = "SELECT seq FROM sqlite_sequence WHERE name = """ & sTablNameInt &""""
oRs = MySet._CreateRowSet(DBName, sSQL)


Я из этого делал вывод, что до и после "исполнения куска" вызывается MySet._CreateRowSet, который каждый раз заново создаёт экземпляр сервиса? Это было не так?

[ost]

Было и есть так.
К падению LO приводит повторный (после выполнения вставки в БД записей) вызов функции.

Падает при повторном выполнении:

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


DbName = "JRIDp64"
oConn = MySet._ConnectToDataBase(DbName)
sSQL = "SELECT max(ROWID) FROM " & sTablNameInt
oRs = MySet._CreateRowSet(DBName, sSQL)


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


Function _CreateRowSet(sDBName, sSQLCommand as String)
'===Функция создает объект RowSet из имени базы и SQLкоманды
RowSet = createUnoService("com.sun.star.sdb.RowSet")
RowSet.DataSourceName = sDBName
RowSet.CommandType = com.sun.star.sdb.CommandType.COMMAND
RowSet.EscapeProcessing=False

RowSet.Command=sSQLCommand
RowSet.execute() ' выполняем
_CreateRowSet=RowSet
End Function '_CreateRowSet


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


Function _ConnectToDataBase(sDbName as String) as Object
'===Функция подключения к Базе данных
Dim oDbContext As Object, oDataSource As Object
dbContext=createUnoService("com.sun.star.sdb.DatabaseContext")
oDataSource=dbContext.getByName(sDbName)
oConn=oDataSource.GetConnection("","")
_ConnectToDataBase=oConn
End Function '_ConnectToDataBase



Успешно выполняется:

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


DbName = "JRIDp64"
oConn = MySet._ConnectToDataBase(DbName)
sSQL = "SELECT max(ROWID) FROM " & sTablNameInt
oRs = MySet._CreateRowSet1(oConn, sSQL)


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


Function _CreateRowSet1(oConnection as Object, sSqlCommand as String)
oStatement = oConnection.createStatement()
oRowSetSeq = oStatement.executeQuery(sSqlCommand)
_CreateRowSetStatement = oRowSetSeq
End Function '_CreateRowSet1


Функция "_ConnectToDataBase" та же.