用RDS的一个问题

for123 2000-05-26 06:36:00
事先引用了RDS 2.1 library和ADOR 2.1 Library
Dim rdso As New RDS.DataControl
Dim rs As ADOR.Recordset

Private Sub Command1_Click()
driver = "driver={Microsoft Access Driver (*.mdb)}"
dbpath = ";dbq=c:\Inetpub\wwwroot\source\ch18\stock01.mdb"
rdso.Server = "http://127.0.0.1"
rdso.Connect = driver & dbpath
rdso.SQL = "select * from 股票行情表"
rdso.ExecuteOptions = adcExecSync
rdso.Refresh
Set rs = rdso.Recordset
outputrecordset rs

End Sub
Sub outputrecordset(rs As ADOR.Recordset)
For i = 0 To rs.Fields.Count - 1
Debug.Print rs.Fields(i).Name
Next
Debug.Print

End Sub
程序调试时出现的现象为:
“实时错误,指定的Handler已经无法访问”
光标落在"rdso.Refresh"这一行上。
请解释这种现象出现的可能原因。


...全文
93 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复

7,762

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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