例)ボタンを押すと、リストビューに抽出されたデータが表示される
Public Sub ExtractData(ByVal ScoreMin As Integer, ByVal ScoreMax As Integer, List As Control)
Dim SQL As String
SQL = "select * from スコアテーブル where スコア between " & CStr(ScoreMin) & " and " & CStr(ScoreMax)
With CurrentDb.OpenRecordset(SQL, dbOpenForwardOnly)
Do Until .EOF
CallByName Me, "OnData", VbMethod, !名前, !スコア, List
.MoveNext
Loop
.Close
End With
End Sub
Private Sub Exec_Click()
ScoreList.ListItems.Clear
ExtractData 80, 95, ScoreList
End Sub
Public Sub OnData(ByVal Name As String, ByVal Score As Long, List As Control)
With List.ListItems.Add(, , Name)
.SubItems(1) = CStr(Score)
End With
End Sub