| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 613 人关注过本帖
标题:[求助]为什么提示"当前行不可用"?
只看楼主 加入收藏
whp413
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-4-26
收藏
 问题点数:0 回复次数:0 
[求助]为什么提示"当前行不可用"?

Option Explicit
Dim rs_reader As New adodb.Recordset

Private Sub Form_Load()
Dim sql As String
Dim conn As New adodb.Connection
conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\database.mdb"
sql = "select * from 销售报表"
rs_reader.CursorLocation = adUseClient
rs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rs_reader

DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
Label3.Caption = Date
End Sub

Private Sub Form_Unload(Cancel As Integer)
rs_reader.Close
End Sub

运行这段代码后,关闭窗体时为什么提示"当前行不可用"?要怎么解决

[此贴子已经被作者于2006-4-29 16:42:42编辑过]

搜索更多相关主题的帖子: 提示 
2006-04-29 16:40
快速回复:[求助]为什么提示"当前行不可用"?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.014540 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved