我有一个工作的 Lotus Notes 代理。在 LN 7 上运行。我的代理每 5 分钟运行一次,每当它在 Microsoft SQL (2005) 表上找到一些特定记录时,它就会发送一些邮件。
它通常工作正常,但最近它停止工作 - 现在不止一次 - 并且在 Notes 服务器重新启动或 Notes 管理员重新启动所有代理之前不会再次重新启动(我不是 Notes 管理员,所以我不是真的确定他做了什么,我正在尝试获取此信息以添加到此问题中)。
我试图排除我能想到的任何事情,我唯一想到的是,我的 LN 代理运行查询的 MS SQL Server 存在一些稳定性问题,可能并不总是在线......我想这可能是问题的原因......(我正在尝试从 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
结束子