1,217
社区成员
发帖
与我相关
我的任务
分享帮我看看这个RDS程序！！！
我做了一个远端访问数据库的程序(使用的是windows2000平台)，但始终报一个“80070005“的错误，请大家帮我解决这个问题。由于不清楚如何上传图片和附件，所以，具体的问题我在该网站上发表了http://www.cndevx.com/club/dispbbs.asp?BoardID=30&ID=66262，请各位帮帮我！！
...全文
请发表友善的回复…
发表回复
tuyiwenya 2006-06-21
- 打赏
- 举报
可我就是在服务器上操作呀!还没在客户端做呢!
junki 2006-06-20
- 打赏
- 举报
是不是登录的用户权限不够？
tuyiwenya 2006-06-20
- 打赏
- 举报
以下是工程代码：
Dim rdso As New RDS.DataControl
Dim rs As ADODB.Recordset
Private Sub Command1_Click()
rdso.Server = "http://127.0.0.1"
rdso.Connect = "provider=microsoft.jet.oledb.4.0;" & _
"data source=C:\Documents and Settings\Administrator.SUN-SCHOOL\桌面\PcManage.mdb"
rdso.SQL = "machine"
rdso.ExecuteOptions = adcExecSync
rdso.Refresh
Set rs = rdso.Recordset
OutputRecordset rs
End Sub
Private Sub OutputRecordset(rs As ADODB.Recordset)
For i = 0 To rs.Fields.Count - 1
Print rs.Fields(i).Name
Next
Print
While Not rs.EOF
For i = 0 To rs.Fields.Count - 1
Print rs.Fields(i)
Next
Print
rs.MoveNext
Wend
End Sub
报错如下：
实时错误‘-2147024891（80070005）‘RDS服务器错误：服务器拒绝访问此页的默认的RDS句柄，请查看“服务器管理员”获得关于服务器完全设置的更多信息。
请各位帮我！！！
Dim rdso As New RDS.DataControl
Dim rs As ADODB.Recordset
Private Sub Command1_Click()
rdso.Server = "http://127.0.0.1"
rdso.Connect = "provider=microsoft.jet.oledb.4.0;" & _
"data source=C:\Documents and Settings\Administrator.SUN-SCHOOL\桌面\PcManage.mdb"
rdso.SQL = "machine"
rdso.ExecuteOptions = adcExecSync
rdso.Refresh
Set rs = rdso.Recordset
OutputRecordset rs
End Sub
Private Sub OutputRecordset(rs As ADODB.Recordset)
For i = 0 To rs.Fields.Count - 1
Print rs.Fields(i).Name
Next
While Not rs.EOF
For i = 0 To rs.Fields.Count - 1
Print rs.Fields(i)
Next
rs.MoveNext
Wend
End Sub
报错如下：
实时错误‘-2147024891（80070005）‘RDS服务器错误：服务器拒绝访问此页的默认的RDS句柄，请查看“服务器管理员”获得关于服务器完全设置的更多信息。
请各位帮我！！！
僵哥 2006-06-19
- 打赏
- 举报
要在这里问问题就把问题发过来，这是对CSDN的基本利益保护。
tuyiwenya 2006-06-19
- 打赏
- 举报
顶!!!!
tuyiwenya 2006-06-19
- 打赏
- 举报
自顶...请大家帮我看看!!!
junki 2006-06-19
- 打赏
- 举报
Connection is close.
