#r "Microsoft.Data.Sqlite"
open Microsoft.Data.Sqlite
let id = 1
do
    use connection = new SqliteConnection("Data source=hello.db")
    connection.Open()

    let command = connection.CreateCommand()
    command.CommandText <- @"
        SELECT name
        FROM user
        WHERE id = $id"
    command.Parameters.AddWithValue("$id", id) |> ignore

    use reader = command.ExecuteReader()
    while reader.Read() do
        let name = reader.GetString 0
        printfn "Hello, %s!" name

F# で id は恒等関数として定義済みのため、定義しなくてもコンパイルは通りますが、クエリに使える値ではないため実行時エラーになります。
元の C# コードでは文字列への変数埋め込みを使っています。F# では現在実装が進められている段階です。
- fslang-design/FS-1001-StringInterpolation.md at master · fsharp/fslang-design

読み込み対象の hello.db は事前に作っておきます。

hello.sql

CREATE TABLE user (id INT, name text);
INSERT INTO user VALUES (1,"Foo"),(2,"Bar");

作成

sqlite3 hello.db ".read hello.sql"

ターゲットのコードでは id = 1 を指定しているため、実行結果は次のようになります。

実行結果

Hello, Foo!

試す

ライブラリを NuGet で取得します。

nuget install Microsoft.Data.Sqlite

以下のライブラリがインストールされます。後で必要になるためバージョンも記載します。

Microsoft.Data.Sqlite.3.1.4
Microsoft.Data.Sqlite.Core.3.1.4
SQLitePCLRaw.bundle_e_sqlite3.2.0.2
SQLitePCLRaw.core.2.0.2
SQLitePCLRaw.lib.e_sqlite3.2.0.2
SQLitePCLRaw.provider.dynamic_cdecl.2.0.2
System.Buffers.4.4.0
System.Memory.4.5.3
System.Numerics.Vectors.4.4.0
System.Runtime.CompilerServices.Unsafe.4.5.2

プロジェクトを作らずに F# Interactive から試すため、ライブラリをコピーします。

cp */lib/netstandard2.0/*.dll .
cp SQLitePCLRaw.lib.e_sqlite3.2.0.2/runtimes/linux-x64/native/libe_sqlite3.so .
cp SQLitePCLRaw.lib.e_sqlite3.2.0.2/runtimes/win-x64/native/e_sqlite3.dll .

データベースに接続を試みます。

$ fsharpi

Microsoft (R) F# Interactive version 10.2.3 for F# 4.5
Copyright (c) Microsoft Corporation. All Rights Reserved.

For help type #help;;

> #r "Microsoft.Data.Sqlite";;

--> Referenced '/home/xxx/test/Microsoft.Data.Sqlite.dll' (file may be locked by F# Interactive process)

> open Microsoft.Data.Sqlite;;
> let connection = new SqliteConnection("Data Source=hello.db");;
System.TypeInitializationException: The type initializer for 'Microsoft.Data.Sqlite.SqliteConnection' threw an exception.
---> System.Reflection.TargetInvocationException: Exception has been thrown by the target of an invocation.
---> System.IO.FileNotFoundException: Could not load file or assembly 'SQLitePCLRaw.provider.e_sqlite3, Version=2.0.2.669, Culture=neutral, PublicKeyToken=9c301db686d0bd12' or one of its dependencies.
（略）
Stopped due to error

SQLitePCLRaw でエラーが起きますが、対処方法は前回の記事で調査済みです。

provider.e_sqlite3 をインストールします。記事執筆時点ではバージョンを指定しないと SQLitePCLRaw.core よりも新しいバージョンがダウンロードされました。バージョン不整合により問題が起きたため、バージョンを指定して合わせます。

※ さらっと書いていますが、SQLitePCLRaw のエラーが解消したと思ったらまた別の問題が発生して、心が折れそうになりました。

nuget install SQLitePCLRaw.provider.e_sqlite3 -Version 2.0.2
cp SQLitePCLRaw.provider.e_sqlite3.2.0.2/lib/netstandard2.0/*.dll .

これでデータベースが開けるようになります。

$ fsharpi
（略）
> #r "Microsoft.Data.Sqlite";;
（略）
> open Microsoft.Data.Sqlite;;
> let connection = new SqliteConnection("Data Source=hello.db");;
val connection : SqliteConnection = Microsoft.Data.Sqlite.SqliteConnection

ターゲットとしたコードも問題なく動きました。

整理を試みる

前回の記事で試したように、依存するライブラリを減らすことを試みます。

Microsoft.Data.Sqlite の初期化コードを見ると、自前で SQLitePCLRaw を初期化すれば動作には支障がないようです。

src/Microsoft.Data.Sqlite.Core/Utilities/BundleInitializer.cs

まっさらな状態から core ライブラリのみをインストールして、必要なライブラリを追加します。

nuget install Microsoft.Data.Sqlite.core
nuget install SQLitePCLRaw.provider.sqlite3

記事執筆時点では、2 回の nuget で異なるバージョンの SQLitePCLRaw.core が取得されます。古い方のバージョンには provider.sqlite3 が存在しないため、バージョンを合わせることができません。

試したところ、Mono では新しい方に合わせておけば動きましたが、Windows ではバージョン不整合でエラーになりました。

$ fsharpc test.fsx
（略）
$ mono test.exe
Hello, Foo!
$ ./test.exe
ハンドルされていない例外: System.IO.FileLoadException: ファイルまたはアセンブリ 'SQLitePCLRaw.core, 
Version=2.0.2.669, Culture=neutral, PublicKeyToken=1488e028ca7ab535'、またはその依存関係の 1 つが
読み込めませんでした。見つかったアセンブリのマニフェスト定義はアセンブリ参照に一致しません。 
(HRESULT からの例外:0x80131040)

記事執筆時点では、自分でライブラリをビルドしなければこの方法は使えないようです。既に別の方法で動いているので、そこまでは確認していません。

Microsoft.Data.SqliteをWindowsとWSLで共有する

概要

ターゲット

試す

整理を試みる