将MySQL表转换为F#矩阵

open FSharp.Data.SqlClient
open System

// 连接到MySQL数据库
let [<Literal>] connectionString = "Server=localhost;Database=test;User=root;Password=password"
type sql = SqlDataProvider<ConnectionString = connectionString, DatabaseVendor = Common.DatabaseProviderTypes.MYSQL>
let ctx = sql.GetDataContext()

// 读取表数据
let data = 
    query {
        for row in ctx.TableName do
        select row
    } |> Seq.toArray

// 将表数据转换为F#矩阵
let matrix = Array2D.init (data.Length) (data.[0].ColumnNames.Length) (fun i j -> data.[i].[j])

// 输出矩阵
matrix |> Array2D.iter (fun x -> printf "%A " x)