RDO链接问题。
Private env As rdoEnvironment
Private cn As rdoConnection
Private Sub Command1_Click()
Dim rs As rdoResultset
On Error GoTo e_err
Set rs = cn.OpenResultset("select * from news")
If rs.RowCount > 0 Then
Set MSRDC1.Resultset = rs
End If
e_err:
Dim i As Integer
For i = 1 To rdoErrors.Count - 1
MsgBox rdoErrors(i).Description
Next i
End Sub
Private Sub Form_Load()
Set env = rdoEnvironments(0)
Set cn = env.OpenConnection("", rdDriverPrompt, True, "")
End Sub
出现如下错误
SQL SERVER已把数据库上下文改为 'our class'
问题点数：20、回复次数：10Top
1 楼lkkjx（国中人）回复于 2001-07-09 11:00:54 得分 0
upTop
2 楼cqq_chen（我是谁）回复于 2001-07-09 11:21:22 得分 0
可惜没用过RDO，关注！！Top
3 楼lkkjx（国中人）回复于 2001-07-09 11:34:56 得分 0
upTop
4 楼lkkjx（国中人）回复于 2001-07-09 12:15:16 得分 0
upTop
5 楼lkkjx（国中人）回复于 2001-07-09 13:23:02 得分 0
up upTop
6 楼cqq_chen（我是谁）回复于 2001-07-09 13:33:32 得分 0
那你用ADO可以吗？如果用ADO有问题我尽力帮你。Top
7 楼lkkjx（国中人）回复于 2001-07-09 13:50:09 得分 20
to cqq_chen(我是谁)
我的程序是看书写的，想来是不会错的。现在我想知道是什么原因。：)Top
8 楼lkkjx（国中人）回复于 2001-07-09 14:16:11 得分 0
puTop
9 楼Jackyin（GunZ）回复于 2001-07-09 14:31:44 得分 0
没错阿,我可以用?
Top
10 楼lkkjx（国中人）回复于 2001-07-09 14:38:22 得分 0
不会吧。Top
