(import
    (rnrs)
    (ironscheme clr)
)
 
(clr-reference System)
(clr-reference System.Data)
(clr-reference MySql.Data)
 
(clr-using System)
(clr-using MySql.Data.MySqlClient)
 
(begin
    (define conStr "server=localhost;user id=root;password=P@ssW0rd")
    (define sqlStr "SELECT 'Hello, Connector/NET World!' AS Message")
    (define con (clr-new MySqlConnection conStr))
    (define cmd (clr-new MySqlCommand sqlStr con))
    (clr-call MySqlConnection Open con)
    (define reader (clr-call MySqlCommand ExecuteReader cmd))
    (if (clr-call MySqlDataReader Read reader)
        (begin
            (clr-static-call System.Console WriteLine (clr-call MySqlDataReader GetName reader 0))
            (clr-static-call System.Console WriteLine "---------------------")
            (clr-static-call System.Console WriteLine (clr-call MySqlDataReader GetValue reader 0))
        )
    )
    (clr-call MySqlDataReader Close reader)
    (clr-call MySqlConnection Close con)
)