mailboxInsert.fs

[<CLIMutableAttribute>]
[<AliasAttribute("hello")>]
type HelloDb = 
    { Name : string }
    
[<LiteralAttribute>]
let connStr = "Server = localhost; Port = 5432; Database = database; User Id = username; password = password;"

let dbfactory = OrmLiteConnectionFactory(connStr, PostgreSqlDialect.Provider)


let agent = 
        MailboxProcessor.Start(fun inbox ->
            //let db = dbfactory.Open(); persistance open connection.
            let rec messageLoop() = 
                async { 
                    let! (msg : Hello) = inbox.Receive()
                    do use db = dbfactory.Open()
                       //do some processing
                       db.InsertAsync(msg)
                       |> Async.AwaitTask
                       |> ignore
                       printfn "%A" msg.Name
                    do! Async.Sleep(rnd.Next(100, 1000))
                    return! messageLoop()
                }
            messageLoop())
agent.Post {Name:"Kunjan"}
//How can use this agent to insert data. Because if they are queue I guess it is ok to use persistance open connection. Here I am not doing it 
//but I guess that very much possible

@swlaschin and @isaacabraham. I guess I make it working. Please have a look that if it is good as per code. It is working now without closing connection.

And ya we can't use any bang thing in do clause. means that do! will be outside of that clause. Or anything that I should be asynced...

PS: ref - http://stackoverflow.com/questions/7433426/f-async-dispose

Looks good to me. That SO question has good answers too!