クエリオブジェクト
'NameList 抽出
strSQLCOMM = "SELECT IPL, CrewName, Unten, ActiveAvail, Note_CREW" & Chr(10) & _
"FROM " & "CREW_DAT" & Chr(10) & _
"WHERE ((bNickName)='" & myTargetCrew & "')" & Chr(10) & _
"ORDER BY Syozoku, RowID;"
boolFlag = funct_mdbSQL_Create(myMDB_FullName, "SCH_Notes2", strSQLCOMM)
Set myDB = OpenDatabase(myMDB_FullName)
'情報
Set myRECORD = myDB.OpenRecordset("SCH_Notes2")
With myRECORD
If .RecordCount > 0 Then
.MoveFirst
myInfo(0) = myRECORD(0).Value
myInfo(1) = myRECORD(1).Value
myInfo(2) = myRECORD(2).Value
myInfo(3) = myRECORD(3).Value
myInfo(4) = myRECORD(4).Value
End If
End With
Set myRECORD = Nothing
myDB.Close
Set myDB = Nothing