当前位置：文档之家 › MoveFirst、MoveLast、MoveNext 和 MovePrevious 方法范例

MoveFirst、MoveLast、MoveNext 和 MovePrevious 方法范例

  • 格式：doc
  • 大小：32.00 KB
  • 文档页数：2

MoveFirst、MoveLast、MoveNext 和 MovePrevious 方法范例
该范例使用 MoveFirst、MoveLast、MoveNext 以及 MovePrevious 方法，按照
所提供的命令移动 Recordset 的记录指针。运行该过程需要 MoveAny 过程。

Public Sub MoveFirstX()
Dim rstAuthors As ADODB.Recordset
Dim strCnn As String
Dim strMessage As String
Dim intCommand As Integer

' 打开 Authors 表的记录集。
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
Set rstAuthors = New ADODB.Recordset
rstAuthors.CursorType = adOpenStatic
' 使用客户端游标激活 AbsolutePosition 属性。
rstAuthors.CursorLocation = adUseClient
rstAuthors.Open "authors", strCnn, , , adCmdTable

' 显示当前记录信息并获得用户的方法选择。
Do While True

strMessage = "Name: " & rstAuthors!au_fName & " " & _
rstAuthors!au_lName & vbCr & "Record " & _
rstAuthors.AbsolutePosition & " of " & _
rstAuthors.RecordCount & vbCr & vbCr & _
"[1 - MoveFirst, 2 - MoveLast, " & vbCr & _
"3 - MoveNext, 4 - MovePrevious]"
intCommand = Val(Left(InputBox(strMessage), 1))
If intCommand < 1 Or intCommand > 4 Then Exit Do

' 根据用户输入调用方法。
MoveAny intCommand, rstAuthors
Loop
rstAuthors.Close

End Sub
Public Sub MoveAny(intChoice As Integer, _
rstTemp As Recordset)
' 使用指定方法捕获 BOF 和 EOF。
Select Case intChoice
Case 1
rstTemp.MoveFirst
Case 2
rstTemp.MoveLast
Case 3
rstTemp.MoveNext
If rstTemp.EOF Then
MsgBox "Already at end of recordset!"
rstTemp.MoveLast
End If
Case 4
rstTemp.MovePrevious
If rstTemp.BOF Then
MsgBox "Already at beginning of recordset!"
rstTemp.MoveFirst
End If
End Select

End Sub

合集下载

1 BindingNavigator数据

1 BindingNavigator数据

