奇怪的问题,高手帮忙看一下!

qianby 2002-03-07 04:09:09
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim servername As String
Set db = session.CurrentDatabase
servername = db.server
Dim db2 As New NotesDatabase(servername,"names.nsf")
Set view = db2.GetView( "people" )
这个程序调试到最后总会出现names.nsf数据库未打开的错误。请高手帮帮忙。
而且以下的方法也不成功,出现同样的错误:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
servername = db.server
call db.open("服务器名";"names.nsf")
Set view = db2.GetView( "people" )
...全文
68 点赞 收藏 8
写回复
8 条回复
linshao16 2002年03月13日
从桌面打开一次就行了,要么打补丁吧,找主机供应商
回复 点赞
qianby 2002年03月08日
恼火啊,这可是正在使用的一个环境啊,那么多的用户啊,应用啊什么的,重装???可怕啊!
回复 点赞
fokker 2002年03月08日
我也发现过这种情况,代码基本一样,最后也出现names.nsf数据库未打开的错误,搞得我很是恼火。但把这段代码放到另一个Domino下运行,竟然通过了。最后只好把那个domino从装了一遍,就好了。这就是解决的办法,但不知道原因是什么。
回复 点赞
fokker 2002年03月08日
Sorry!
不好意思,我记错了,那次出现这个问题时重起服务器就可以了,没有重装。
回复 点赞
77clark 2002年03月08日
Dim db As New NotesDatabase( "", "" )
If db.Open("服务器名";"names.nsf") Then
Messagebox( "fff")
End If
回复 点赞
1x8 2002年03月08日
重起服务器。即可。我以前也碰见过。
回复 点赞
qianby 2002年03月07日
不行,试过了。
我的Domino是5.0.2中文版,装在nt4.0上
回复 点赞
黑靥 2002年03月07日
dim db As NotesDatabase
set db = New NotesDatabase("","names.nsf")
这样就可以了
回复 点赞
发动态
发帖子
消息协作
创建于2007-08-27

283

社区成员

3.9w+

社区内容

企业开发 Exchange Server
社区公告
暂无公告