У меня есть рабочий агент Lotus Notes. Работает на LN 7. Мой агент запускается каждые 5 минут и отправляет письма всякий раз, когда находит определенные записи в таблице Microsoft SQL (2005).
Обычно он работает нормально, но в последнее время он перестал работать - больше одного раза - и не перезапустится снова, пока сервер Notes не будет перезапущен или администратор Notes не перезапустит все агенты (я не администратор заметок, поэтому я не совсем уверен, что он делает, я пытаюсь получить эту информацию, чтобы добавить к этому вопросу).
Я пытаюсь исключить все, о чем я могу думать, и единственное, что мне приходит в голову, это то, что MS SQL Server, на котором мой LN Agent выполняет запросы, имел некоторые проблемы со стабильностью и не всегда мог быть в сети ... Я подумал что это может быть причиной проблемы ... (я пытаюсь сопоставить журнал работоспособности из SQL с последним успешным завершением работы моего агента).
Я думал, есть ли способ управлять соединением, кроме того, что я делаю, чтобы я мог исключить (отсутствие) проблемы с соединением.
Заранее благодарим за любой совет, который вы можете дать.
С уважением,
Диего
Option Public
Uselsx "*LSXODBC"
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim subject As String, cc As String, bcc As String, sender As String, OID As String, mailto As String, bodyNotMIME As String
Dim body As NotesMIMEEntity
On Error Goto errorCounter
Set db = session.CurrentDatabase
Gosub SendMailGeneral
Exit Sub
SendMailGeneral:
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim defaultQuery As String
Set qry.Connection = con
If con.ConnectTo("DSN_Name","USER_NAME", "PASSWORD") Then
Set result.Query = qry
defaultQuery = "select TOP (10) * from Message where StatusType=0"
qry.SQL = defaultQuery
result.Execute
If (result.IsResultSetAvailable) Then
Do
result.NextRowcode
//here´s all the code that gets the results from each table´s fields and transform them into notes mails
Loop Until result.IsEndOfData
End If
End If
result.Close(DB_CLOSE)
Return
Конец подписки