F резкое сохранение типа записи в доступе дБ

Question

У меня есть следующий тип записи "tbl", и он будет содержать списки или seq. Как я могу сохранить / обновить этот "tbl" в существующей таблице доступа БД, используя F Sharp с именами полей, как указано ниже.

type Tbl= {     P:string; 
                In:System.DateTime; 
                Ex:System.DateTime;
                B:string; 
                CC:string; 
                GG:double; 
                PR:double;
                DE:double;
                PRE:double; 
                DEU:double; 
                PRPL_DEDUC:double; 
                GUR:double; 
                GC:double; 
                PRP:double; 
                PDA:double; 
                PRO:double}

let conn = new OleDbConnection( @"Provider=Microsoft.ACE.OLEDB.12.0;
          Data Source=T:\Test.accdb;
           Persist Security Info=False;" )
conn.Open()    

let sql="INSERT INTO Test SELECT * FROM " Tbl
let DAdapter = new OleDbDataAdapter(sql,conn)
DAdapter.Update

Answer 1

Есть несколько вещей, которые приходят на ум здесь.

Во-первых, я думаю, что вы начинаете понимать интерпретацию типа записи - это не набор записей - так что вы не можете просто добавить в oledbdataadapter.

Также нет особой поддержки Access в провайдерах типа F# - я теряю связь с тем, сколько их существует, но в качестве примера SqlProvider позволяет вам читать из Access, но не выполнять действия CRUD.

Так что, по крайней мере, насколько я знаю, старомодный подход к oledb, который вы использовали выше, на самом деле является правильным путем.

Приведенный ниже код использует SqlProvider для извлечения содержимого базы данных доступа с 3 столбцами, функция saveARow не будет работать, а затем продолжит делать это способом oledb...

#r @"packages\SQLProvider.0.0.9-alpha\lib\net40\FSharp.Data.SqlProvider.dll"

open System
open System.Linq
open FSharp.Data.Sql

[<Literal>]
let cnStr = @"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Database1.accdb;Persist Security Info=False;"

type sql = SqlDataProvider<
                ConnectionString = @"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Database1.accdb;Persist Security Info=False;",
                DatabaseVendor = Common.DatabaseProviderTypes.MSACCESS>
let ctx = sql.GetDataContext()

// return some data
ctx.``[Database1].[Table1]`` |> Seq.take 1

// create a type to represent the data
type Row = {P: string; In:System.DateTime; GG:double}

// insert some more data P:string, In:datetime, Ex:datetime, B:string, GG:number
// unfortunately SqlDataProvider doesn't support CRUD operations on MS Access...
let saveARow (aRow: Row) =
    let table1 = ctx.``[Database1].[Table1]``.Create()
    table1.P <- aRow.P
    table1.In <- aRow.In
    table1.GG <- aRow.GG
    ctx.SubmitUpdates()

{P="abc"; In=DateTime.Now; GG=200.}
|> saveARow

// try it the old fashioned way
open System.Data
open System.Data.OleDb

#r @"C:\Program Files (x86)\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.5.2\System.Transactions.dll"
open System.Transactions

let saveARow2(aRow: Row) =
    let cn = new OleDbConnection(cnStr)
    cn.Open()
    let cmd = new OleDbCommand()
    cmd.CommandType <- CommandType.Text
    let insertCmd = sprintf "insert into Table1 values ('%s', '%s', '%f')" aRow.P (aRow.In.ToShortDateString()) aRow.GG
    cmd.CommandText <- insertCmd
    cmd.Connection <- cn
    cmd.ExecuteNonQuery() |>ignore
    cn.Close()

{P="abcd"; In=DateTime.Now; GG=200.}
|> saveARow2

Answer 2

Почему последовательность не является массивом или списком? Может быть, лучше переписать (я взял данные из вашего другого вопроса):

type test = { G:double; P:double; GG:double; PP:double } 

let table = [for x in 0..(Un0.Length - 1) -> 
                let b = Un0.[x] in 
                if b=0.0 then {G=0.0; P=0.0; GG=0.0; PP=0.0}
                else {G=G_0.[x]/b; P=P0.[x]/b; GG=G0.[x]/b; PP=PP0.[x]/b}]

let str = @"Provider=Microsoft.ACE.OLEDB.12.0;
 Data Source=T:\Test.accdb;
 Persist Security Info=False;"

let conn = new OleDbConnection(str) 

let query text = 
    conn.Open() 
    use comm = conn.CreateCommand()
    comm.CommandText <- text
    comm.ExecuteNonQuery() |> ignore
    conn.Close()

let format = "INSERT INTO Test values ({0}, {1}, {2}, {3});"

table |> List.iter(fun x -> query (String.Format(format, x.G, x.P, x.GG, x.PP)))