这个例子比较简单,简单不也是只它里面的知识简单,而是代码相对来说少了很多!
使用数据绑定访问数据,我理解的就是用一种工具把数据源和控件连接!这个工具可以看成是代码的集成,它提供了接口和代码部分!
这个神奇的控件就是ADO Data 控件
实例4—— 分页显示记录
实例4相比于实例3来说就“麻烦”了!实例4也用了一款控件——Data Grid
实例4我也是一次性点亮,照着书来,就基本差不多了!要说总结一下实例4的什么东西,我还真是没有什么好写的,因为都看不太懂!那就来点干货(代码)吧!等以后有新发现再补上!
下面同样有建立与数据库的连接!Public Sub showdata(ByVal intpage As Integer)
'实现分页显示记录功能
Dim intpagecount As Integer, intrecord As Integer
Dim objdatasource As New Recordset
'创建一个局部Recordset对象保存objrs当前记录页的数据
For intrecord = 0 To objrs.Fields.Count - 1
objdatasource.Fields.Append objrs.Fields(intrecord).Name, adVarChar, _
objrs.Fields(intrecord).DefinedSize
Next
objdatasource.Open '打开局部Record对象
objrs.PageSize = Val(txtpagesize) '重新设置objrs每页显示的记录条数
objrs.AbsolutePage = intpage '重新设置objrs当前记录页
For intrecord = 1 To objrs.PageSize '将当前记录页中数据写入objdatasource
objdatasource.AddNew
objdatasource!用户名 = objrs!用户名
objdatasource!口令 = objrs!口令
objdatasource!身份 = objrs!身份
objrs.MoveNext
If objrs.EOF Then Exit For
Next
Set DataGrid1.DataSource = objdatasource '设置为数据网格的数据源
txtpagemsg = intpage & "/" & objrs.PageCount '刷新当前记录页信息
End Sub
现在感觉,遇到问题真的很好!可以具体定位去学习!Private Sub Form_Load()
Dim strSQL As String, strcn As String
txtpagesize = "5" '这只记录页大小和当前记录也的才初始值
intpage = 1
'建立数据库连接
strcn = "provider=microsoft.Jet.OLEDB.4.0;Persist Security Info =false;" & _
"Data source=" & App.Path & "\红皮书实例1.mdb"
objcn.ConnectionString = strcn
objcn.Open
With objrs '创建客户端的记录集
.CursorLocation = adUseClient '指定使用客户端光标
.CursorType = adOpenStatic '指定使用静态光标
.Open "系统用户", objcn, adOpenStatic, adLockReadOnly
End With
showdata (intpage) '显示当前记录页数据
End Sub