CDと本の管理システムをExcelで作成する(6.SQLite3データベースからのデータ抽出フォーム)

前回までで、MadiamarkerからのSQLite3データベースへのインポートと、データ入力のフォーマットを作成した。

www.excellovers.com

今回からは入力したデータを検索する仕組みを作ってみたいと思う。

検索ユーザーフォーム全景

まずはシンプルに仕上げてみる。
f:id:ExcelLover:20181209185924j:plain

項目	内容
タイトル	タイトル
オブジェクト名	Textbox_Title

項目	内容
タイトル	検索

項目	内容
タイトル
オブジェクト名	ListBox_Result

入力した値と部分一致したものを抽出するのが普通だが今回はちょっと違うものを作ってみる。

『入力した値とレーベンシュタイン距離が短いものを順に表示する』

レーベンシュタイン距離についてはこちらを参照

infoment.hatenablog.com

なぜ今回レーベンシュタイン距離を取り上げたかというと

・知らない考え方で単純におもしろそう

・作品との予想外の出会いがありそう

２つ目は単純に部分一致では目につくことのない、

「あれ？そういやこんな作品も持ってたなぁ」ということが起きるんじゃないかということを期待している。

ユーザーフォーム内コード

Private Sub CommandButton1_Click()
     Dim myDBHandle As Long
     
     SQLite3Initialize
    SQLite3OpenV2 "C:\XXX\CDBookManager.db3", myDBHandle, _
          SQLITE_OPEN_READONLY, ""
     
     Dim mySQL As String
     Dim myStmtHandle As Long
     
     mySQL = "select タイトル from CDBookManager"
     SQLite3PrepareV2 myDBHandle, mySQL, myStmtHandle
     
     Dim ReturnValue As Variant
     Dim ColCount As Long
     Dim i As Long
     Dim n As Long
     Dim myArray() As Variant
     Dim myVar As Variant
     Dim colType As Long
     Dim colValue As Variant
     
     ReturnValue = SQLite3Step(myStmtHandle)
     ColCount = SQLite3ColumnCount(myStmtHandle)
     ReDim myArray(ColCount)
     ReDim myVar(n)
     
     Do Until ReturnValue = SQLITE_DONE
          For i = 0 To ColCount - 1
               colType = SQLite3ColumnType(myStmtHandle, i)
               colValue = ColumnValue(myStmtHandle, i, colType)
               myArray(i) = colValue
          Next i
    '①
          myArray(ColCount) = Levenshtein3(TextBox_Title.Value, myArray(0))
          myVar(n) = myArray
          n = n + 1
          ReDim Preserve myVar(n)
          ReturnValue = SQLite3Step(myStmtHandle)
     Loop
     ReDim Preserve myVar(n - 1)
     SQLite3Finalize myStmtHandle
     SQLite3Close myDBHandle
     
     ListBox_Result.List = WorksheetFunction.Transpose(WorksheetFunction.Transpose(myVar))
     
     
End Sub