立即结:在VB.NET中怎样实现像vb6中的MOVEFIRST，MOVELAST，MOVENEXT，MOVEPRE。。。。在等等。

kqh0319 2004-11-20 09:47:25

在VB.NET中怎样实现像vb6中的MOVEFIRST，MOVELAST，MOVENEXT，MOVEPRE。。。。在等等。

...全文

184 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

kqh0319 2004-11-20

打赏
举报

回复

自己搞定了，分给你吧。。。。。。。。。。。。。

水如烟 2004-11-20

打赏
举报

回复

请参考CurrencyManager

kqh0319 2004-11-20

打赏
举报

回复

自己顶....

极力推荐这本国人写的关于VB.NET 与ADO.NET 数据库编程的好书.理由如下: 1.不是那种几百页尽是讲这个模型那个原理的论文型书藉,而是从SQL简单语法开始,一步步地教你"使用"VB.NET 和ADO.NET 写个工具的书籍,简明,易懂,书中使用的案例界面保持简洁,讲解生动,很容易跟得上进度; 2.让俺很感激作者的地方之一就是先教你用DAO 编一个小数据库程序,让你很轻松学会如何写MoveFirst，MoveNext，MovePrevious，MoveLast，Insert等功能函数,并且在插入新记当之前如何判断记录是否已存在并作相应处理.很多书籍缺少这一块. 3.很轻松掌握如何从系统数据库查询用户库和表,并生成象ACCESS 那样的数据库浏览界面,重要的是,这一切做来十分轻松,而且是通过写一个CDatabase类来解决,恰到好处地运用了OOP 的理念; 4.桌面型数据库程序和WEB(网店)数据库程序都有包括.全!!! 5.虽然有很多好书写ADO.NET,但基本都是英文的.而这本书是中文的!!! 6.特别说明一下,这本书应是基于ANO.NET1.0-2.0的,虽然我认为这本书的内容已足够让你学会自如使用ADO.NET,如果你觉得你应该看.NET3.5,我已经告诉你了.

vb精彩编程200例Attribute VB_Name = "form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim TIM As Integer Dim mydb As Database Dim myrs As Recordset Dim sql As String Private Sub Form_Activate() Set mydb = Workspaces(0).OpenDatabase(App.Path & "\kfgl.mdb") '打开数据库 sql = "select 操作员 from qxsz" Set myrs = mydb.OpenRecordset(sql) If myrs.EOF = False Then myrs.MoveLast If myrs.BOF = False Then myrs.MoveFirst For i = 0 To myrs.RecordCount - 1 master.AddItem (myrs.Fields(0)) myrs.MoveNext Next i If master.ListCount > 0 Then master.ListIndex = 0 myrs.Close mydb.Close master.SetFocus End Sub

VB 使用DAO对象浏览数据库　　rs.MoveFirst '移动记录指针　　Command1.Enabled = False '使第一条和上一条按钮不可用　　Command2.Enabled = False 　　Command3.Enabled = True 　　Command4.Enabled = True 　　refreshdb rs '调用自定义方法刷新　　End Sub 　　Private Sub Command2_Click() 　　If rs.BOF Then'判断是否到了第一条记录之前　　 Command1.Enabled = False'使第一条和上一条按钮不可用　　 Command2.Enabled = False 　　Else 　　 rs.MovePrevious 　　End If 　　Command3.Enabled = True 　　Command4.Enabled = True 　　refreshdb rs 　　End Sub 　　Private Sub Command3_Click() 　　Command1.Enabled = True 　　Command2.Enabled = True 　　If rs.EOF Then'判断是否到了最后一条记录之后　　 Command3.Enabled = False'使下一条和最后一条按钮不可用　　 Command4.Enabled = False 　　Else 　　 rs.MoveNext 　　End If 　　refreshdb rs 　　End Sub 　　Private Sub Command4_Click() 　　rs.MoveLast 　　Command1.Enabled = True 　　Command2.Enabled = True 　　Command3.Enabled = False '使下一条和最后一条按钮不可用　　Command4.Enabled = False 　　refreshdb rs 　　End Sub 　　Private Sub Command5_Click() 　　End 　　End Sub 　　Private Sub refreshdb(rst As Recordset)'自定义刷新方法　　Dim i As Integer 　　If rst.EOF Or rst.BOF Then 　　 Exit Sub 　　End If 　　For i = 0 To 4 　　 If IsNull(rst.Fields(i)) Then '判断是否有空值　　 Text1(i).Text = "" 　　 Else 　　 Text1(i).Text = rst.Fields(i).Value '为控件数组赋值　　 End If 　　Next i 　　End Sub

