|
Post by Darel Johnson on Jun 10, 2015 11:05:01 GMT -5
Author: Tong Truong www.tonytruong.net/calling-an-f-library-from-c-to-import-a-csv-file-into-sql-server/namespace DataTools
module Tools =
open FSharp.Data
open System.Data.SqlClient
open System.Data
open System.Xml
type CSV(connectionString:string, csvFile:string, table:string) =
let mutable _connectionString=connectionString
let mutable _table=table
member this.Table with get() = _table and set(v) = _table <- v
member this.ConnectionString with get() = _connectionString and set(v) = _connectionString <- v
member this.CSVToDataTable =
let dataTable = new DataTable()
let file=CsvFile.Load(csvFile)
let headers=[| file.Headers.Value |]
headers.[0]
|>Seq.iter(fun h-> dataTable.Columns.Add(new DataColumn(h)))
file.Rows
|>Seq.iter(fun r->
let dr = dataTable.NewRow()
r.Columns |> Seq.iteri(fun i c -> dr.Item(i) <- c )
dataTable.Rows.Add(dr))
dataTable
member this.ImportToMSSQL(dt:DataTable) =
use con = new SqlConnection(_connectionString)
con.Open()
use bulkCopy = new SqlBulkCopy(con, DestinationTableName=_table)
bulkCopy.WriteToServer(dt)
ignore
|
|
|
Post by Clint on Feb 10, 2021 1:12:41 GMT -5
Great article! This іѕ the kind of informatіon tһɑt are meant tօ Ƅe shared ɑcross tһe internet. Disgrace ⲟn Google for not positioning tһis puut up upper! Ϲome on over and consult ᴡith my website . Тhanks =)
Сan Yοu my website Mega Togel Bandar Judii Togel
|
|