OOobbs3/4

OOobbs3/4

• サマリ: baseでマクロを使って現在の行を取得したい
• 環境: Basic
• 状態: 解決
• 投稿者: 七志乃権兵衛?
• 投稿日: 2010-05-14 (Fri) 16:49:40

質問

こんにちは。　現在、baseを使って家計の管理をしようとしています。

同じ日付の予定を連続して入力する際、カーソルのある行の日付をコピーし、カーソルの次に行を挿入し、その行の日付用カラムに貼り付けようと、現在のカーソル行を取得するためにgetRow関数を使ったのですが、ゼロしか返ってきません。

RowSetの取得方法は以下の通りです。

ResultSet	= Statement.executeQuery("select * from T_Data")

MsgBox ResultSet.getRow()

レコードデータは取得できるのですが・・・ 解決方法をご存知の方、いらっしゃいましたらアドバイスいただけると幸いです。

回答

• 最初のレコードにカーソルを移動していないからでしょうか。

  If ResultSet.next() Then
    Msgbox ResultSet.getRow()
  End If

  どのように管理しているのか書かれていませんが、フォームで表示している現在のデータのカーソル位置を取得するのであればフォームからカーソルを利用した方がいいと思います。

• はにゃ? 2010-05-16 (日) 02:27:07

• お返事ありがとうございます。 管理の方法内訳・口座 etc... といった項目に数字を割り当て、表示の際はマスタテーブルと関連付けて文字で表示するといった形です。 入力はフォームで行うので、アドバイスにあったようにフォームのカーソルを使用できれば使いたいです。 やり方が分からなかったため調べてみたところ、こちらのページ ttp://blog.tokachi-lab.com/archives/2006/03/_openofficeorg.html に記載されている内容が近そうだったので下記のようなコードでテストしてみました。

Sub CurrentRecord
	Dim form As Object
	form	= thisForm
	MsgBox form.getByName("内容").Text
End Sub
 rem ----------------------------------------------------------------------
Function thisForm
 	thisForm = ThisComponent.DrawPage.Forms.getByIndex(0)
end function

これは文字列形式のカラムの内容を取得して表示しようとしたものですが、「NoSuchElementException」が発生してしまいました。 よろしければフォームのbasicでの扱い方を教えていただけますか？ -- 七志乃権兵衛 2010-05-15 (Sat) 16:38:38

• エラーはフォームのコントロール名指定に存在しないものが指定されているためだと思います。 フォームでカーソルを利用するのであれば特定のカラムのデータを取得するには次のようにします。次のコードはボタンに割り当てています。

  Sub Btn_Push(ev)
   oForm = ev.Source.getModel().getParent()
   
   nID_NAME = oForm.findColumn("NAME")
   msgbox oForm.getString(nID_NAME)
  End Sub

  テーブルのカラム名が NAME のデータを取得します。

各種データの取得は以下参照。

• http://api.openoffice.org/docs/common/ref/com/sun/star/sdbc/XRow.html

• はにゃ? 2010-05-17 (月) 13:42:17

• ありがとうございます。　教えていただいた方法でカーソルがある行の情報を取得することが出来ました。　P.S.フォームの情報を取得するには、こういったイベントを利用する他に方法はないのでしょうか？ -- 七志乃権兵衛 2010-05-23 (Sun) 00:19:31
• 上記の thisForm のようにすれば取得できます。私見ですが、イベント駆動の場合には他の言語で実装するときなどと同様のやり方として上記のようにイベントを利用した方がいいと思います。

• はにゃ? 2010-05-23 (日) 20:06:17

• こんばんは。　他の言語でも同じような手法がとられているのですね。ありがとうございました！ -- 七志乃権兵衛 2010-05-30 (Sun) 05:38:55

感想，コメント，メモ