powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Другие СУБД [игнор отключен] [закрыт для гостей] / Выгрузить из лотуса через ODBC в MSSQL
4 сообщений из 4, страница 1 из 1
Выгрузить из лотуса через ODBC в MSSQL
    #36436807
Lotus_?
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день!

Есть база на лотусе, в которой хранится некий документооборот. Хотелось бы определенные поля документа выгрузить в базу MSSQL, для того, чтобы потом из таблички их забрала другая сторонняя программа.
Установил NotesSQL, создал новый DSN, указал там базу лотуса. Проверил этим кодом(из help):

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Uselsx "*LSXODBC"
	Dim con As New ODBCConnection
	con.ConnectTo(Inputbox("ODBC data source name", "DSN"))
	While Not con.IsConnected
		dsn = Inputbox("ODBC data source name", _
		"Connection not made ...")
		If dsn = "" Then Exit Sub
		con.ConnectTo(dsn)
	Wend
	Messagebox "Connected to " & con.DataSourceName,, _
	"Connection made ..."
	con.Disconnect

Показывает, что все ОК. Как дальше идти, что-то не пойму. Спасибо.
...
Рейтинг: 0 / 0
Выгрузить из лотуса через ODBC в MSSQL
    #36437038
Lotus_?
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Lotus_?Добрый день!

Есть база на лотусе, в которой хранится некий документооборот. Хотелось бы определенные поля документа выгрузить в базу MSSQL, для того, чтобы потом из таблички их забрала другая сторонняя программа.
Установил NotesSQL, создал новый DSN, указал там базу лотуса. Проверил этим кодом(из help):

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Uselsx "*LSXODBC"
	Dim con As New ODBCConnection
	con.ConnectTo(Inputbox("ODBC data source name", "DSN"))
	While Not con.IsConnected
		dsn = Inputbox("ODBC data source name", _
		"Connection not made ...")
		If dsn = "" Then Exit Sub
		con.ConnectTo(dsn)
	Wend
	Messagebox "Connected to " & con.DataSourceName,, _
	"Connection made ..."
	con.Disconnect

Показывает, что все ОК. Как дальше идти, что-то не пойму. Спасибо.

Разобрался. Пока добавил через addrow метод. А граблей никаких не будет, если мне надо будет из документа поля цеплять? То есть, передать значение поля в документе, сейчас делал просто как через диалоговое окно, ввел значение, оно появилось в таблице мсскл.
...
Рейтинг: 0 / 0
Выгрузить из лотуса через ODBC в MSSQL
    #36441190
Lotus_?
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем привет! Выгрузка работает, но после того, как добавил одну строчку, пытаюсь добавить вторую, выскакивает ошибка connection is busy with results for another command.
Как побороть данную ошибку? Спасибо за ответы.
...
Рейтинг: 0 / 0
Выгрузить из лотуса через ODBC в MSSQL
    #36441780
Lotus_?
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Lotus_?,

Решил проблему:) В ConnectTO добавил MARS_Connection=yes. Всем спасибо!
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Другие СУБД [игнор отключен] [закрыт для гостей] / Выгрузить из лотуса через ODBC в MSSQL
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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