一个实时错误的问题
Arcan 2001-07-19 09:57:49 实时错误'-2147217883 (80040e25)':
在获得新的之前,必须释放所有的 ROW 句柄。
我是在使用数据环境设计器重做数据连接时碰到的此错误!
具体情况是这样的:
Private Sub Command1_Click()
T.rstest.MoveFirst
End Sub
Private Sub Command2_Click()
T.rstest1.MoveFirst
'~~~~~~~~~~~~~~~~~~~ 此处在执行Command3_Click()第三次后,出现以上实时错误!
End Sub
Private Sub Command3_Click()
.
.
.
conn = "Provider=sqloledb;" & "Data Source=test;Initial Catalog=test;User Id=test;Password=test;"
With T
.Te.Open cnn
.rstest.Open "select * from test", conn, adOpenDynamic, adLockOptimistic
.rstest1.Open "select * from test", conn, adOpenDynamic, adLockOptimistic
End With
Set txttest(0).DataSource = T
Set txttest(1).DataSource = T
.
.
.
End Sub
Private Sub Command4_Click()
T.rstest.Close
T.rstest1.Close
Set T.rstest.ActiveConnection = Nothing
Set T.rstest1.ActiveConnection = Nothing
T.Te.Close
End Sub