Войти
 
 
   
 
  
Новости Notes.ру Библиотека Биржа труда Вопрос - ответ Форум Регистрация Поиск О проекте
Разделы
Новости
RSS-Новости
Мероприятия
Пресс-релизы
 
Дополнительные инструменты в панели инструментов   
Шаблоны и примеры Читать статью
 
Классы для работы со стабами удалённых документов для Windows64   
Шаблоны и примеры Читать статью
 
Базовые компоненты XPages Extension Library: Widget Container   Серия статьей дающая представление о базовых компонентах Extension Library, их основных свойствах и мест применения
О Notes Читать статью
 


RSS Новости

RSS
Главная   RSS Новости
 
Проблема с чтением данных из таблиц Sql
  30.10.2009 07:26:18 |    RSS Новости |    Lotus:Форумы
Написал "синхронизатор" между базами Lotus и таблицами SQL. Данные из лотуса закидываются нормально, но затем не могу прочитать то что закинул. Из лотуса кидаю следующим образом:

CODE
Sub Click(Source As Button)

Dim v As Variant
Dim sqlfields As Variant
Dim sqlfields1 As Variant

Dim item As NotesItem
sf="Select "
For i=Lbound(doc.Forms) To Ubound(doc.Forms)
sf=sf+{form="}+doc.Forms(i)+{" |}
Next
sf=Left(sf,Len(sf)-1)

Set col=db.Search(sf,Nothing,0)
If col.Count=0 Then
Msgbox "Ничего не найдено!"
End
End If
count=col.Count
Msgbox Cstr(count)+" документов"

sqlfields1=doc.sqlfields
Dim sfields As Variant
Dim fieldsTypes As Variant
If doc.AllFields(0)<>"" Then sqlfields1=doc.SQLfieldsList_1
Redim sqlfields(Ubound(sqlfields1))
Redim fieldsTypes(Ubound(sqlfields1))
For i=Lbound(sqlfields1) To Ubound(sqlfields1)
sqlfields(i)=Strleftback(sqlfields1(i),"^")
fieldsTypes(i)=Strrightback(sqlfields1(i),"^")
Next
sfields=Join(sqlfields,",")
con.ConnectTo(doc.Server1(0))
Set qry.Connection=con
Set result.Query=qry
' result.Execute
Dim g
For i=1 To col.Count
Set doc1=col.GetNthDocument(i)
v=""
For j=Lbound(sqlfields) To Ubound(sqlfields)
If doc1.HasItem(sqlfields(j)) Then
g=""
Set item=doc1.GetFirstItem(sqlfields(j))
If Isarray(item.Values) Then g=Trim(Cstr(item.Values(0)))
If g="" Then
v=v+"NULL,"
Else
Select Case fieldsTypes(j)
Case 11:
d=Cdat(g)
v=v+"'"+Cstr(Year(d))+"-"+Cstr(Month(d))+"-"+Cstr(Day(d))+"',"
Case -9, -10:v=v+"'"+g+"',"
Case Else:
v=v+""+g+","
End Select
End If
Else
v=v+"NULL,"
End If
Next
qry.SQL={Insert INTO }+doc.Tables(0)+{(}+sfields+{) Values(}+Left(v,Len(v)-1)+{)}
result.Execute
If i=100 Then Goto next1
Next
next1:
Msgbox "Закончено"
' result.Execute
result.Close(DB_CLOSE)
con.Disconnect
End Sub[/code]

Затем пытаюсь подсчитать кол-во закинутых мною записей. В свойствах таблицы написано реальное кол-во, но при программном чтении он возвращает 1.
[code=no-highlight]Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
If doc.Tables(0)="" Then
Msgbox "Укажите в какой таблице нужно произвести подсчет"
ws.CurrentDocument.GotoField("Tables")
End
End If
con.ConnectTo(doc.Server1(0))
Set result.Query=qry
qry.SQL="SELECT * FROM "+doc.tables(0)

Msgbox (result.Execute)
i=0
If result.Execute Then
Do
result.NextRow
i=i+1
Loop Until result.IsEndOfData
End If
Msgbox Cstr(i)
result.Close(DB_CLOSE)
con.Disconnect
End Sub


Помогите, пожалуйста, найти решение


через qry.SQL="SELECT COUNT(*) FROM "+doc.tables(0) подсчитывается.
 
Читать дальше
 
Экспорт из .nsf в .cs
  30.10.2009 07:36:48 |    RSS Новости |    developerWorks: список сообщений- Форумы Lotus
Братцы, подскажите, какой бесплатной утилитой сделать экспорт из .nsf в .csv ?
 
Читать дальше
 
Русский темплейт 8.5
  30.10.2009 17:11:57 |    RSS Новости |    IBM и Lotus
