Public Sub ReadMyData(ByVal myConnString As String)
Dim db2Connection As New DB2Connection(myConnString)
Dim db2Command As DB2Command = db2Connection.CreateCommand()
db2Command.CommandText = "SELECT DeptNo, DName, Loc FROM Dept"
db2Connection.Open()
Dim db2Reader As DB2DataReader = db2Command.ExecuteReader()
Try
' Always call Read before accessing data.
While db2Reader.Read()
Console.WriteLine(String.Concat(db2Reader.GetInt32(0).ToString(), " ", _
db2Reader.GetString(1), " ", db2Reader.GetString(2)))
End While
Finally
' always call Close when done reading.
db2Reader.Close()
' Close the connection when done with it.
db2Connection.Close()
End Try
End Sub