(System.Reflection.Assembly/LoadWithPartialName "System.Data")
(System.Reflection.Assembly/LoadWithPartialName "Oracle.DataAccess")
 
(import '(Oracle.DataAccess.Client OracleConnection))
(import '(Oracle.DataAccess.Client OracleCommand))
(import '(Oracle.DataAccess.Client OracleDataReader))

(def conStr "Data Source=ORCL;User ID=scott;Password=tiger")
(def sqlStr "SELECT 'Hello, ODP.NET World!' AS Message FROM DUAL")
(def con (OracleConnection. conStr))
(def cmd (OracleCommand. sqlStr con))
(.Open con)
(def reader (.ExecuteReader cmd))
(if (.Read reader)
    (do
        (System.Console/WriteLine (.GetName reader 0))
        (System.Console/WriteLine "---------------------")
        (System.Console/WriteLine (.GetValue reader 0))
    )
)
(.Close reader)
(.Close con)