到目前为止,我是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/