Hi, I tried to do something like this in jdbc and get an Exception:

(j/db-do-prepared (:user-db @g-config) ["select
case
when (select 1 from user_favorstocks where uid=1823 and stockid='600123.SH') is not null
then (select 8)
else (select 5)
end as tmp"])

what could be the reason?

@cmal, don't you need to prepare the statement first?

maybe not

The sql parameter can either be a SQL string or a PreparedStatement. in clojure.java.jdbc doc

and here is the test code:

(deftest test-do-prepared4
  (doseq [db (test-specs)]
    (create-test-table :fruit2 db)
    (sql/db-do-prepared db ["INSERT INTO fruit2 ( name, appearance, cost, grade ) VALUES ( ?, ?, ?, ? )" ["test" "test" 1 1.0] ["two" "two" 2 2.0]] {:multi? true})
    (is (= 2 (sql/query db ["SELECT * FROM fruit2"] {:result-set-fn count})))))

on https://searchcode.com/file/138699/src/test/clojure/clojure/java/test_jdbc.clj

maybe you're looking for execute!?

I've tried that seems not working.

SQLException Can not issue executeUpdate() or executeLargeUpdate() for SELECTs com.mysql.jdbc.SQLError.createSQLException (SQLError.java:957) if I change to execute!

btw, can I do an insert stmt in a then subclause?

ah you need query

execute! is only for "write"-y queries (INSERT, UPDATE, etc.)

I am just trying to select something from the table, and if found, check the value of some column ( and if satisfied some condition do update, otherwise nothing ), if not ,do insert. And return a value that tells me what has been done.

yes, but can I do an insert in a then subclause when using query?

you're shifting the goalposts

better to ask one thing at a time, not "everything I've always wanted to know about SQL"

😄

sorry for that.

query works!

you can't nest INSERT inside of a compound statement - you'll need to do multiple queries, or use a stored procedure I think

Thanks.

I tried to write a stored procedure but ERROR 1548 (HY000): Cannot load from mysql.proc. The table is probably corrupted happens. But it is not right to ask this here. It seems the mysql version is too old. some 5.1 version.

Is it possible to utilize java annotations from clojure?

@dominicm maybe this? https://github.com/clojurebook/ClojureProgramming/tree/master/ch09-annotations

@cmal perfect. Thanks. Completely missed that.

I want to use migratus in my dev environment. I also use environ to manage environments variables. How can I set a value in my project.clj by evaluating data from environ? working example:

clojure
:migratus {:store         :database
             :migration-dir "migrations"
             :db            ""}

clojure

:migratus {:store         :database
             :migration-dir "migrations"
             :db            ~(environ.core/env :db-url)}

@itaied :migratus {:store :database :db ~(get (System/getenv) "DATABASE_URL")}

@itaied the rule is simple: once lein sees a list form, it tries to evaluate it.

But using environ, my DB_URL is not in the System/getenv map

Can (let [...] (defn ...)) be problematic? (generally I'd never do that, but from time to time I need some dynamism e.g. defns emitted from macros)

I’m using stuartsierra component and can’t figure out how to fix this error anyhow. any hints would be much appreciated:

IllegalArgumentException No implementation of method: :stop of protocol: #'com.stuartsierra.component/Lifecycle found for class: nil  clojure.core/-cache-protocol-fn (core_deftype.clj:568)

(ns application.system
  (:require [application.web :refer [app]]
            [com.stuartsierra.component :as component]
            [org.httpkit.server :refer [run-server]]))

(defn- start-server [handler port]
  (run-server app {:port port})
  (println "Started server on localhost" port))

(defn- stop-server [server]
  (when server
    (server)))

(defrecord Application []
  component/Lifecycle
  (start [this]
    (assoc this :server (start-server #'app 9009)))
  (stop [this]
    (stop-server (:server this))
    (dissoc this :server)))

(defn create-system []
  (Application.))

(defn -main [& args]
  (.start (create-system)))

@bravilogy that error means one of your components returns nil instead of a valid component

(probably from a start method)

but it relates to this Application component right?

how would I know?

one of your components, when started, returns nil instead of a component

that's what causes that error

unless you call stop on the wrong object and it was not your component in the first place

😄 well this is my whole application, so .. it has to be here

somewhere

OK - nothing in that code is calling the stop method

who calls the stop method?

I don't know component at all, but should 'start-server' return anything? It's returning nil at the moment.

@the2bears that's the error, good eye

@bravilogy - println returns nil, so start-server returns nil

ah damn it should be the other way round

we still don't know what is calling stop, but that's what is causing the error

yeah that was the issue. I had to have them other way round

now the server instance is returned and life is good

… again

is there a clojure builtin for "take this vec of 5 elements, pad it to a list of 10 elemes by adding :null" 's ?

basically, "make this vec longer by repeating this elem"

no builtin, I'd use concat and repeat (concat coll (repeat 5 nil)) or (take 10 (concat coll (repeat nil)))

(first (partition 10 10 (repeat :b) [:a]))

you could partition with a pad and take the first partition

although i think the take concat version is nicer