使用Datagrid显示很慢的问题（使用adUseClient及OLEDB.4.0;）

szyss 2001-08-12 11:03:43

如下语句：
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Jet OLEDB:database password=123456"
conn.Open connStr
s_sql = "Select xm,xh,nj,hh,dd from xmxxb order by id desc"
datxm.ConnectionString = connStr
datxm.CommandType = adCmdText
datxm.RecordSource = s_sql
datxm.CursorLocation = adUseClient
datxm.Refresh

当前的数据有15万条记录，但datagrid更新速度慢，需6秒时间才可以将datxm记录显示出来；
假如将上面的连接connStr修改为 connStr = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\data;Jet OLEDB:database password=123456"
并且将datxm.CursorLocation修改为 datxm.CursorLocation = adUseServer
，速度很快，只需0.7秒显示数据，但是打包后，到其他机器安装均提示“未能找到提供者，可能未被正确安装”的出错！

请问怎样使用Jet.OLEDB.4.0 的情况下，可以提高datagrid(15万条记录)的显示速度。
多谢！

...全文

115 回复打赏收藏转发到动态举报

写回复

回复

切换为时间正序

请发表友善的回复…

发表回复

vb将Excel导入到DataGrid(或数据库。一个境界低的人讲不出来高远的话，一个没有使命感的人讲不出来有责任的话，一个格局小的人，讲不出来大气的话。凡是能干大事的人都是能够坐得住的人。如果没有这么多人干扰我，哪有我做球星的价值。--------马拉多纳不怕念起，就怕觉迟。

vb-excel转换为mdb Private Sub Text1_DblClick() CDlg.DialogTitle = "打开 EXCEL 文件" CDlg.Filter = "所有 EXCEL 文件|*.xls" CDlg.ShowOpen If CDlg.FileName = "" Then Exit Sub Text1.Text = CDlg.FileName If Conn.State = adStateOpen Then Conn.Close Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & CDlg.FileName & ";Extended Properties='Excel 8.0;HDR=Yes'" '连接EXCEL文件 sql = "select * from [sheet1$]" '打开EXCEL表 rs.CursorLocation = adUseClient rs.Open sql, Conn, 3, 3 Label1.Caption = "共有记录： " & rs.RecordCount Set DataGrid1.Dat

VB DataGrid分页请看：数据库：test2000.mdb 表：numbers 字段：Id(自动编号)，anumber(数字) 因为DataGrid控件我们采用直接绑定记录集来显示数据.所以分页处理我们采用了间接的办法，定义另一个记录集objrs，将分页后的记录集付给objrs.然后绑定DataGrid ''效果还不错 , 我加了详细地注释，像pagesize, AbsolutePage的用法可参考msdn VB中新建工程,form中添加DataGrid控件,按钮cmdPrevious和cmdNext，文本框txtPage ''引用microsoft active data object 2.x object library Option Explicit Dim conn As ADODB.Connection Dim lCurrentPage As Long Private Sub cmdNext_Click() lCurrentPage = lCurrentPage + 1 Call Loadcontrol(lCurrentPage) End Sub Private Sub cmdPrevious_Click() If lCurrentPage > 1 Then lCurrentPage = lCurrentPage - 1 Call Loadcontrol(lCurrentPage) End If End Sub Private Sub Form_Load() Set conn = New ADODB.Connection conn.CursorLocation = adUseClient conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test2000.mdb;" lCurrentPage = 1 Call Loadcontrol(lCurrentPage) End Sub Private Sub Loadcontrol(lPage As Long) Dim adoPrimaryRS As ADODB.Recordset Dim lPageCount As Long Dim nPageSize As Integer Dim lCount As Long ''每页显示的纪录 nPageSize = 10 Set adoPrimaryRS = New ADODB.Recordset adoPrimaryRS.Open "select * from numbers", conn, adOpenStatic, adLockOptimistic adoPrimaryRS.PageSize = nPageSize ''页数 lPageCount = adoPrimaryRS.PageCount If lCurrentPage > lPageCount Then lCurrentPage = lPageCount End If adoPrimaryRS.AbsolutePage = lCurrentPage ''定义另一个记录集 Dim objrs As New ADODB.Recordset ''添加字段名称 For lCount = 0 To adoPrimaryRS.Fields.Count - 1 objrs.Fields.Append adoPrimaryRS.Fields(lCount).Name, adVarChar, adoPrimaryRS.Fields(lCount).DefinedSize Next ''打开记录集 objrs.Open ''将指定记录数循环添加到objrs中 For lCount = 1 To nPageSize objrs.AddNew objrs!id = adoPrimaryRS!id objrs!anumber = adoPrimaryRS!anumber adoPrimaryRS.MoveNext Next ''绑定 Set DataGrid1.DataSource = objrs ''在文本框显示页数 txtPage = lPage & "/" & adoPrimaryRS.PageCount End Sub Private Sub Form_Unload(Cancel As Integer) If Not conn Is Nothing Then conn.Close End If Set conn = Nothing End Sub ‘文本框中输入页数，回车跳转到指定位置 Private Sub txtPage_KeyDown(KeyCode As Integer, Shift As Integer) lCurrentPage = Val(txtPage.Text) Call Loadcontrol(lCurrentPage) End Sub

目录数据库课程设计报告 1 1.开发环境和相关技术介绍 5 1.1开发环境 5 1.2相关技术介绍 5 2.需求分析 5 2.1系统需求和功能 5 2.1.2功能需求描述 6 2.1.2.1员工基本信息模块 6 2.1.2.2工资结构设置模块 6 2.1.2.3工资汇总模块 6 2.2数据字典 6 2.2.1数据结构 7 2.2.2数据项 7 2.2.3数据流 8 2.4安全性要求 8 2.5一致性要求 9 2.6完整性要求 9 3 概念结构设计 9 3.1设计方法和步骤 9 3.2概念结构E-R图 9 4.逻辑结构设计 9 4.1具体RDBMS数据模型转换 9 4.2系统结构图 10 5.数据库物理设计 10 5.1索引的选择建立 10 5.2数据存放位置 10 5.3确定系统配置 10 6.数据库实施 10 6.1数据库创建 10 6.1.1各数据表说明 10 6.1.2数据库创建 11 6.2数据库备份和恢复方案 13 6.2.1应用辅助工具进行备份和恢复 13 6.2.2分离数据库法 13 6.3用户界面设计和应用程序编码 13 6.3.1用户界面设计 13 6.3.2类文件功能描述 14 6.3.3主要代码分析 14 }7.系统测试方案和测试报告 21 7.1测试方案 21 7.2测试过程 21 7.2.1登陆测试 21 8.安装和使用说明 25 8.1安装说明 25 8.1.1安装VB6.0E 25 8.1.2安装Microsoft SQL Server 2000 ODBC驱动程序 25 8.1.3升级Microsoft SQL Server 2000数据库管理系统 25 8.1.4附加数据库 25 8.1.5可能出现情况 25 9.完成情况和总结 25 9.1总结 25 1.开发环境和相关技术介绍 1.1开发环境项目名称：工资管理系统开发软件：vb6.0与Access 2000 运行环境：2000/XP/2003 1.2相关技术介绍 Microsoft SQL Server 2000数据库管理系统是微软公司研制开发的关系型数据库管理系统。该系统支持并扩展了SQL语言标准，可以运用标准SQL语句对数据进行操作，也可以使用功能强大的GUI工具进行灵活的数据管理。同时，系统还提供功能完善的API，可以在应用程序中调用这些API来实现与数据库系统的连接以及相关数据的操作。sp3是该系统的一个版本号，只有sp4以上的SQL 2000系统才能够支持纯ODBC连接方式。 Vb6.0功能强大的应用程序开发工具，主要支持基于面向对像化的语言的各种开发项目。 2.需求分析 2.1系统需求和功能工资管理信息系统对企业加强工资管理有着重要的作用，就一般的大型企业来说，它的设计内容非常复杂而且繁多，比如拥有工资计算功能，工资统计功能，报表输出功能，而且设计的模块也很多，比如工资管理模块，工资统计模块，报表设计模块，打印输出模块，模糊查询模块等。由于本软件主要是为作者工作的一家科技公司定制开发的。该公司是一家刚刚成立的公司，总体人员比较少，有正式员工20人，人员结构比较简单，学历比较高，基本拥有大专以上学历，部门划分也很清晰，而且人员的流动性不高，所以公司目前对工资管理的要求不高。因此，针对该公司而言，我们经过反复论证，最终确定了工资管理系统的设计方案，该工资管理系统的主要功能如图3.1所示： 2.1.2功能需求描述 2.1.2.1员工基本信息模块员工基本信息模块具有员工信息输入、员工增删、员工信息查询三个功能，员工基本信息包括员工号、员工姓名、员工性别、所在部门、所在岗位、工龄和工资等级等信息。员工增删实现了对数据库中员工信息的增加和删除。员工可以通过员工号或员工姓名对员工信息进行查询。 2.1.2.2工资结构设置模块根据该公司的工资管理实际情况，本系统将工资结构分为基础工资、岗位工资、工龄工资三部分。该模块可以对这三个工资类型设置工资等级，并对每个等级设置工资标准。 2.1.2.3工资汇总模块用户在员工信息管理模块对该员工的工资等级进行输入以后，在工资汇总模块会自动对员工工资进行汇总。用户可以打印出工资汇总表，打印之前可以通过打印预览功能进行打预览。 2.2数据字典该软件的数据库由下述四张数据表组成：员工信息表、基础工资设置表、岗位工资设置表 1、员工信息表字段字段名类型宽度说明 1 员工号字符型 3 数字 2 员工姓名字符型 10 小于等于5个汉字 3 员工性别字符型 2 “男”或“女” 4 岗位名称字符型 14 小于等于7个汉字 5 工龄数值型 2 1~99之间 6 工资等级数值型 2 1~99之间 2、基础工资设置表字段字段名类型宽度

VB 原码创建数据库动态创建 VB 原码创建数据库动态创建 VB 原码创建数据库动态创建 VB 原码创建数据库动态创建 VB 原码创建数据库动态创建 VB 原码创建数据库动态创建 VB 原码创建数据库动态创建

7,785

社区成员

197,585

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章