こちらのサイトを参考にしてサンプルコードをコピペして名称を変更して実行してみた。
http://itref.fc2web.com/openoffice/basic/base.html
Dim DatabaseContext As Object
Dim DataSource As Object
Dim Connection As Object
Dim Statement As Object
Dim ResultSet As Object
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("DataBaseFile")
Connection = DataSource.getConnection("", "")
Statement = Connection.createStatement()
ResultSet = Statement.executeQuery("select * from Table")
If IsNull(ResultSet) Then
MsgBox "検索されたレコード件数が0件"
Else
While ResultSet.next
sValue1 = ResultSet.getString(1)
sValue2 = ResultSet.getLong(2)
Wend
End If
Statement.Close()
Connection.Close()
Connection.Dispose()
案の定エラーが発生。
エラーメッセージはステートメントにあるテーブルが見つからないとのこと。
テーブルが見つからないということは登録してあるデータベースへのアクセスはできているようだ。
なら登録してあるデータベースを Base を起動して確認してみると該当のテーブルは作成済みである。
んー。
もしやと思いテーブル名称 Table を TestTable へ変更した。もちろん Basic 側も変更した。
そして実行すると先ほどのエラーメッセージではなくて違うエラーメッセージが表示された。
今度のエラーはテーブルから取得したデータは文字列だけどステートメントは整数になっているから data type が違うって言ってる。
なので sValue2 = ResultSet.getString(2) にしてあげれば解決。
あっけないくらいに Basic からデータベースへアクセスできるようになった。
OpenOffice のオプションからデータベースの登録作業は必要ではあるがドライバのインストールが不要なのは良いことだ。
次はテーブルから取得したデータを指定したセルへ入れたり次のレコードを読んだり出来るようにしてみよう。
そういえばデータベースファイルはローカルを指定しているがネットワークドライブ越しのデータベースファイルを指定することは可能なのだろうか。
気になる気になる。
