Sub ReadDataBase
Dim Row As Int
Dim Cursor1 As Cursor
Dim ConnectionName As String
Dim IPAddress As String
Dim Port As String
Cursor1 = SQL1.ExecQuery("SELECT ConnectionName,IPAddress,Port FROM ConnectionProfile")
If Cursor1.RowCount > 0 Then
RowNumber = Cursor1.RowCount 'here i have 5 records
For Row = 0 To RowNumber - 1
Cursor1.Position = Row
ConnectionName = Cursor1.GetString("ConnectionName")
IPAddress = Cursor1.GetString("IPAddress")
Port = Cursor1.GetString("Port")
Dim lbl As Label
lbl.Initialize("")
lbl.Text = ConnectionName & " - " & IPAddress & ":" & Port
ScrollView1.Panel.AddView(lbl,0,50dip*(Row-1),120dip,50dip)
Next
End If
Cursor1.Close
End Sub