database/db_utils.anubis :

add make_clause_and_binds for constructing clause and bind list from SQLite3_update_field add bind_Int_or_NULL add bind_String_or_NULL add bind_Datetime add bind_Date add bind_Bool database/db_types.anubis: add to_DBInt for boolean value

database/db_utils.anubis :
add make_clause_and_binds for constructing clause and bind list from SQLite3_update_field add bind_Int_or_NULL add bind_String_or_NULL add bind_Datetime add bind_Date add bind_Bool database/db_types.anubis: add to_DBInt for boolean value
David RENE
1 parent 7de986f5
Showing 2 changed files with 93 additions and 4 deletions Show diff stats
calexium_lib/database/db_types.anubis
calexium_lib/database/db_utils.anubis
@@ -38,14 +38,18 @@ public define String
   (
     DB_date d
   )= 
-  d.date.
+  date(d).
+
+
 public define String
   to_String
   (
     DB_datetime d
   )=
-  d.datetime.
+  datetime(d).
+
+
 public define String
   to_DBString
@@ -54,6 +58,19 @@ public define String
   )=
   if value then "1" else "0".
+public define Int
+  to_DBInt
+  (
+    Bool value
+  )=
+  if value then 1 else 0.
+  
 public type SQLite3_update_field:
   field(String column, SQLite3Bind bind).
+
+ * Some Bind helper *
+ 
+
+  
+  
@@ -13,8 +13,14 @@ read system/string.anubis
 read data_base/db_tools.anubis
 read data_base/sqlite.anubis
+read calexium_lib/database/db_types.anubis
 read calexium_lib/net_services_protocols/logger_service.anubis
+public define Int one_year_seconds = 365 * 86400.   // amount of seconds during 1 year
+// public define Int one_month_seconds = 31 * 86400.
+public define Int one_week_seconds = 7 * 86400.     // amount of seconds during 1 week
+public define Int one_day_seconds  = 86400.         // amount of seconds during 1 day
+
 define String
   __utime_to_string
   (
@@ -159,7 +165,7 @@ public define List(String)
       db_get_string_list(table_cursor, [s . so_far])
  }.
-// Old sqlite3 API
+// sqlite3 API
 public define List(String) 
   db_get_string_list
   ( 
@@ -175,7 +181,7 @@ public define List(String)
       db_get_string_list(table_cursor, [s . so_far])
  }.
-// Old sqlite3 API
+// sqlite3 API
 public define List(Int) 
   db_get_integer_list
   ( 
@@ -208,7 +214,73 @@ public define List(Int)
  }.
+ Help to construct clause and a list of bind according to list of SQLite3_update_field.
+ This is useful when we want to construct a SQL query with only needs fields.
+ 
+ 
+public define (List(SQLite3Bind), String)
+  make_clause_and_binds
+  (
+    List(SQLite3_update_field)  fields,
+    List(SQLite3Bind)           so_far,
+    List(String)                clause
+  )=
+  if fields is
+  {
+    []        then (so_far, join(", ",clause)),
+    [ h . t ] then
+      if h is field(column, bind) then
+        make_clause_and_binds(t, [bind . so_far], [column+" = :v_"+column . clause])
+  }.
+  
+ 
+ extended version of bind for SQLite3.
+ 
+public define SQLite3Bind
+  bind_Int_or_NULL
+  (
+    String  name,
+    Int     value
+  )=
+  if value = 0 then
+    bind_NULL(name)
+  else
+    bind_Int(name, value).
+public define SQLite3Bind
+  bind_String_or_NULL
+  (
+    String  name,
+    String  value
+  )=
+  if value = "" then
+    bind_NULL(name)
+  else
+    bind_String(name, value).
+  
+public define SQLite3Bind
+  bind_Datetime
+  (
+    String      name,
+    DB_datetime dt
+  )=
+  bind_String(name, datetime(dt)).
+
+public define SQLite3Bind
+  bind_Date
+  (
+    String  name,
+    DB_date d
+  )=
+  bind_String(name, date(d)).
+  
+public define SQLite3Bind
+  bind_Bool
+  (
+    String  name,
+    Bool    value
+  )=
+  bind_Int(name, to_DBInt(value)).
 // -- Migration HELPERS ---------------