1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

Sub Game_GetScoreInformation(gameUID As Long, gameRec As gameRecord)
 
    Dim rs As New ADODB.Recordset
    Dim s As String
    Dim i As Integer
 
    s = "select "
    For i = 1 To 10
        s = s + "visitorscore" + Format(i) + ", "
    Next i
    For i = 1 To 10
        s = s + "homescore" + Format(i) + ", "
    Next i
    s = s + "entrymode from games where gameuid = " + Format(gameUID)
    rs.Open s, dbConnection, adOpenForwardOnly, , adCmdText
 
    If Not rs.EOF Then
        rs.MoveFirst
        For i = 1 To 10
            gameRec.visitorScore(i) = StrCopy(rs(i - 1))
        Next i
        For i = 1 To 10
            gameRec.homeScore(i) = StrCopy(rs(i + 9))
        Next i
        gameRec.entryMode = rs(20)
    End If
 
    rs.Close
    Set rs = Nothing
 
End Sub