大家看看这个代理，有什么错误，测试时候，说有一个未知的错误？

奥爸 2003-12-09 01:50:42

Dim s As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Dim sql As String
Dim datastr As String
Dim nian As String
Dim yue As String
Dim ri As String
Dim strstr As String
Set db = s.CurrentDatabase
Set view = db.GetView("点播统计")
Set doc = view.GetFirstDocument
While Not doc Is Nothing
doc.remove(True)
Set doc = view.getfirstdocument
Wend

Set db = s.currentdatabase
Set conn = New odbcconnection
conn.silentmode = True
Set query = New ODBCQuery
Set result = New ODBCResultSet
Set query.connection = conn
Set result.query = query

If Not conn.ConnectTo("DOMINO","vod","vod") Then
Print "ODBC设置错误"
Exit Sub
End If

sql = "select username ,medianame,sum(duringtime) as alltime from usertimefortv group by username,medianame order by username"

query.sql = sql
result.Execute
If Not result.isendofdata Then
Do
result.nextrow
Set doc = New NotesDocument(db)
doc.form = "uservalue"
doc.username=result.getvalue("username")
doc.medianame=result.getvalue("medianame")
doc.alltime=result.getvalue("alltime")
Call doc.save(True,True)
Loop Until result.isendofdata
End If
conn.disconnect
Call ws.viewrefresh
测试时候，运行正常，可是看到日志中显示：
unknown lotuscript error
我觉得没有错误，但是提示这个错误，能有什么原因吗？？

...全文

66 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

yangxjn 2003-12-11

打赏
举报

xue xi

calcaw 2003-12-10

打赏
举报

同意楼上的，一个这么长的代码居然没有on error goto …… 的语句，再好也枉然！

msgbox cstr(erl() & error())

bb2 2003-12-09

打赏
举报

你用on error goto errline
errline:
msgbox cstr(erl)

看一下哪行出错

chenmingjsw 2003-12-09

打赏
举报

mark

奥爸 2003-12-09

打赏
举报

我把程序放到一个按钮的事件中没有任何错误的
怎么放到代理中会有错误呢？
我这里现在没有安装服务器的，我觉得代码没有错误。
日志出现错误是不是因为服务器配置代理的方面呀？

ibm123 2003-12-09

打赏
举报

你将程序分段测试一下, 先找到出错的代码范围.

奥爸 2003-12-09

打赏
举报

这个代理是我在cs模式下的。
完全的代码我重新贴一次，大家看看有什么错误
Dim s As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Dim sql As String
Dim datastr As String
Dim nian As String
Dim yue As String
Dim ri As String
Dim strstr As String
Set db = s.CurrentDatabase
Set view = db.GetView("点播统计")
Set doc = view.GetFirstDocument
While Not doc Is Nothing
doc.remove(True)
Set doc = view.getfirstdocument
Wend

Set db = s.currentdatabase
Set conn = New odbcconnection
conn.silentmode = True
Set query = New ODBCQuery
Set result = New ODBCResultSet
Set query.connection = conn
Set result.query = query

If Not conn.ConnectTo("DOMINO","vod","vod") Then
Messagebox "ODBC设置错误"
Exit Sub
End If

sql = "select username ,medianame,sum(duringtime) as alltime from usertimefortv group by username,medianame order by username"

query.sql = sql
result.Execute
If Not result.isendofdata Then
Do
result.nextrow
Set doc = New NotesDocument(db)
doc.form = "uservalue"
doc.username=result.getvalue("username")
doc.medianame=result.getvalue("medianame")
doc.alltime=result.getvalue("alltime")
Call doc.save(True,True)
Loop Until result.isendofdata
End If
conn.disconnect
Call ws.viewrefresh