MaxRecords Sample

Updated 1997/08/05

By 富士通ＳＳＬ）福岡寿和

Private Sub cmdOpen_Click(index As Integer)
    On Error GoTo errOpen:
    MousePointer = vbHourglass
    Select Case index
    Case 0      'MaxRecords
        Set mdbsDAO(index) = DBEngine.Workspaces(0).OpenDatabase(pcMDB, False, False)
        Set mqdfDAO = mdbsDAO(index).CreateQueryDef("", "SELECT * FROM VbFaqPcdn")
        mqdfDAO.MaxRecords = 20
        Set mrdynDAO(index) = mqdfDAO.OpenRecordset()
    Case 1      'TOP
        Set mdbsDAO(index) = DBEngine.Workspaces(0).OpenDatabase(pcMDB, False, False)
        Set mrdynDAO(index) = mdbsDAO(index).OpenRecordset("SELECT TOP 20 * FROM VbFaqPcdn")
    End Select
exitOpen:
    On Error Resume Next
    MousePointer = vbDefault
    Exit Sub
    
errOpen:
    MsgBox Error$, vbOKOnly + vbCritical, App.Title
    Resume exitOpen:
    Resume Next
End Sub

図6　MaxRecords