Visual Basic

MyCmd.Connection = con<br />
        MyCmd.CommandType = CommandType.Text<br />
        MyCmd.CommandText = "SELECT SectionID FROM([Section]) WHERE (CourseID = '" & ComboBox96.Text & "')"<br />
        MyReader = MyCmd.ExecuteReader<br />
        Do While MyReader.Read<br />
            ComboBox97.Items.Add(MyReader.GetString("0"))<br />
        Loop<br />
<br />
        MyReader.Close()

g1 = ComboBox95.Text<br />
       Dim MyCmd As New OleDbCommand<br />
       Dim MyReader As OleDbDataReader<br />
       con.Open()<br />
       MyCmd.Connection = con<br />
       MyCmd.CommandType = CommandType.Text<br />
       MyCmd.CommandText = "select DISTINCT CourseID from Course  where  LevelNo=" & g1<br />
       MyReader = MyCmd.ExecuteReader<br />
       Do While MyReader.Read<br />
           ComboBox96.Items.Add(MyReader.GetString("0"))<br />
       Loop<br />
       MyReader.Close()<br />
       con.Close()

asha_s wrote:

MyReader.GetString("0"))

GetMaxValueInArray
    currentMaxValue = 0
    For element in the array
        If element(i) > currentMaxValue
            currentMaxValue = element(i)
        End If
    Next
    Return the currentMaxValue

outaleb wrote:

could you wrtite me an example to see how it could be?

<br />
For zahl = 0 To Intens_Array.GetUpperBound(0)<br />
            If Intens_Array(zahl) = 0 Then<br />
                Max = 0<br />
            Else<br />
                If Max < Intens_Array(zahl) Then<br />
                    Max = Intens_Array(zahl)<br />
                End If<br />
            End If<br />
        Next<br />