【OpenOffice Base】DBファイルをフォルダ移動したらエラーになったときの解決方法【2018】

2018年1月16日2018年1月27日

DBファイルをフォルダ移動したらエラーになったときの解決方法

ちょっとOpenOfficeで、表計算ソフト「Calc」からデータベース「Base」の情報を参照するお仕事が発生しました。データベースをひと通り作成し表計算ソフトからデータベースを読み込むマクロを作成、実行。処理は正常に終了し、データベースファイルを整理しようとして、他のフォルダに移動。

また、データベースを読み込むマクロを実行するとエラーメッセージが表示される。エラーメッセージの内容は、「〇〇フォルダにデータベースファイルがないよ」というものです。

調べた結果、表計算ソフト「Calc」又は、データベース「Base」どちらでもいいんですが、オプション⇒OpenOffice Base⇒データベースの登録されたデータベースに登録されている該当データベースパスを実際に置かれているフォルダパスに変更すればエラーは発生しなくなります。

実際の画面

データベースアクセスのサンプルマクロ

Sub Main<br /> Dim DatabaseContext as Object<br /> Dim DataSource as Object<br /> Dim Connection as Object<br /> Dim Statement as Object<br /> Dim ResultSet as Object</p> <p>'- データベース用オブジェクト作成<br /> DatabaseContext=createUnoService(“com.sun.star.sdb.DatabaseContext") </p> <p>'- データベースファイルを開く<br /> '- getByNameに設定するデータベース名は〇〇〇〇〇.odbの場合、〇〇〇〇〇を指定する<br /> DataSource=DatabaseContext.getByName(“〇〇〇〇〇") </p> <p>'- ユーザ名、パスワードを空白で接続<br /> Connection = DataSource.GetConnection(“","")</p> <p>dim sSql as String<br /> sSql = “SELECT a.col1, a.col2, b.col3, b.col4 "<br /> sSql = sSql & “FROM work1 a, work2 b "<br /> sSql = sSql & “WHERE a.id　= b.id "<br /> sSql = sSql & “order by a.id "</p> <p>'- SQLの実行<br /> Statement = Connection.createStatement()<br /> ResultSet= Statement.executeQuery(sSql)</p> <p>'-　レコードの読み込み<br /> If IsNull(ResultSet) Then<br /> '– 検索されたレコード件数が0件<br /> Else<br /> '– 1つ目のカラム名の取得<br /> sColumnName1 = ResultSet.Columns.ElementNames(0)</p> <p> While ResultSet.next<br /> '– 1カラム目のデータ項目を取得<br /> sValue = ResultSet.getString(1)<br /> Wend<br /> End If</p> <p>'- データベースを閉じる<br /> Statement.Close()<br /> Connection.Close()<br /> Connection.Dispose()<br /> End Sub<br />