Копирование из calc базу openoffice base

Автор ksdon, 22 мая 2012, 21:34

0 Пользователи и 1 гость просматривают эту тему.

ksdon

Здравствуйте, очень прошу помощи.
В теме новичок, но необходимо срочно сделать следующее: имеется некий шаблон таблицы calc, в котором забиваются паспортные данные (ФИО, адрес и т.д.). Так вот, надо, чтобы из конкретных ячеек таблицы информация копировалась в зарегистрированную базу. Просто шаблон в base использовать не получается, так как приходится работать одновременно с несколькими такими формами.
Есть информация в книге "Изучение программирования макросов для электронных таблиц в OpenOffice.org" Марка Александра Бейна:

Dim oRangeas Object
Dim oSheetas Object
Dim oCellas Object
Dim surnameas string
Dim firstnameas string
Dim titleas string
Dim detailsas string
Dim ras Integer
oRange= thisComponent.getCurrentSelection.getRangeAddress
r= oRange.startRow
oSheet= thisComponent.CurrentSelection.getSpreadsheet
surname= ucase(oSheet.getCellByPosition(0, r).String)
firstname= ucase(oSheet.getCellByPosition(1, r).String)
If surname= ""Or firstname= ""Then
msgbox "Пожалуйста выберите строку, содержащую имя"
stop
End If
While title= ""
title= inputbox("Введите название случая (введите 0 чтобы остановиться)")
Wend
If title= 0Then
stop
End If
While details= ""
details= inputbox("Введите подробности (введите 0 чтобы остановиться)")
Wend
If details= 0Then
stop
End If
create_case(surname, firstname, title, details)
End Sub

Sub create_case(iSurnameas String, iFirstNameas String, _
iTitleas String, iDetailsas String)
Dim idas Integer
Dim oSqlas String
Dim oResultas Object
Dim oStatementas Object
Dim dbas object
db= connect_to_database("ppi")
id= investigator_id(db, iSurname, iFirstName)
oSql= "insert into ""cases"" "_
& "(""TITLE"",""DETAILS"",""INVESTIGATOR_ID"") values "_
& "('"& iTitle& "','"& iDetails& "',"& id& ")"
oStatement= db.createStatement
oResult= oStatement.executeQuery(oSql)
disconnect_from_database(db)
End Sub


Но здесь предлагается ввод информации через выделение ячеек и рукописным вводом в форму, а мне нужно все проще: из конкретных, фиксированных ячеек. Вот этого у меня и не получается почему-то сделать.
Заранее спасибо.

JohnSUN

Добро пожаловать на форум!
Не совсем понятно с "конкретными ячейками". Имеется в виду, что данные раскиданы по листу в беспорядке, а не идут строка за строкой в виде таблицы?
Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне

Hasim

Что-то вроде такого?
Из таблицы Calc выделить строки с данными и макросом вставить в таблицу base?


[вложение удалено Администратором]

Hasim

#3
А если из конкретных ячеек, то ещё проще.
Одно плохо. Их все придется отдельно указывать.