冰冻三尺 之 "分页显示记录"
2012-07-31 10:18
211 查看
又做完了一个例子,很明显的感觉到理解起来有点吃力了。这几天做例子始终有一种感觉就是水中月,镜中花,看的朦朦胧胧的。很努力的让自己去懂,可是往往事与愿违。有时候想,学习和理解是个过程,不能一蹴而就。每个例子或多或少总有解决不了的问题,不知道应该是想尽办法的去解决掉,还是就是记下来然后往后走。总说学习是个过程,或许现在觉得是个问题等到越往后走学的多的时候才会发现这里原来这么的简单。做不到一蹴而就,那也只求点滴的进步了,冰冻三尺非一日之寒,点滴积累,慢慢的就什么都懂了。
做了好几个例子了,想想过程其实很简单,无非也就是窗体加载连接数据库,然后就是数据库操作,最后窗体卸载释放数据库。其中比较复杂的就是数据库的操作。由于操作数据库的复杂性,一般都会定义一个过程或者函数来实现操作。比如今天这个例子“分页显示记录”。定义了一个过程。过程中实现了让记录分页显示在datagrid控件上,完成了大部分的功能。代码如下:
这个小例子中还用了一个datagrid控件,这个控件就是这个例子的关键,更关键的就是这个控件不能够将记录集中的数据直接连接给它,必须借助另一个中间记录集来传递,原因就是这个控件不能够智能选择,只要和记录集数据连接上就能够自动获得记录集中的数据,并且是全部数据不能够智能选择和分配。
体会比较少,总结的也不多,贵在点滴积累,冰冻三尺非一日之寒。
做了好几个例子了,想想过程其实很简单,无非也就是窗体加载连接数据库,然后就是数据库操作,最后窗体卸载释放数据库。其中比较复杂的就是数据库的操作。由于操作数据库的复杂性,一般都会定义一个过程或者函数来实现操作。比如今天这个例子“分页显示记录”。定义了一个过程。过程中实现了让记录分页显示在datagrid控件上,完成了大部分的功能。代码如下:
PublicSub ShowData(ByVal intPage As Integer) Dim intPageCount As Integer Dim intrecord As Integer Dim objDataSource As New Recordset For intrecord = 0 To objRs.Fields.Count - 1 objDataSource.Fields.AppendobjRs.Fields(intrecord).Name, adVarChar, objRs.Fields(intrecord).DefinedSize Next objDataSource.Open objRs.PageSize = Val(txtPagesize) objRs.AbsolutePage = intPage For intrecord = 1 To objRs.PageSize objDataSource.AddNew objDataSource!用户名 = objRs!用户名 objDataSource!口令 = objRs!口令 objRs.MoveNext If objRs.EOF Then Exit For Next Set DataGrid1.DataSource = objDataSource txtPageMsg = intPage & "/"& objRs.PageCount End Sub这其中还有一个小插曲,就是刚写完例子的时候发现每一页上显示的记录都是某一条记录的重复,后来经过仔细回想整个过程的原理,终于想到了可能是在将记录写到datagrid控件中的时候没有让记录集向下一位移动,然后查看了下代码,一看果然如此,objRs.MoveNext这条代码没有写上。经过这么个小插曲,觉得先理解整个小程序的运作原理很重要,至少不会当出现错误的时候就和没头苍蝇一样重头到尾的查看代码哪里出错了。当然现在是有例子可以对比是哪里出错了,如果到时候自己做的时候没有对照,一旦出错,估计工作量就大了。
这个小例子中还用了一个datagrid控件,这个控件就是这个例子的关键,更关键的就是这个控件不能够将记录集中的数据直接连接给它,必须借助另一个中间记录集来传递,原因就是这个控件不能够智能选择,只要和记录集数据连接上就能够自动获得记录集中的数据,并且是全部数据不能够智能选择和分配。
体会比较少,总结的也不多,贵在点滴积累,冰冻三尺非一日之寒。
相关文章推荐
- 好几条记录只是仓位及数量不同,其它内容都一样,现在要显示出一条来,仓位及数量用"/"分开
- Redmined的历史记录显示 "Updated by {{author}} {{age}} ago"
- 分页显示,重复记录
- iOS企业发布问题记录一(为什么iOS的应用安装到一半时提示"无法下载应用程序"?)
- 分页显示Oracle数据库记录的类之一
- vs2010 "行号显示"设置(vs简单使用)
- HTML中显示特殊字符,如尖括号 “<”,">"等等
- oracle数据中报错"记录被另一个用户锁住"
- HTML中input type="text"和type="password" 显示的长度不一样
- vs2010 "行号显示"设置(vs简单使用)
- 文章,记录按内容分页显示,根据文章内容按字数进行分页(转)
- windows下将磁盘脱机,并在"我的电脑"下显示
- 可执行程序无法在Linux上运行,显示line 1: syntax error: word unexpected (expecting ")" )
- oracle 中文字段查询后结果集标题显示为"???"
- 文章,记录按内容分页显示,根据文章内容按字数进行分页
- 用Powerpoint打开ppt文件出现提示:"PowerPoint无法显示文件中某些幻灯片中的文字、图像或对象,“xx.ppt”解决办法
- 让DataGridView控件里的记录分页显示。
- 关于"Shipping Transactions Form"查询界面中没有显示Additional tab的问题
- GridView数据绑定时数据源为空时显示表头和"没有记录"
- 今天换了新的办公室 (+1) + CSDN上博客照片全显示为“图片审核中" (-1) = 0