(def #sql_srv_address "stocksriddle.one")
(def #sql_srv_port 5388)

(defn exec-sql (sql)
(do
	(def r (tcp-client #sql_srv_address #sql_srv_port sql))
	(print r)
	(first (eval (parse r)))
))

(def sql "select distinct to_string(datetime, '%d.%m.%Y'),symbol,time,title from history_earnings_dates where datetime>=to_date('2022-03-02', '%Y-%m-%d') and datetime<=to_date('2022-03-19', '%Y-%m-%d')")
(print "*" sql "*")
(def row (exec-sql sql))
(print row)

(exit 1)