Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Программирование [игнор отключен] [закрыт для гостей] / LotusScript / 14 сообщений из 14, страница 1 из 1
16.01.2006, 13:12
    #33484772
VKSam
VKSam
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LotusScript
Всем привет.
Не знаю в какой раздел надо было писать... но решил что в этот.
Мне нужна помошь по использованию LotusScript .
Как можно организовать импорт файлов в базу данных Notes?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2006, 13:25
    #33484831
G2V
G2V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LotusScript
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
	Dim Con As New ODBCConnection
	Dim Qry As New ODBCQuery
	Dim Result As New ODBCResultSet

             qqueryValue$ = "select * from "
             wkTableName$ = "sometable"

	Set Qry.Connection = Con
	Qry.SQL = queryValue$ & wkTableName$
	Set Result.Query = Qry
	Result.Execute

Что-то типа этого...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2006, 13:27
    #33484839
G2V
G2V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LotusScript
Да, ещё
Код: plaintext
Uselsx "*LSXODBC"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2006, 13:33
    #33484870
VKSam
VKSam
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LotusScript
Честно говоря не понял....
Может я конечно и ошибаюсь, но приведенный пример осуществляет экспорт из базы
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2006, 13:51
    #33484932
Guesst
Guesst
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LotusScript
Скорее всего имеется в виду не SQL?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2006, 14:52
    #33485171
VKSam
VKSam
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LotusScript
Мне вобщем все равно как это будет сделано... можно и с помощью запроса... главное результат... но у меня одна проблему - я не знаю LotusScript совсем... мне просто необходим доходчивый пример ну прям как для чайников
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2006, 16:06
    #33485429
1024
1024
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LotusScript
если ты не знаешь лотусскрипт то вероятно не знаешь как работает приложение
(бд) в которую надо импортировать. Значит ты не знаешь куда и что
импортировать. Значит никаких шансов.

Звучит примерно как "мне нужнен импорт файлов в 1С". Каких файлов? Куда?
Справочник товаров? Накладные? Список сотрудников?


Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2006, 16:08
    #33485439
Guesst
Guesst
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LotusScript
У меня по рукой нет лотуса сейчас, можно поискать по ключевому слову LotusScript здесь.

Хранятся в полях документов типа Richtext. Импорт бывает интерактивный, из какого-то источника. БД бывают под Лотус и под Веб. Не одно и то же.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2006, 16:37
    #33485497
VKSam
VKSam
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LotusScript
1024
Я приблизительно знаю что и как работает... я админю сервак Domio.
Но вот со скриптом у меня не сложилось...

А какая разница, какие файлы импортировать???
Мне нужен скрипт, который бы импортировал файл, его описание. База - любая база, которую я захочу
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2006, 17:35
    #33485622
Guesst
Guesst
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LotusScript
Dim rtitem As NotesRichTextItem, FilePath As string

FilePath = RecordDoc.GetitemValue("FilePath")(0)

' create a new rich text item
Set rtitem = New NotesRichTextItem (RecordDoc, "Body")

' append attachment to rtitem
Call rtitem.EmbedObject(EMBED_ATTACHMENT, "", FilePath)

This assumes that you are creating new documents and not updating existing ones.

If you are updating existing documents, you will rather use this kind of script:


Dim rtitem As NotesRichTextItem, FilePath As string

FilePath = RecordDoc.GetitemValue("FilePath")(0)


If DestDoc is Nothing then
' create a new rich text item
Set rtitem = New NotesRichTextItem (RecordDoc, "Body")

else
' remove any existing Body item
call DestDoc.RemoveItem ("Body")
call DestDoc.RemoveItem ("$File") ' remove also attachments

' create a new rich text item in the destination doc
Set rtitem = New NotesRichTextItem (DestDoc, "Body")

end if

' append attachment to rtitem
Call rtitem.EmbedObject(EMBED_ATTACHMENT, "", FilePath)

Что-нибудь вроде этого, если нет недопонимания ... Сработало?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2006, 17:39
    #33485637
Guesst
Guesst
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LotusScript
Dim rtitem As NotesRichTextItem, FilePath As string

FilePath = RecordDoc.GetitemValue("FilePath")(0)

' create a new rich text item
Set rtitem = New NotesRichTextItem (RecordDoc, "Body")

' append attachment to rtitem
Call rtitem.EmbedObject(EMBED_ATTACHMENT, "", FilePath)

This assumes that you are creating new documents and not updating existing ones.

If you are updating existing documents, you will rather use this kind of script:


Dim rtitem As NotesRichTextItem, FilePath As string

FilePath = RecordDoc.GetitemValue("FilePath")(0)


If DestDoc is Nothing then
' create a new rich text item
Set rtitem = New NotesRichTextItem (RecordDoc, "Body")

else
' remove any existing Body item
call DestDoc.RemoveItem ("Body")
call DestDoc.RemoveItem ("$File") ' remove also attachments

' create a new rich text item in the destination doc
Set rtitem = New NotesRichTextItem (DestDoc, "Body")

end if

' append attachment to rtitem
Call rtitem.EmbedObject(EMBED_ATTACHMENT, "", FilePath)

Что-нибудь вроде этого, если нет недопонимания ... Сработало?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2006, 17:49
    #33485667
G2V
G2V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LotusScript
2 VKSam

Так точно - Вы ошибаетесь, эта кострукция производит импорт (SQL конструкция для лотуса, к сожалению, не применима, чтобы таким образом отбирать из него данные). Однако, я забыл указать строку подключения к источнику данных:


Код: plaintext
 call Con.ConnectedTo( dataSourceName$ [ , userID$ [ , password$ ]])

применительно к приведённому куску кода ( см. выше)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Connects to a data source.
Defined in
ODBCConnection 
Syntax
status = odbcConnection. ConnectTo( dataSourceName$ [ , userID$ [ , password$ ]] )
Parameters
dataSourceName$
String. The ODBC name of the data source to which you want to connect.
userID$
String. Optional. The name of the user ID.
password$
String. Optional. The password for the user ID.
Return value
True indicates that the connection to the data source was successfully achieved.
False indicates that the connection to the data source failed.
Usage
Use to establish a connection to a data source. The source must already be registered in the ODBC Driver Manager. This method does not automatically register data sources.
Errors
Cannot find named data source (DBstsCANF)
Unable to connect (DBstsCCON)
Unable to get user ID and password (DBstsACCS)
Events
BeforeConnect
AfterConnect
BeforeConnectTo
AfterConnectTo

Остальное лучше смотреть в хелпе.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2006, 18:04
    #33485702
Guesst
Guesst
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LotusScript
Если просто импорт данных с сервера, то можно прописать ..SQL в строке запроса
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2006, 19:10
    #33485839
Эстонский голем
Эстонский голем
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LotusScript
Гы гы описывай задачу поробней какие именно файлы и какие атрибуты должны быть у документа я тибе пример базы с кодом накидаю
тока навсякий случай задублирую в IBM DB2 тему там вроде Lotus все знают только ленивые
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Программирование [игнор отключен] [закрыт для гостей] / LotusScript / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]