BrowserSecurity
/
ExtensionDsLab
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Bug fix: data base connection string.

This commit is contained in:
Achim D. Brucker 2017-08-11 21:57:50 +01:00
parent e7103c3e5b
commit d9a05c583a
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/LogicalHacking.ExtensionDsLab/SqlConnector.fs
View File

@ -24,11 +24,11 @@ module SqlConnector =
let [<Literal>] DevelopmentDB = "aa-ac.sqlite"
let [<Literal>] FullDB = "full.sqlite"
let [<Literal>] DatabaseDir = "archive/db"
let [<Literal>] ArchiveDir = @"Data Source="
+ __SOURCE_DIRECTORY__
let [<Literal>] ArchiveDir = __SOURCE_DIRECTORY__
+ @"/../.."
// static (compile time) ConnectionString
let [<Literal>] ConnectionString = ArchiveDir
let [<Literal>] ConnectionString = @"Data Source="
+ ArchiveDir
+ @"/" + DatabaseDir
+ @"/" + DevelopmentDB + @";Version=3"
// create a type alias with the connection string and database vendor settings
@ -45,8 +45,8 @@ module SqlConnector =
| None -> ArchiveDir
| Some s -> s
function
| Dev -> Sql.GetDataContext(sprintf "Data Source=%s/%s;Version=3" (archiveDir dir ) DevelopmentDB)
| Prod -> Sql.GetDataContext(sprintf "Data Source=%s/%s;Version=3" (archiveDir dir ) DevelopmentDB)
| Dev -> Sql.GetDataContext(sprintf "Data Source=%s/%s/%s;Version=3" (archiveDir dir ) DatabaseDir DevelopmentDB)
| Prod -> Sql.GetDataContext(sprintf "Data Source=%s/%s/%s;Version=3" (archiveDir dir ) DatabaseDir FullDB)
| Auto -> try
getCtx dir Prod
with