t我现在在。是否有一种从F#执行此操作的首选方法。您可以使用JsonProvider解析app settings.json文件类型设置=JsonProvider。这将为您提供对结构的键入访问权限。我如何优雅地使用这个解决方案。我试图避免将文本连接字符串传递

---

t我现在在。是否有一种从F#执行此操作的首选方法。您可以使用JsonProvider解析

app settings.json

文件<代码>类型设置=JsonProvider。这将为您提供对结构的键入访问权限。我如何优雅地使用这个解决方案。我试图避免将文本连接字符串传递给每个查询函数。我知道必须有一种方法从F#访问运行时连接字符串。这就是我在转到asp.net core并遇到此问题之前通过web配置所做的。如何从我的F#项目中正确定位appsettigs.json文件，以供开发和生产使用。不知何故，这一切现在似乎过于复杂了。是的，这就是我现在所走的道路。是否有一种从F#执行此操作的首选方法。您可以使用JsonProvider解析

app settings.json

文件<代码>类型设置=JsonProvider。这将为您提供对结构的键入访问权限。我如何优雅地使用这个解决方案。我试图避免将文本连接字符串传递给每个查询函数。我知道必须有一种方法从F#访问运行时连接字符串。这就是我在转到asp.net core并遇到此问题之前通过web配置所做的。如何从我的F#项目中正确定位appsettigs.json文件，以供开发和生产使用。不知何故，这一切现在似乎过于复杂了。

<?xml version="1.0" encoding="utf-8"?>
<configuration>
  <connectionStrings>
    <add name="DefaultConnection" connectionString="Data 
        Source=server code here" 
        providerName="System.Data.SqlClient" />
  </connectionStrings>
  <startup>
    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7" />
  </startup>
</configuration>

module internal DbAdmin

open FSharp.Data
open FSharp.Configuration

module Admin = 

// runtime connection string
type private Config = AppSettings<"App.config">
let rtConnection = Config.ConnectionStrings.DefaultConnection

<configuration>
   <runtime>
      <gcServer enabled="true"/>
   </runtime>
   <connectionStrings>
       <add name="DefaultConnection" connectionString="Data Source=server 
            code here" providerName="System.Data.SqlClient"/>

  </connectionStrings>
</configuration>

{
  "ConnectionStrings": {

    "DefaultConnection": "Data Source=Server code Here"
  }
}

type Select_AllArticles = 

    SqlCommandProvider<
            "
                select * from article.vw_AllArticlesAndDetails
            ", Admin.connectionString, ConfigFile = Admin.configFile
        >

 try
    succeedWithMsg             
        (Select.Select_AllArticles.Create(Admin.rtConnection).Execute() |> 
            Seq.toList)
        (createGoodMsg(OK("Some Success Message.")))
  with
      | ex -> fail (createBadMsg(DbError(ex.Message + " --selectAllArticles")))