bindingNavigator中有显示上一条下一条的按钮，想要用一个BUTTON来代替这样的效果，应该如何实现呢？我来帮他解答满意回答2008-12-27 17:24比如：bindingNavigator1.BindingSource=BindingSource1；bindingNavigator中的按钮事件private void toolStripButton1_Click(object sender, EventArgs e){try{this.BindingSource1.MoveFirst //第一条//this.BindingSource1.MoveLast //最后一条//this.BindingSource1.MoveNext //下一条//this.BindingSource1.MovePrevious;//上一条}catch (Exception E){MessageBox.Show("错误:" + E.Message);}}座右铭：谁遇到缺德事不立即感到厌恶，遇到美事不立即感到喜悦，谁就没有道德感，这样的人就没有良心。

谁做了缺德事而只害怕被判刑，不由于自己行为不轨而责备自己，而是由于想到痛苦的后果才胆战心惊，这种人也没有良心，而只有良心的表面罢了。

但是，谁能够意识到行为本身的缺德程度，而不考虑后果如何，却是有良心的。

——康德bindingnavigator如何与datagridview绑定2011年9月6日联系商易上海电子商务网站建设，了解更多1: BindingSource bs = new BindingSource（）;2: bs.DataSource = dateTabel1;3: bindingNavigator1.BindingSource = bs; 4: dataGridView1.DataSource = bs ;========BindingNavigator：BindingNavigator控件一般要与BindingSource 控件一同应用较为便利，因为对于BindingNavigator 控件上的每个按钮，都有一个对应的 BindingSource 组件成员，其以编程体式格式容许有雷同功能。

使用ADO操作数据库

使用ADO操作数据库

Private Sub Form_Load() Adodc1.CursorLocation = adUseClient Adodc1.CursorType = adOpenStatic Adodc1.LockType = adLockBatchOptimistic mandType = adCmdTable Adodc1.RecordSource = "s5" Set DataGrid1.DataSource = Adodc1 End Sub
2、ConnectionString属性的参数：
参数 Provider File Name Remote Provider 说明 指定用于连接的数据源的名称 指定基于数据源的文件名称 指定打开一个客户端连接时使用的数据源 的名称（仅限于远程数据服务） 指定打开一个客户端连接时使用的服务器 的路径和名称（仅限于远程数据服务）
DataGrid控件（数据网格：ActiveX控件，用于输入大批 量的数据，可同时修改或浏览多条记录 DataGrid 属性 RecordSouces设置为该ADO Data控件
DataGride控件可手工设置显示字段及其顺序、 格式、颜色等，还可以对显示字段重新命名 （显示）
10.2.3 用语句设置控件属性
1、选定每个 TextBox 控件，并在其“属性”窗口中将 “DataSouce”属性设置为该 ADO Data 控件。 2、将“DataField”属性设置为在该数据库中想要察看或修改的 字段的名称。
ADO Data控件： 移动记录(单击箭头）， 修改记录（Locked=False 自动保存 增加新记录（EofActive)
End Sub
删除数据：
Private Sub Command3_Click() Adodc1.Recordset.ActiveConnection.Execute = "exec s5_delete '" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "'" 'Adodc1.RecordSource = "exec s5_delete '" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "'" Adodc1.Refresh End Sub
数据库在Access中创建VBA模块 08

数据库在Access中创建VBA模块 08


8.2 数据库对象
DBEngine Errors Workspaces Error Workspace Databases Database Containers Container Documents QueryDefs QueryDef Fields Parameters Recordsets Recordsets Fields Relations Relation Fields TableDefs TableDef Fields Indexes Groups Group Users Users User Groups Group User Field Index Fields Field Field Field Field Parameter Document
Static 变量名 [As 类型] Static Sub 过程名[(参数列表)] Static Function([参数列表]) [As 类型]
过程的作用域
在VBA中，过程的作用域分为：模块级和全局级。模块级过程 VBA中，过程的作用域分为：模块级和全局级。模块级过程 是在定义过程时，在Sub或Function过程前加Private，它只能被本模 是在定义过程时，在Sub或Function过程前加Private，它只能被本模 块中定义的过程调用；在窗体或标准模块中定义的过程，被默认是全 局的，也可加Public进行显示说明，它能被应用程序中的所有模块中 局的，也可加Public进行显示说明，它能被应用程序中的所有模块中 的过程调用。
Dim MyDB As Database Set MyDB = OpenDatabase(“c:\Sample\Students.mdb”) OpenDatabase(“c:\Sample\
2、操作DAO对象 、操作DAO对象
ADO对象操作Access数据库关键技术

ADO对象操作Access数据库关键技术

ADO对象操作Access数据库关键技术ADO对象操作Access数据库关键技术ADO（ActiveX Data Object）是目前Microsoft通用的数据访问技术。

ADO编程模型定义一组对象，用于访问和更新数据源，它提供了一系列方法完成以下任务：连接数据源、查询记录、添加记录、更新记录、删除记录、检查建立连接或执行命令时可能产生的错误。

一、ADO对象ADO是基于组件的数据库访问接口，可以来自多种数据提供者的数据进行读取和写入操作。

ADO的3个成员对象：（1）Connection对象（连接对象）:建立应用程序与数据源的连接。

（2）Command对象（操作命令对象）：在创建数据连接的基础上，利用Command 对象可以实现对数据源的查询、插入、删除、编辑修改及更新操作。

（3）Recordset对象（记录集对象）：执行数据访问或SQL命令得到动态记录集，它被缓存在内存中。

ADO的3个集合对象：（1）Errors集合对象。

它依赖于Connection对象的使用。

（2）Parameters集合对象。

它依赖于Command对象的使用。

（3）Fields集合对象。

它依赖于Recordset对象的使用。

1、Connection对象该对象用来实现应用程序与数据源的连接。

只有连接成功后，Command对象和Recordset对象才能访问某个数据库。

2、Command对象该对象主要作用是在VBA中用SQL语句访问、查询数据库中的数据，可以完成Recordset对象不能完成的操作，如创建表、修改表结构、删除表、将查询结果保存为新表等。

3、Recordset对象Recordset对象的功能最常用、最重要，它可以访问表和查询对象，返回的记录存储在Recordset对象中。

通过该对象可以浏览记录、修改记录、添加新记录或者删除特定记录。

二、在Access中引用ADO对象在Access的模块设计时要想使用ADO对象，首先应该增加一个对ADO库的引用。