到目前为止,我是C#程序员,但还是F#爱好者。

当做一些教程(温和)时,我偶然发现了这个错误

System.NotSupportedException
  HResult=0x80131515
  Message=Enlisting in Ambient transactions is not supported.
  Source=System.Data.SqlClient
  StackTrace:
   at System.Data.SqlClient.SqlConnection.TryOpen(TaskCompletionSource`1 retry)
   at System.Data.SqlClient.SqlConnection.Open()
   at FSharp.Data.Sql.Providers.MSSqlServerProvider.FSharp-Data-Sql-Common-ISqlProvider-ProcessUpdates(IDbConnection con, ConcurrentDictionary`2 entities, TransactionOptions transactionOptions, FSharpOption`1 timeout)
   at <StartupCode$FSharp-Data-SqlProvider>.$SqlRuntime.DataContext.f@1-52(SqlDataContext __, IDbConnection con, Unit unitVar0)
   at FSharp.Data.Sql.Runtime.SqlDataContext.FSharp-Data-Sql-Common-ISqlDataContext-SubmitPendingChanges()
   at Program.main(String[] argv) in C:\Users\M_R_N\source\repos\ConsoleApp2\ConsoleApp2\Program.fs:line 34


但是代码看起来如此琐碎,我无法相信它行不通,我们似乎能够从(SQL Express)数据库中读取数据,但无法对其进行写入(或者至少不删除,我没有尝试添加)。我真的不知道什么是环境交易,实际上我不必担心交易行为,我只是想选择一些数据,对其进行更新或删除。

这就是所有代码。

open System
open FSharp.Data.Sql

[<Literal>]
let ConnectionString =
    "Data Source=(localdb)\ProjectsV13;Initial Catalog=suavemusicstore;Integrated Security=SSPI;Connect Timeout=30;Encrypt=False;TrustServerCertificate=True;ApplicationIntent=ReadWrite;MultiSubnetFailover=False"

type Sql =
    SqlDataProvider<
        ConnectionString = ConnectionString,
        DatabaseVendor = Common.DatabaseProviderTypes.MSSQLSERVER>

type DbContext = Sql.dataContext
type Album = DbContext.``dbo.AlbumsEntity``
type Genre = DbContext.``dbo.GenresEntity``

let getAlbum id (ctx : DbContext) : Album option =
    query {
        for album in ctx.Dbo.Albums do
        where (album.AlbumId = id)
        select album
    } |> Seq.tryHead

[<EntryPoint>]
let main argv =
    let ctx = Sql.GetDataContext()

    match (getAlbum 2 ctx) with
    | Some(album) ->
        album.Delete()
        ctx.SubmitUpdates() // EXCEPTION thrown here
        0
    | _ -> 0


有解决方法吗?这是我第一次使用类型提供程序和核心,但似乎您无法编写一个简单的CRUD应用程序。

在其他地方(主要是在C#EF应用程序中)已经报告了此问题,我认为在该问题上可能有更多解决方案(也许)。

任何想法如何解决呢?我曾尝试升级/降级各种金块软件包,但无济于事

最佳答案

不久前,我在玩具F#项目中遇到了相同的问题。我没有找到合适的解决方案,最终完全忽略了交易。这并不能解决根本问题,但对我来说就足够了(该项目主要用于学习)。

let TransactionOptions = {IsolationLevel = IsolationLevel.DontCreateTransaction; Timeout = TimeSpan.FromSeconds(1.0)}

let dbContext = Sql.GetDataContext(TransactionOptions)

关于f# - f#SqlDataProvider .Net Core 2.0-不支持在环境中注册,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/48609553/

10-10 12:55