Есть ли в природе оный (Mail8.5rus.ntf)и если есть - кто может поделиться?
 
Читать дальше
 
Конвертировать из .nsf в .csv
  30.10.2009 13:40:10 |    RSS Новости |    Lotus:Форумы
Братцы, подскажите, какой бесплатной утилитой сделать экспорт из .nsf в .csv ?
 
Читать дальше
 
JUST PUBLISHED: "Building widgets in the IBM Lotus Connections Home page"
  30.10.2009 09:31:11 |    RSS Новости |    Notes from Lotus Support
 
Читать дальше
 
Русский темплейт 8.5
  30.10.2009 16:11:57 |    RSS Новости |    Lotus:Форумы
Есть ли в природе оный (Mail8.5rus.ntf)и если есть - кто может поделиться?
 
Читать дальше
 
Доступ к базе nsf
  29.10.2009 05:51:30 |    RSS Новости |    developerWorks: список сообщений- Форумы Lotus
Есть файл nsf. При попытке открыть его сообщает: "Вы не имеете прав на доступ к этой базе данных". Заходил под учеткой администратора и сервера, ставил галочку в админке "Администрирование с полным доступом". Ничего не помогло. Как сбросить все права на...
 
Читать дальше
 
Доступ к базе nsf
  29.10.2009 02:00:00 |    RSS Новости |    Lotus:Форумы
Есть файл nsf. При попытке открыть его сообщает: "Вы не имеете прав на доступ к этой базе данных". Заходил под учеткой администратора и сервера, ставил галочку в админке "Администрирование с полным доступом". Ничего не помогло. Как сбросить все права на...
 
Читать дальше
 
Как получить идентификатор открытого письма?
  29.10.2009 07:28:34 |    RSS Новости |    developerWorks: список сообщений- Форумы Lotus
Здраствуйте.
...
 
Читать дальше
 
Проверка Sql запроса
  29.10.2009 17:13:07 |    RSS Новости |    Lotus:Форумы
Добрый день!

Незнает ли кто нибудь случаем как лучше проверить синтаксис sql запроса в LotusScript агенте перед выполнением? Используется субд db2 общение с базой происходит при помощи класса LCConnection. Результаты запросов получаются такие не слабые в несколько тысяч строк, поэтому проверить синтаксис попыткой выполнить запрос как-то не очень...
 
Читать дальше
01   02   03   04   05   06   07   08   09   10   11   12   13   14   15   16   17   18   19   20   21   22   23   24   25   26   27   28   29   30   31   32   33   34   35   36   37   38   39   40   41   42   43   44   45   46   47   48   49   50   51   52   53   54   55   56   57   58   59   60   61   62   63   64   65   66   67   68   69   70   71   72   73   74   75   76   77   78   79   80   81   82   83   84   85   86   87   88   89   90   91   92   93   94   95   96   97   98   99   100   101   102   103   104   105   106   107   108   109   110   111   112   113   114   115   116   117   118   [119]   120   121   122   123   124   125   126   127   128   129   130   131   132   133   134   135   136   137   138   139   140   141   142   143   144   145   146   147   148   149   150   151   152   153   154   155   156   157   158   159   160   161   162   163   164   165   166   167   168   169   170   171   172   173   174   175   176   177   178   179   180   181   182   183   184   185   186   187   188   189   190   191   192   193   194  

Мероприятия
18.12.2012   Опыт реализованных проектов на базе технологий IBM
24.10.2012   Решения IBM для построения надежной ИТ-инфраструктуры и сервисов
09.10.2012   Форум «Ударим СЭДом по бездорожью, разгильдяйству и непрозрачным бизнес-процессам! Система электронного документооборота CompanyMedia 4.0: вперед в будущее!»
Пресс-релизы
02.06.2011   ООО "АДБ.РУ" выпустило очередную версию системы управления контентом для Lotus Domino - Logosphere 2.7.
21.01.2010   Компания «Поликом Про» выполнила для компании «Синергия» пилотный проект по внедрению системы защиты электронной почты IBM Lotus Protector for Mail Security
22.12.2009   Новые технологии разработки приложений на базе Lotus Domino
Биржа труда
18.04.2012 - разработчик Lotus Notes (ОАО "УРАЛСИБ")
26.07.2011 - Программист Lotus (удаленная работа) ()
06.06.2011 - Эксперт (Lotus Notes/Domino) (Крупный банк (ТОП-5))
Последнее на форуме
 
А так же:
Как удалить профиль?
16.04.2016 00:08:51
Скопировать в буфер поле документа
24.05.2015 08:55:52
Импорт DXL-описания документов в Lotus Domino. Одноимённые поля
16.04.2015 16:49:58
 
© LOGOSPHERE.RU