LibreOffice Baseマニュアル(実践編)

1 - (CC BY-NC ) LibreOffice Base ( ) 1..12..23..64..105..156..167..188..229.. HSQLDB ..2311..2312..2413..2414..2615..2716..27 17. Access .. 2818..2919..3020..3021..3122. Calc ..3324..36 1. Base 12. Access 2 SQL SQL 01234 0 2 SQL CD SQL 0 3 Sql SQL SQL SELECT SQL 01234 1 0 SQL 0 1 SQL 0 1 2 1 2

2 1 01234 0 0 SQL 0 4 ; Shift + Enter Shift Enter 5 SHIFT+ENTER 3. 6 ON subForm2 7 / 8 9 4.

3 10 11 12 13 14 5. Access Base 15 6.

4 16 177. 6 tbl_mainF1 dat Access Base 2 Libre_Basic 18 Odb LibreOffice Basic Standard OK 19 ' '###### ######Sub Focuscontrol oDoc = ThisComponent oForm = ().

5 GetForms().getByName("MainForm") oTxtControl = ().getControl( ("dat ")) () End sub'###### ###### #### ####Sub Focuscontrol Focuscontrol getByName("MainForm") getByName("dat ")) 20 OK 21 8. Access Base: 9. 22 A HSQLDB Access Base VARCHAR LONGVARCHAR) TINYINT) SMALLINT INTEGER BIGINT REAL) DOUBLE) / DATE)/ TIME TIMESTAMP DOUBLE) INTEGER BIGINT YES/NO / BOOLEAN)OLE INTEGER Basic Integer Basic Integer -32768 32767 INTEGER -2147483648 2147483647 INTEGER BIGINT 11.

6 Access Access Base Base Writer Calc Writer/Calc LibreOffice Base Writer Calc 2312. / / Access / / Ver3. Access Access W Base SHIFT Access 13. IPA P 9 24 OK OK 2514.

7 3. / 26 / 15. " " * " " Access mdb ' ' 16. Access GROUP 27 Access BASE GROUP 17. Access Aceess Base + CONCAT 3 CONCAT 3 CONCAT( ,CONCAT( , )) 28 18.

8 Access Base Calc Excel Open ' 1'###### ######Sub Auto_FormOpen( ) Dim ObjectType as Variant Dim FormMei As String ObjectType = FormMei = "tbl_mainF1" ' If (FormMei) Then () (ObjctType, FormMei, FALSE) Else MsgBox " "& chr(13) & " " & FormMei & chr(13) &" " ,16, " " End ifEnd Sub'###### ###### 29 18 19. ' Sub FormOpen oDoc = ThisDatabaseDocument If (" ") = false Then Exit Sub End If (" ").open()End Sub' Sub FormClose oDoc = ThisDatabaseDocument If (" ") = false Then Exit Sub End If (" ").close()End Sub20. ' Sub ReportOpen01 oDoc = ThisDatabaseDocument If (" ") = false Then Exit Sub End If (" ").

9 Open()End Sub 30 21. VBA ' Sub SaveAndCloseDim ReturnV as integer If Then ReturnV = Msgbox (" " & chr(13) & " ",4+0+48," ") If ReturnV = 7 then exit sub Else () (True) End if Else ReturnV = Msgbox (" " & chr(13) & " ",4+0+48," ") If ReturnV = 7 then exit sub Else (True) End if End ifEnd Sub3122. Calc Base Calc Base Calc 3223. Base xls Base ODBC xls mdb odb mdb Excel xls ODS odb Point Base OpenBasic odb xls Access mdb mdb xls Ms-Access Ms-Access Ms-Access PC Calc mdb mdb xls Calc Mdb _Link.

10 Ods ods 33xls Mdb odb 2 +2 Mdb _Link .ods W Mdb Excel Sheet Link_Table 34 mdb Base mdb Microsoft Access mdb 3524. Base Access Base SQL [ TABLE_A1][ Form001 Formhonmei] txt001 Sub qerykousin001oDoc = ()oAConnection = = ()oForm = ().getByName("Formhonmei")oFilter = "SELECT * FROM ""TABLE_A1"" WHERE "" A"" = " & "'" & ("txt001").