excel-vab-access上一条下一条数据显示

在Sheet3代码里面放入

Dim Cnn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim arr, brr

Sub Openfile()

'Set Cnn = CreateObject("ADODB.Connection")

stPath = ThisWorkbook.Path & Application.PathSeparator & "人力资源管理系统.mdb"

Cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & stPath & ";Jet OLEDB:Database Password=" & "access"

  sql = "select 订单编号, 客户, 时间 from 客户基本信息"

'Set rs = New ADODB.Recordset

rs.Open sql, Cnn, adOpenKeyset, adLockOptimistic

arr = rs

brr = rs

End Sub

Private Sub Worksheet_Activate()

Call Sheet3.Openfile

End Sub

Sub Thenext()

'

Range("g3") = rs.Fields(0).Value

[G4] = rs.Fields(1).Value

rs.MoveNext '这就是下一条

End Sub

Sub Theprevious()

Range("g3") = rs.Fields(0).Value

[G4] = rs.Fields(1).Value

rs.MovePrevious '这就是上一条

End Sub

在ThisWorkbook代码里面放入

Private Sub Workbook_Open()

Call Sheet3.Openfile

End Sub

效果图