(import
    (rnrs)
    (ironscheme clr)
)
 
(clr-reference System)
(clr-reference System.Data)
(clr-reference Oracle.DataAccess)
 
(clr-using System)
(clr-using Oracle.DataAccess.Client)
 
(begin
    (define conStr "Data Source=ORCL;User ID=scott;Password=tiger;")
    (define sqlStr "SELECT 'Hello, ODP.NET World!' AS Message FROM DUAL")
    (define con (clr-new OracleConnection conStr))
    (define cmd (clr-new OracleCommand sqlStr con))
    (clr-call OracleConnection Open con)
    (define reader (clr-call OracleCommand ExecuteReader cmd))
    (if (clr-call OracleDataReader Read reader)
        (begin
            (clr-static-call System.Console WriteLine (clr-call OracleDataReader GetName reader 0))
            (clr-static-call System.Console WriteLine "---------------------")
            (clr-static-call System.Console WriteLine (clr-call OracleDataReader GetValue reader 0))
        )
    )
    (clr-call OracleDataReader Close reader)
    (clr-call OracleConnection Close con)
)