使用 SqlBulkCopy 和 F# 在 SQL 中导出矩阵

Question

我想将大量数据从 F# 传输到 SQL 表。基本上，我的 F# 代码创建了一个由三列（UserID、ProductID 和 Price）和 N 行组成的矩阵。我想将其“复制/粘贴”到数据库中 我尝试了多种选择，但最终，从 F# 传输数据非常慢（10000 行大约需要 1 小时）。

感谢上一个问题的回答 如何包含存储的在 F# 中，解决此问题的一个有趣方法是使用 SqlBulkCopy。

SqlBulkCopy 的 WritetoServer 方法需要数据库类型，但我没有找到任何现有代码或将矩阵转换为数据库的简单方法。 您有什么建议或想法吗？

Answer 1

这应该可以帮助您开始（并参考文档 有关 SqlBulkCopy 的更多信息）：

//you must reference System.Data and System.Xml
open System.Data
open System.Data.SqlClient

let bulkLoadUserPurchases (conn:SqlConnection) (userPurchases: list<int * int * float>) =
    use sbc = new SqlBulkCopy(conn, SqlBulkCopyOptions.TableLock, null, BatchSize=500, BulkCopyTimeout=1200, DestinationTableName="YOUR_TABLE_NAME_HERE")
    sbc.WriteToServer(
        let dt = new DataTable()
        ["UserID", typeof<int>
         "ProductID", typeof<int>
         "Price", typeof<float>]
        |> List.iter (dt.Columns.Add>>ignore)

        for userPurchase in userPurchases do
            let userId, productId, price = userPurchase
            let dr = dt.NewRow()
            dr.["UserID"] <- userId
            dr.["ProductID"] <- productId
            dr.["Price"] <- price
            dt.Rows.Add(dr)

        dt)

Answer 2

如果您同意第三方库，fastmember 在这里真的很有用。

module DB =
    open System.Data
    open System.Data.SqlClient
    open FastMember

    // val bulk : conn:SqlConnection -> table:string -> columns:seq<string*string> -> items:seq<a'>
    let bulk conn table columns items =        
        use bcp = new SqlBulkCopy(connection = conn)
        bcp.EnableStreaming <- true
        bcp.DestinationTableName <- table
        for n,v in columns do   
            bcp.ColumnMappings.Add(new SqlBulkCopyColumnMapping(sourceColumn = n, destinationColumn = v))               
            |> ignore
        bcp.WriteToServer(items |> ObjectReader.Create)

这给您留下了一个通用方法，您可以将任何 seq 汇集到其中。还有一些配置参数，您当然可以根据需要进行配置。