含全套代码+数据库文件 mdb private sub txtoldpassword lostfocus if oldpassword <> txtoldpassword text then msgbox "密码不正确 " "密码错误" txtoldpassword setfocus end if end sub private sub form unload cancel as integer set mclsmidtier nothing lusersrs close userrs close set lusersrs nothing set userrs nothing end sub private sub startpos cmdadduser enabled true cmddeleteuser enabled true lstusers tabindex 0 txtusername tabindex 1 txtpassword tabindex 2 txtreenter tabindex 3 txtoldpassword tabindex 4 cmdadduser tabindex 6 cmddeleteuser tabindex 7 cmdchangepassword tabindex 8 lblpassword top 600 txtpassword top 600 lblreenter top 960 txtreenter top 960 lbloldpassword top 1320 txtoldpassword 1320 lblnewpassword top 1680 lstusers enabled true txtusername enabled true lblpassword visible true txtpassword visible true lblnewpassword visible false lblreenter visible false txtreenter visible false lbloldpassword visible false txtoldpassword visible false end sub private sub changepos cmdadduser enabled false cmddeleteuser enabled false lblpassword visible false txtpassword visible true txtpassword top 960 lblnewpassword top 960 lblreenter top 1320 txtreenter top 1320 lbloldpassword top 600 txtoldpassword top 600 txtoldpassword tabindex 1 txtpassword tabindex 2 txtreenter tabindex 3 lstusers enabled false txtusername enabled false lblnewpassword visible true lblreenter visible true txtreenter visible true lbloldpassword visible true txtoldpassword visible true end sub private const margin size 60 " in twips " variables for data binding private datprimaryrs as adodb recordset " variables for enabling column sort private m isortcol as integ

VERSION 5.00 Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX" Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX" Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX" Begin VB.Form main_jbxx_kh BackColor = &H00C0C0C0;& BorderStyle = 1 'Fixed Single Caption = "基本信息管理-【客户信息管理】" ClientHeight = 6165 ClientLeft = 1515 ClientTop = 2385 ClientWidth = 9195 Icon = "main_jbxx_kh.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 6165 ScaleWidth = 9195 StartUpPosition = 1 '所有者中心 Begin VB.Frame Frame3 Caption = "Frame6" Height = 690 Left = -1545 TabIndex = 11 Top = 2115 Visible = 0 'False Width = 2820 Begin MSAdodcLib.Adodc Adodc1 Height = 330 Left = 930 Top = 225 Width = 1590 _ExtentX = 2805 _ExtentY = 582 ConnectMode = 0 CursorLocation = 3 IsolationLevel = -1 ConnectionTimeout= 15 CommandTimeout = 30 CursorType = 3 LockType = 3 CommandType = 1 CursorOptions = 0 CacheSize = 50 MaxRecords = 0 BOFAction = 0 EOFAction = 0 ConnectStringType= 1 Appearance = 1 BackColor = -2147483643 ForeColor = -2147483640 Orientation = 0 Enabled = -1 Connect = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=XSGL" OLEDBString = "Provider=MSDASQL.1;Persist Security Info=Fals

16,555

社区成员

110,528

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章