F# 和 ADO.NET - 惯用的 F#

Question

我刚刚开始学习 F#。我昨晚写了这段 F#/ADO.NET 代码。 您将通过哪些方式改进语法 - 使其感觉像惯用的 F#？

    let cn = new OleDbConnection(cnstr)
    let sql = "SELECT * FROM People"
    let da = new OleDbDataAdapter(new OleDbCommand(sql, cn))
    let ds = new DataSet()
    cn.Open()
    let i = da.Fill(ds)
    let rowCol = ds.Tables.[0].Rows
    let rowCount = rowCol.Count
    printfn "%A" rowCount

    for i in 0 .. (rowCount - 1) do
        let row:DataRow = rowCol.[i]
        printfn "%A" row.["LastName"]

注意：我确实发现语法检查器不喜欢 rowCol.[i].["姓氏"] 处理双索引器的正确方法是什么？我必须将代码分成两行。

另外如果我没有沿着 DataSet 路线并使用 SqlDataReader 将其数据加载到 F# 记录中。我应该使用什么集合结构来包含记录？ 标准 .NET 列表<>？

Answer 1

代码的关键部分涉及不起作用的 .NET API，因此无法使这部分代码更加惯用或更好。然而，函数式编程的关键是抽象，因此您可以将这些（丑陋的）代码隐藏到一些惯用且可重用的函数中。

为了在 F# 中表示数据集合，您可以使用标准 F# 列表类型（这有利于功能数据处理）或 seq<'a>（这是标准 .NET IEnumerable<'） a> 在封面下），在与其他 .NET 库一起使用时效果很好。

根据您在代码中其他地方访问数据库的方式，以下内容可能有效：

// Runs the specified query 'sql' and formats rows using function 'f'
let query sql f = 
  // Return a sequence of values formatted using function 'f'
  seq { use cn = new OleDbConnection(cnstr) // will be disposed 
        let da = new OleDbDataAdapter(new OleDbCommand(sql, cn)) 
        let ds = new DataSet() 
        cn.Open() 
        let i = da.Fill(ds) 
        // Iterate over rows and format each row
        let rowCol = ds.Tables.[0].Rows 
        for i in 0 .. (rowCount - 1) do 
            yield f (rowCol.[i]) }

现在您可以使用 query 函数大致如下编写原始代码：

let names = query "SELECT * FROM People" (fun row -> row.["LastName"])
printfn "count = %d" (Seq.count names)
for name in names do printfn "%A" name

// Using 'Seq.iter' makes the code maybe nicer 
// (but that's a personal preference):
names |> Seq.iter (printfn "%A")

您可以编写的另一个示例是：

// Using records to store the data
type Person { LastName : string; FirstName : string }
let ppl = query "SELECT * FROM People" (fun row -> 
  { FirstName = row.["FirstName"]; LastName = row.["LastName"]; })

let johns = ppl |> Seq.filter (fun p -> p.FirstName = "John")

顺便说一句：关于Mau 的建议 如果有更直接的方法使用 for 等语言结构编写代码，我不会过度使用高阶函数。上面的 iter 示例很简单，有些人会发现它更具可读性，但没有通用规则......

Answer 2

我为 F# 编写了一个 ADO.NET 功能包装。使用这个库，您的示例如下所示：

let openConn() =
   let cn = new OleDbConnection(cnstr)
   cn.Open()
   cn :> IDbConnection

let query sql = Sql.execReader (Sql.withNewConnection openConn) sql

let people = query "select * from people" |> List.ofDataReader
printfn "%d" people.Length
people |> Seq.iter (fun r -> printfn "%s" (r?LastName).Value)

Answer 3

嗯，一开始你没有什么可以改变的，但是每当你处理数据集合（比如最后几行）时，你都可以使用内置的 Seq、List、Array 函数。

for i in 0 .. (rowCount - 1) do
  let row:DataRow = rowCol.[i]
  printfn "%A" row.["LastName"]

=

rowCol |> Seq.cast<DataRow> 
       |> Seq.iter (fun row -> printfn "%A" row.["LastName"])