vb中怎么实现数据库的上一条和下一条，代码是什么？

实现点击BindingNavigatorMoveNextItem1_Click控件后，使本form中的数据表移动，如移到第一条，最后一条 ，后移一条，前移一条，代码应怎么写？

10 个解决方案

#1

引用楼主 a1003671336 的回复:

实现点击BindingNavigatorMoveNextItem1_Click控件后，使本form中的数据表移动，如移到第一条，最后一条 ，后移一条，前移一条，代码应怎么写？

你指的移动是指光标移动还是光标不动 数据行移动?

#2

dataControl1.DataSource.MoveNext

#3

dataControl1.DataSource.MOVEFIRST
dataControl1.DataSource.MovePrevious
dataControl1.DataSource.MoveNext
dataControl1.DataSource.MOVELAST

#4

说dataControl1未声明？？？？？？？？

#5

可以借用adodc控件

#6

adodc是什么？怎么用？

#7

本帖最后由 bcrun 于 2010-12-15 08:51:40 编辑

adodc是一个数据访问控件,可以DataGrid绑定在一起使用.除了使用adodc外还可以使用ado来访问数据库.下边是我写的一个简单的测试例子,供参考.

Private m_rs                As ADODB.Recordset
Private m_cn                As ADODB.Connection
Private m_Cmd               As ADODB.Command

Private Sub Command1_Click()
    On Error GoTo errhandle
        
    'SELECT * FROM TestParam
    m_Cmd.CommandText = Text1.Text
    Set m_rs = m_Cmd.Execute()
    
    Set DataGrid1.DataSource = m_rs
    DataGrid1.ClearFields
    DataGrid1.ReBind
    DataGrid1.Refresh
    
    Exit Sub
errhandle:
    MsgBox Err.Description & Err.Number
End Sub

Private Sub Form_Load()
    Set m_rs = New ADODB.Recordset
    Set m_cn = New ADODB.Connection
    Set m_Cmd = New ADODB.Command
    m_cn.ConnectionString = Adodc1.ConnectionString
    m_cn.CursorLocation = adUseClient
    m_cn.Open
    Set m_Cmd.ActiveConnection = m_cn
End Sub

Private Sub Form_Resize()
    DataGrid1.Move 0, 0, Me.Width, Me.Height
End Sub

#8

引用 2 楼 caozhy 的回复:

dataControl1.DataSource.MoveNext

移动记录3楼正解

#9

但是他说dataControl1未声明？？？？？？？？

#10

引用 9 楼 a1003671336 的回复:

但是他说dataControl1未声明？？？？？？？？

那你先要抓一个adodc放入窗体，命名为dataControl1