Clojure - 数据库

为了使用数据库功能，请确保首先从以下网址下载jdbc 文件：https://codeload.github.com/clojure/java.jdbc/zip/master

您会找到一个 zip 文件，其中包含 Clojure 连接到数据库所需的驱动程序。解压缩 zip 文件后，请确保将解压缩后的位置添加到您的类路径。

数据库连接的主要文件是位于 clojure/java 目录下的名为jdbc.clj的文件。

Clojure jdbc 连接器支持多种数据库，其中一些如下所示。

H2 数据库
Oracle
Microsoft SQL Server
MySQL
PostgreSQL

在我们的示例中，我们将使用 MySQL 数据库作为示例。

在 Clojure 中，可以使用以下数据库操作。

数据库连接

在连接到 MySQL 数据库之前，请确保以下事项：

您已创建数据库 TESTDB。
您已在 TESTDB 中创建表 EMPLOYEE。
此表包含字段 FIRST_NAME、LAST_NAME、AGE、SEX 和 INCOME。
已设置用户 ID“testuser”和密码“test123”以访问 TESTDB。
确保您已下载“mysql jar 文件”并将该文件添加到您的类路径。
您已学习 MySQL 教程以了解MySQL 基础知识。

语法

以下是 Clojure 中创建连接的语法。

(def connection_name {
   :subprotocol “protocol_name”
   :subname “Location of mysql DB”
   :user “username” :password “password” })

参数 - “connection_name”是要赋予连接的名称。“subprotocol”是用于连接的协议。默认情况下，我们将使用 mysql 协议。“subname”是要连接到的 mysql 数据库的 url，以及数据库名称。“user”是用于连接到数据库的用户名。“password”是用于连接到数据库的密码。

返回值 - 这将提供一个连接字符串，可在后续的 mysql 操作中使用。

以下示例演示如何连接到 information_schema 中的表并检索表中的所有数据。

示例

(ns test.core
   (:require [clojure.java.jdbc :as sql]))
(defn -main []
   (def mysql-db {
      :subprotocol "mysql"
      :subname "//127.0.0.1:3306/information_schema"
      :user "root"
      :password "shakinstev"})
   (println (sql/query mysql-db
      ["select table_name from tables"]
      :row-fn :table_name)))

查询数据

查询任何数据库中的数据意味着从数据库中获取一些有用的信息。建立数据库连接后，您就可以对该数据库进行查询了。以下是使用 Clojure 查询数据的语法。

语法

clojure.java.jdbc/query dbconn
["query"]
   :row-fn :sequence

参数 - “dbconn”是用于连接到数据库的连接的名称。“query”是从数据库中获取数据的查询字符串。“:sequence”默认情况下是所有从数据库中获取的数据行，并作为序列返回。然后可以对序列执行必要的运算以查看已获取的数据。

返回值 - 这将返回一个序列，其中包含查询操作的数据行。

以下示例演示如何连接到 employee 表并获取表中行的 first_name 列。

示例

(ns test.core
   (:require [clojure.java.jdbc :as sql]))
(defn -main []
   (def mysql-db {
      :subprotocol "mysql"
      :subname "//127.0.0.1:3306/testdb"
      :user "root"
      :password "shakinstev"})
   (println (sql/query mysql-db
      ["select first_name from employee"]
      :row-fn :first_name)))

从上面的代码中，我们可以看到

“select first_name from employee”查询作为查询字符串传递。
“:first_name”是作为获取操作的结果返回的序列。

如果我们假设我们的数据库中只有一行包含 first_name 值为 John，则上述程序的输出如下。

(John)

插入数据

当您想将记录创建到数据库表中时，需要这样做。以下是使用 Clojure 插入数据的语法。这是通过使用‘insert!’函数完成的。

语法

clojure.java.jdbc/insert!
   :table_name {:column_namen columnvalue}

参数 - “:table_name”是要进行插入操作的表的名称。“{:column_namen columnvalue}”是所有列名和值的映射，需要将其作为一行添加到表中。

返回值 - 如果插入成功，则返回 nil。

以下示例演示如何将记录插入 testdb 数据库的 employee 表中。

示例

(ns test.core
   (:require [clojure.java.jdbc :as sql]))
(defn -main []
   (def mysql-db {
      :subprotocol "mysql"
      :subname "//127.0.0.1:3306/testdb"
      :user "root"
      :password "shakinstev"})
   (sql/insert! mysql-db
      :employee {:first_name "John" :last_name "Mark" :sex "M" :age 30 :income 30}))

如果您现在检查您的 MySQL 数据库和 employee 表，您将看到上面一行已成功插入到表中。

删除数据

可以使用‘delete!’函数从表中删除行。以下是执行此操作的语法。

语法

clojure.java.jdbc/delete!
   :table_name [condition]

参数 - “:table_name”是要进行删除操作的表的名称。“condition”是用于确定要从表中删除哪一行的条件。

返回值 - 这将返回已删除的行数。

以下示例演示如何从 testdb 数据库的 employee 表中删除记录。该示例根据年龄等于 30 的条件从表中删除一行。

示例

(ns test.core
   (:require [clojure.java.jdbc :as sql]))
(defn -main []
   (def mysql-db {
      :subprotocol "mysql"
      :subname "//127.0.0.1:3306/testdb"
      :user "root"
      :password "shakinstev"})
   (println (sql/delete! mysql-db
      :employee ["age = ? " 30])))

如果您有一条年龄等于 30 的记录，则该行将被删除。

更新数据

可以使用‘update!’函数更新表中的行。以下是执行此操作的语法。

语法

clojure.java.jdbc/update!
   :table_name
{setcondition}
[condition]

参数 - “:table_name”是要进行更新操作的表的名称。“setcondition”是要更新的列，以映射的形式提及。“condition”是用于确定要从表中删除哪一行的条件。

返回值 - 这将返回已更新的行数。

以下示例演示如何从 testdb 数据库的 employee 表中删除记录。该示例根据年龄等于 30 的条件更新表中的一行，并将 income 的值更新为 40。

(ns test.core
   (:require [clojure.java.jdbc :as sql]))
(defn -main []
   (def mysql-db {
      :subprotocol "mysql"
      :subname "//127.0.0.1:3306/testdb"
      :user "root"
      :password "shakinstev"})
   (println (sql/update! mysql-db
      :employee
      {:income 40}
      ["age = ? " 30])))

如果您有一条年龄等于 30 的记录，则该行的 income 值将被设置为 40。

事务

事务是确保数据一致性的机制。事务具有以下四个属性：

原子性 - 事务要么完成，要么什么也不发生。
一致性 - 事务必须从一致状态开始，并使系统处于一致状态。
隔离性 - 事务的中间结果在当前事务之外不可见。
持久性 - 一旦事务提交，其效果将是持久的，即使在系统故障之后也是如此。

示例

以下示例演示如何在 Clojure 中实现事务。需要在事务中执行的任何操作都需要嵌入‘with-dbtransaction’子句中。

(ns test.core
   (:require [clojure.java.jdbc :as sql]))
(defn -main []
   (def mysql-db {
      :subprotocol "mysql"
      :subname "//127.0.0.1:3306/testdb"
      :user "root"
      :password "shakinstev"})
   (sql/with-db-transaction [t-con mysql-db]
      (sql/update! t-con
         :employee
         {:income 40}
         ["age = ? " 30])))

打印页面