我有一個可用的Lotus Notes代理。在LN 7上運行。 我的代理每5分鐘運行一次,並且每當它在Microsoft SQL(2005)表上找到某些特定記錄時,它就會發送一些郵件。在Lotus Notes代理上管理不穩定的SQL連接
它通常工作正常,但最近它停止工作 - 現在不止一次 - 並且不會重新啓動,直到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
末次
只需確認,Notes Domino服務器版本是6.5.1。 筆記管理員告訴我,不是重新啓動,而是在命令控制檯上嘗試:telamgr quit 然後他用這個命令取回它:Load namgr 但似乎退出所有代理需要很長時間。 – frenetix 2010-10-04 18:01:51