OpenOffice Base BasicでSQLクエリを送るときのコツ

・タイムスタンプをSQLに埋め込みたい時は変換する

Dim NowText as string

NowText = now() NowText = Replace(NowText,"/","-")

・接続はこんな感じ

Dim oDoc Dim Connection

’ フォームオブジェクト取得 oDoc = ThisComponent

’ 接続を取得 oForm = oDoc.getDrawPage().getForms().getByName(“MainForm”) Connection = oForm.ActiveConnection

‘SQLを発行する Statement = Connection.createStatement() ResultSet = Statement.executeQuery(“SELECT ““HOGE”” FROM tbl_FugaFuga”)

’ 接続を閉じる ResultSet.Close() Statement.Close()