2016-06-19 29 views
4

我正在通過SQLProvider訪問SQLite數據庫。我實際上可以連接到數據庫並查詢表中的數據。但是類型提供程序顯示錯誤:Exception has been thrown by a target of an invocation。智能感知功能並沒有真正起作用,例如表或屬性不顯示。見截圖:訪問SQLITE數據庫時出現SqlTypeProvider錯誤

Type Provider Error

由於出現無法訪問VS表和類型顯示試圖訪問屬性(它雖然工作)時lookup on object of indeterminate type錯誤。從表中提取數據也可以。所以類型提供者可以訪問數據庫但顯示這些錯誤。有沒有辦法讓它正確識別數據庫,並訪問它的屬性等沒有錯誤。

我正在使用64位SQLite驅動程序。下面的代碼:

#if INTERACTIVE 
#r @"..\packages\SQLProvider.1.0.8\lib\FSharp.Data.SqlProvider.dll" 
#r @"..\packages\System.Data.SQLite.Core.1.0.101.0\lib\net46\System.Data.SQLite.dll" 
#r @"C:\Program Files (x86)\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.6\System.Data.Linq.dll" 
#endif 

open System 
open FSharp.Data.Sql 

[<Literal>] 
let connectionString = "Data Source="+ @"C:\tmp\databaseFile.db3" 
[<Literal>] 
let resolutionPath = __SOURCE_DIRECTORY__ + @"..\..\packages\System.Data.SQLite.Core.1.0.101.0\lib\net46" 

type sql = SqlDataProvider< 
       Common.DatabaseProviderTypes.SQLITE, 
       ConnectionString = connectionString, 
       ResolutionPath = resolutionPath, 
       CaseSensitivityChange = Common.CaseSensitivityChange.ORIGINAL 
       > 

let ctx = sql.GetDataContext() 

let table2 = ctx.Main.Table2 //DateTime 
let table3 = ctx.Main.Table3 //Text 

query {           
     for r in table3 do 
      select (r.Date1)         
      } |> Seq.toList 

query {           
     for r in table2 do 
      select (r.Date1)         
      } |> Seq.toList 

回答

2

這按預期工作與當前的SQLite和SQLTypeProvider(1.0.102.0和1.0.31分別):

#if INTERACTIVE 
#I @"..\packages\SQLProvider.1.0.31\lib" 
#r "FSharp.Data.SqlProvider.dll" 
#I @"..\packages\System.Data.SQLite.Core.1.0.102.0\lib\net46" 
#r "System.Data.SQLite.dll" 
#I @"..\packages\System.Data.SQLite.Linq.1.0.102.0\lib\net46" 
#r "System.Data.SQLite.Linq.dll" 
#endif 

open System 
open FSharp.Data.Sql 
//open System.Data.SQLite 
//open System.Data.SQLite.Linq 

[<Literal>] 
let connectionString = "Data Source="+ @"C:\tmp\databaseFile.db3" 
[<Literal>] 
let resolutionPath = __SOURCE_DIRECTORY__ + @"..\..\packages\System.Data.SQLite.Core.1.0.102.0\lib\net46" 

type sql = SqlDataProvider< 
       Common.DatabaseProviderTypes.SQLITE, 
       connectionString, 
       ResolutionPath = resolutionPath, 
       CaseSensitivityChange = Common.CaseSensitivityChange.ORIGINAL> 

let ctx = sql.GetDataContext() 

let table2 = ctx.Main.Table2 //DateTime 
let table3 = ctx.Main.Table3 //Text 

這也許已經做這個issue #196