数据在窗体中的翻页
来源:互联网 发布:焊接仿真软件对比 编辑:程序博客网 时间:2024/05/20 06:26
用mshflexgrid控件实现数据库翻页
========================
打开vb6.0
在窗体中加入2个command控件,1个mshflexgrid控件
代码:
-----------------------------
Dim intpage As Integer
Private Sub Command1_Click()
intpage = intpage - 1
page intpage
End Sub
Private Sub Command2_Click()
intpage = intpage + 1
page intpage
End Sub
Sub page(intpagecount As Integer)
On Error Resume Next
Dim cn As New ADODB.Connection
Dim cm As New ADODB.Command
Dim rs As New ADODB.Recordset
MSHFlexGrid1.Clear
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "Students.mdb"
cn.Open
cm.ActiveConnection = cn
rs.CursorLocation = adUseClient
rs.Open "select * from 新生入学信息表 ", cn, adOpenDynamic, adLockBatchOptimistic
rs.PageSize = 10
If intpagecount > rs.PageCount Then
intpagecount = rs.PageCount
End If
If intpagecount < 1 Then
intpagecount = 1
End If
rs.AbsolutePage = intpagecount
'MsgBox rs.Fields.Count
With MSHFlexGrid1
.Cols = rs.Fields.Count
.Rows = 10
For i = 0 To 9
For j = 0 To rs.Fields.Count - 1
.TextMatrix(i, j) = rs.Fields(j)
Next
rs.MoveNext
Next
End With
End Sub
Private Sub Form_Load()
Command2.Caption = "下一页"
Command1.Caption = "上一页"
page 1
End Sub
作者主页:http://risk.y365.com
- 数据在窗体中的翻页
- 数据在窗体中的翻页
- 在两个不同的Form窗体中的DataGridView数据“传递”
- QT数据库中的数据在窗体中显示
- vb读取excel中的数据并在窗体上显示
- xml数据岛用在页面中实现翻页
- 在数据窗口的文本框中使用滚轮上下翻页~~
- ASP.NET如何在窗体和窗体之间传送数据
- 如何在窗体和窗体之间传送数据
- ASP.NET如何在窗体和窗体之间传送数据
- 如何实现在窗体和窗体之间进行传递数据
- ASP.NET如何在窗体和窗体之间传送数据
- ASP.NET如何在窗体和窗体之间传送数据
- 在一个窗体中调用另一个窗体的数据
- 子窗体在父窗体中的展开方式
- Windows 窗体应用程序中的数据绑定
- Windows 窗体中的简单数据访问
- 验证 Windows 窗体 DataGridView 控件中的数据
- 键盘幽灵VB版
- Jsp中调用Oracle存储过程
- 怎样在VB中设计背景动画图案
- 不用JDBC:ODBC bridge直接操作Access 数据库
- 使用VB在WIN2000下截获IP数据包
- 数据在窗体中的翻页
- java数据库的实现
- Java、XML与数据库编程实践(二)
- 如何在ado中使用connection 对象?
- 克服J2ME开发中的困难之硬件设备
- 有用的GetForegroundWindow
- 使用 JSP 技术和 JDBC 技术访问基于 Web 的动态数据
- 用J2ME在移动设备上实现动画
- 用MCI命令做一个播放器