SQLを使ってみる！！(Excelデータベースその3)

ExcelVBA-Excelファイルをデータベースとして使う-その3です。前回の記事はこちらになります。 hirocom777.hatenadiary.org
さて、データベースらしくSQLを使ったデータの検索を説明したいと思います。
Microsoft ActiveX Data Objects 2.8 Libraryを参照設定して試してみてください。ソースリストは此方です。

Public Function SelectRecord(strFileName As String, strSQL As String, Optional rngRange As Range = Nothing) As Long
On Error GoTo HrrorHandler
  Dim adoCn As Object
  Set adoCn = CreateObject("ADODB.Connection")
  
  With adoCn
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .Properties("Extended Properties") = "Excel 12.0"
    .Open strFileName
  End With
  
  Dim adoRs As Object
  Set adoRs = CreateObject("ADODB.Recordset")
  adoRs.CursorLocation = adUseClient
  
  adoRs.Open strSQL, adoCn
  
  If Not rngRange Is Nothing Then rngRange.CopyFromRecordset adoRs
  SelectRecord = adoRs.RecordCount
  
  adoRs.Close
  adoCn.Close

HrrorHandler:
  If Err.Number <> 0 Then MsgBox "データベース接続に失敗しました"

End Function

まずは、簡単に動かしてみましょう前回の名簿データベースにデータを追加してみました。

次に、動作確認用のプロシージャを用意しました。SelectDataを標準モジュールに組み込んだExcelファイル(名簿データベースとは別のファイル)のシートSheet1内に追加します。 SQLでデータを絞るプロシージャです。今回は、簡単な男性のデータのみに絞るSQLですね。

Private Sub SelectData()
Const SQL As String = "SELECT * FROM [Sheet1$] WHERE 性別 = '男性'"
  MsgBox SelectRecord(ThisWorkbook.Path & "\データ.xlsx", SQL, Sheet1.Range("A1")) & "件見つかりました"
End Sub

このプロシージャSelectDataを実行すると以下のレスポンスが返ってくるはずです。