!急!:使用三层结构获取服务器上的记录--提示"拒绝的权限"

activedwj 2003-03-10 09:27:51
我现在正在作一个中间件(.dll),打算通过它获取服务器上的记录,
环境:两台Win2000 ,系统管理员密码完全一致
服务器Dll代码如下:
Public Function GetList() As Object
On Error GoTo ErrorHandle
Dim objRS As Object 'ADODB.Recordset
Set objRS = CreateObject("ADODB.Recordset")
objRS.StayInSync = False
objRS.open "Select * from t_DataSource", CnSysDB
Set GetList = objRS
Set objRS = Nothing
Exit Function
ErrorHandle:
Set GetList = Nothing
MsgBox Err.Description, vbExclamation
End Function

客户端调用代码:

Private sub test()
Dim dwj As Object
On Error GoTo MyError
Set dwj = CreateObject("对象名", 服务器)
Set rst = dwj.GetList
List1.Clear
Do Until rst.EOF
List1.AddItem rst.Fields("FNumber") & vbTab & rst.Fields("FName")
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
Exit sub
MyError:
Msgbox Err.description
end sub
...全文
32 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
12663911 2003-03-10
  • 打赏
  • 举报
回复
1.在组件服务中选择你的应用程序
2。右键属性,选择安全设置
3。将[调用的身份验证级]设为“无"
4.OK

当然,这样做安全性有点小问题
zhp80 2003-03-10
  • 打赏
  • 举报
回复
用OLE/COM Object Viewer or DCOMCNFG.EXE 在组件服务器上配置一下权限
activedwj 2003-03-10
  • 打赏
  • 举报
回复
是VB还要加SP4吗
activedwj 2003-03-10
  • 打赏
  • 举报
回复
注册过了
Cooly 2003-03-10
  • 打赏
  • 举报
回复
你试试使用组件服务管理工具,将服务器端组件进行注册并配置。
或者在客户端注册组件也可以。
activedwj 2003-03-10
  • 打赏
  • 举报
回复
CreateObject语句行
Cooly 2003-03-10
  • 打赏
  • 举报
回复
客户端什么地方报错?
activedwj 2003-03-10
  • 打赏
  • 举报
回复
还是不行

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