Exprの使用法からのパラメータの使い方

Question

let useConnection expr = 
    let Expr(conn : MySqlConnection) = 
     try 
      try 
       conn.Open() 
      with 
      | :? MySqlException as ex 
       -> printfn "Exception! %s" ex.Message 
      expr(conn) 
     finally 
      try 
       conn.Close() |> ignore 
      with 
      | :? MySqlException as ex 
       -> printfn "Exception! %s" ex.Message 
    using (new MySqlConnection(ConnectionString = 
      "server  = " + MySQLServer + "; 
      uid   = " + MySQLUID + "; 
      pwd   = " + MySQLPW + "; 
      database = " + MySQLDB + "; 
      Charset=utf8;")) Expr 

member x.reportToDB (msg:string) = 
    useConnection // <--- SO HERE I WANT TO KNOW WHAT IS conn 
     (let cmd = new MySqlCommand(Connection = conn) 
     cmd.CommandText <- ("insert into "+MySQLTable+"(system,dt,logMessage);") 
     ignore <| cmd.Parameters.AddWithValue("?system", Net.Dns.GetHostName()) 
     ignore <| cmd.Parameters.AddWithValue("?dt", DateTime.Now.ToString()) 
     ignore <| cmd.Parameters.AddWithValue("?logMessage", msg) 
     try 
      try 
       cmd.ExecuteNonQuery() |> ignore 
      with 
      | :? MySqlException as ex when ex.Message.Contains("Duplicate entry") 
       -> printfn "MySQL Duplicate entry Exception: discarding the data set! %s" ex.Message 
        printfn "" 
      | :? MySqlException as ex 
       -> printfn "MySQL Exception, requeing data set and trying again later! %s" ex.Message 
        reraise() 
     with 
     | :? MySqlException as ex 
      -> printfn "Exception! %s" ex.Message) 

説明するのは難しいですが、useConnectionからdelegate connをx.reportToDBに使用したいのですが、どうすればいいですか？

ありがとうございました。

@Tim Robinson、はい私はそこにconnについて知りません。それは解決したい問題です。 ラムダはここでは悪い考えですか？

Answer 1

useConnectionは、MySqlConnectionを受け取る関数が必要なようです。この関数は、必要な接続オブジェクトを提供します。

修正は次のとおりです。

useConnection (fun conn (* here's your connection *) -> 
    let cmd = new MySqlCommand(Connection = conn) 
    // etc. 

編集：それはuseConnection関数に追加型注釈を持つかもしれない明確です：

let useConnection (expr : MySqlConnection -> 'a) : 'a = 
    let Expr(conn : MySqlConnection) : 'a = 
    // etc.