19 lines
464 B
Plaintext
19 lines
464 B
Plaintext
|
|
(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)
|
|
|