OracleDataReaderでデータの取得例

Imports Oracle.DataAccess.Client
...

Dim sql as String = ...        'SQL文定義

...

Dim oracleCommand As OracleCommand = ...
oracleCommand.CommandType = CommandType.Text
oracleCommand.CommandText = sql

'パラメータ設定
...

'クエリを発行
Dim dataReader As OracleDataReader = oracleCommand.ExecuteReader()    
If (dataReader.HasRows) Then        'データが存在するかを判断
    While (dataReader.Read())        '次の行を読み込み
        Dim name As String = dataReader("NAME")    '該当行の指定する項目を取得
        Console.WriteLine(name)
    End While
End If

While reader.Read()        '次の行を読み込み
    For i = 0 To dataReader.FieldCount - 1
        Console.WriteLine(dataReader(i))    '行のすべての項目を取得
    Next i
End While