35 lines
842 B
Forth
35 lines
842 B
Forth
module db
|
|
|
|
open Dapper.FSharp.MySQL
|
|
open MySql.Data.MySqlClient
|
|
open DredgeFramework
|
|
|
|
let connString = "server=localhost;uid=root;pwd=;database=dredgepos;table cache = false"
|
|
let connection = new MySqlConnection(connString)
|
|
|
|
let Select<'a> asyncQuery =
|
|
asyncQuery
|
|
|> connection.SelectAsync<'a>
|
|
|> RunSynchronously
|
|
|> EnumerableToArray
|
|
|
|
let SelectJoin<'a, 'b> asyncQuery =
|
|
asyncQuery
|
|
|> connection.SelectAsync<'a, 'b>
|
|
|> RunSynchronously
|
|
|> EnumerableToArray
|
|
|
|
let Insert<'a> asyncQuery =
|
|
asyncQuery
|
|
|> connection.InsertAsync<'a>
|
|
|> RunSynchronously
|
|
|
|
let Update<'a> asyncQuery =
|
|
asyncQuery
|
|
|> connection.UpdateAsync<'a>
|
|
|> RunSynchronously
|
|
|
|
let Delete<'a> asyncQuery =
|
|
asyncQuery
|
|
|> connection.DeleteAsync
|
|
|> RunSynchronously |