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()

Tweet