(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)