Làm thế nào là một trong những nghĩa vụ phải sử dụng F # SqlDataConnection TypeProvider với một tập tin App.Config?

Question

Tôi đang sử dụng biểu thức loại:

type dbSchema = SqlDataConnection<ConnectionStringName="X1", ConfigFile="App.config"> 

này hoạt động tuyệt vời tại thời gian biên dịch (Tôi có thể truy cập vào tất cả các loại db), nhưng nó không thành công tại thời gian chạy. Tôi đoán đó là vì tệp cấu hình được tạo trong thư mục bin của ứng dụng bảng điều khiển được đặt tên khác, chẳng hạn như MyAppName.exe.config và do đó không tìm thấy tệp App.config.

Chắc chắn, đối với ứng dụng loại ASP.NET MVC sử dụng web.config, không có vấn đề gì vì tên tệp cấu hình và biên dịch thời gian chạy giống nhau.

May mắn thay, đặt một bản sao App.config trong thư mục bin sẽ khắc phục sự cố, nhưng đó có phải là những gì chúng tôi dự kiến ​​sẽ làm không? Có suy nghĩ gì không?

Answer 1

Tôi không có một VS2012 trên máy tính này nhưng điều này nên được những gì bạn đang tìm kiếm:

let exeConfigFile = Path.GetFileName(System.Reflection.Assembly.GetEntryAssembly().Location) + ".config" 
let defaultConfigFile = "App.config" 
let configFile = if File.Exists(exeConfigFile) then exeConfigFile else defaultConfigFile 

type dbSchema = SqlDataConnection<ConnectionStringName="X1", ConfigFile=configFile> 

Answer 2

Các mô tả về cách định nghĩa nhà cung cấp loại công trình là gây hiểu nhầm - giá trị trong typedef thực sự chỉ có vấn đề ở mã/thời gian biên dịch, và như là một mặc định trong thời gian chạy. Tuy nhiên, như bạn đã lưu ý, nó không phải là rất thông minh về việc tìm kiếm các tập tin cấu hình đúng lúc chạy.

Bạn có thể thực hiện những gì bạn muốn bằng cách đi qua các chuỗi kết nối như một tham số để GetDataContext:

type dbSchema = SqlDataConnection<ConnectionStringName="X2"> 
let db = dbSchema.GetDataContext(ConfigurationManager.ConnectionStrings.["X2"].ConnectionString) 

... hoặc nếu bạn cũng muốn làm cho nó làm việc trong F # tương tác, quấn nó như vậy:

type dbSchema = SqlDataConnection<ConnectionStringName="X2"> 
#if COMPILED 
let db = dbSchema.GetDataContext(ConfigurationManager.ConnectionStrings.["X2"].ConnectionString) 
#else 
let db = dbSchema.GetDataContext() 
#endif 

(Lưu ý rằng bạn sẽ cần một tham chiếu đến System.Configuration.)